Zeichnen von Bildern, Linien, Rechtecken, Polygonen oder anderem auf einer Form (Canvas) - C++ Builder Snippets
C++ Builder Snippets
Ich habe hier ein kleines Beispiel erstellt, welches den Einstieg zum Thema Zeichnen auf einer Form oder anderem Controll etwas erleichtert.
Zeichnen von Linien, Polygonen, Rechtecken, Tortenstücken, oder Bildern lässt sich recht einfach bewerkstelligen, wie man im unteren Beispiel sieht.
Canvas bietet noch eine ganze Reihe mehr Funktionen und Möglichkeiten aber ich möchte in diesem
Beispiel nur die Grundfunktionen für den Einstieg aufzeigen.
Im Beispiel zeige ich:
Erstellung einer einfachen Linie, einem Rechteck, einem Rechteck mit runden Ecken, füllen des Hintergrundes, verändern der Liniendicke,
zeichnen eines Tortenstückes, zeichnen von Polygonen ein Bild laden und auf die Form zeichnen, ein Bild über die ganze Form verteilen also
den Hintergrund füllen und ein Bild laden und in der Größe verändert auf die Form zeichnen.
Beispiel:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 |
//--------------------------------------------------------------------------- //******** ******** //******** Dieses Beispiel stammt von www.ecodes.de ******** //******** ******** #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { //Einfache Linie zeichnen //Pen Zufallsfarbe Canvas->Pen->Color=TColor(RGB(rand()%255,rand()%255,rand()%255)); //Dicke der Linie Canvas->Pen->Width =3; //Start der Linie Canvas->MoveTo(300,30) ; //Ende der Linie Canvas->LineTo(550,30); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { //Einfaches Rechteck zeichnen //Pen Zufallsfarbe Canvas->Pen->Color=TColor(RGB(rand()%255,rand()%255,rand()%255)); //Dicke der Linie Canvas->Pen->Width =1; //Linienart gepunktet Canvas->Pen->Style = psDot; //Füllung (bsClear für keine ) Canvas->Brush->Style = bsFDiagonal ; //Füllung Farbe Canvas->Brush->Color =TColor(RGB(rand()%255,rand()%255,rand()%255)); //Position des Rechteckes Canvas->Rectangle(300,60,550,80); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { //Rechteck mit runden Ecken //Pen Zufallsfarbe Canvas->Pen->Color=TColor(RGB(rand()%255,rand()%255,rand()%255)); //Dicke der Linie Canvas->Pen->Width =1; //Füllung Farbe Canvas->Brush->Color =TColor(RGB(rand()%255,rand()%255,rand()%255)); //Position des Rechteckes und größe der Ellipsen der Rundungen Canvas->RoundRect(300,90,550,140,10,10); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button4Click(TObject *Sender) { //Zeichnen eines Polygon //Points definieren TPoint points[6]; points[0] = Point(300,150); points[1] = Point(350,150); points[2] = Point(360,190); points[3] = Point(540,220); points[4] = Point(640,320); points[5] = Point(640,220); //Farbe für Füllung Canvas->Brush->Color = TColor(RGB(rand()%255,rand()%255,rand()%255)); //Polygon zeichnen Canvas->Polygon(points, 5); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button5Click(TObject *Sender) { //Einen Bogen zeichnen //Points definieren TPoint points[4]; points[0] = Point(300,170); points[1] = Point(350,170); points[2] = Point(360,190); points[3] = Point(240,320); //Pen Zufallsfarbe Canvas->Pen->Color=TColor(RGB(rand()%255,rand()%255,rand()%255)); //Position des Rechteckes und größe der Ellipsen der Rundungen Canvas->PolyBezier(points,3) ; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button6Click(TObject *Sender) { //Ein Bild laden und auf hintergrund zeichnen //Picture erstellen und laden TPicture *tr = new TPicture() ; tr->LoadFromFile("ecodes.bmp") ; //Bild zeichnen Canvas->Draw(30,250,tr->Graphic ) ; //tr wieder freigeben delete tr; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button7Click(TObject *Sender) { Form1->Canvas->Brush->Bitmap = NULL; Canvas->FillRect(ClientRect); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button8Click(TObject *Sender) { //Teilbereich mit Hintergrundbild füllen Graphics::TBitmap *BrushBmp = new Graphics::TBitmap; BrushBmp->LoadFromFile("ecodes.bmp"); Form1->Canvas->Brush->Bitmap = BrushBmp; Form1->Canvas->FillRect(Rect(0,0,500,200)); delete BrushBmp; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button9Click(TObject *Sender) { //Clientbereich mit Hintergrundbild füllen Graphics::TBitmap *BrushBmp = new Graphics::TBitmap; BrushBmp->LoadFromFile("ecodes.bmp"); Form1->Canvas->Brush->Bitmap = BrushBmp; Form1->Canvas->FillRect(ClientRect); delete BrushBmp; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button10Click(TObject *Sender) { //Bild in angegebenen Bereich einpassen, die Größe wird verändert TRect rec; rec.left =400; rec.top =50; rec.Bottom =200; rec.Right =500 ; Graphics::TBitmap *gr = new Graphics::TBitmap; gr->LoadFromFile("ecodes.bmp"); Canvas->StretchDraw(rec,gr) ; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button11Click(TObject *Sender) { //Tortenstück zeichnen Canvas->Pie(400,440,300,340,443,220,1,222); } //--------------------------------------------------------------------------- |