Кіріспе Курстың мақсаты мен міндеттері
жүктеу/скачать 1.46 Mb.
|
| bsVertical- вертикаль сызықпен бояу
bsFDiagonal, bsBDiagonal- диагонал сызықпен бояу bsCross- тік торлы бояу bsDiagCross- көлденең торлы бояу bsClear- боялмаған. Мысал: Олимпиада бағдарламасы графиканы форма бетіне шығаруды ұйымдастырады. Бағдарлама формасы: Листинг:
#pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { Canvas->Font->Name ="Tahoma"; Canvas->Font->Size= 12; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormPaint(TObject *Sender) { #define WB 140 #define HB 80 #define D 36 int x,y; AnsiString st = "Быстрее, выше, С#льнее!"; x = (ClientWidth - WB) / 2; y = (ClientHeight - HB ) / 2 - Canvas->Font->Size; // nojJOTHMin,e Canvas->Brush->Color = (TColor) RGB(255,255,255); Canvas->FillRect( Rect(x,y,x+WB,y+HB) ); int xl = (ClientWidth - Canvas->TextWidth(st)) / 2; Canvas->Brush->Style = bsClear; Canvas->TextOutA(xl,y+HB+6,st); Canvas->Pen->Width = 2; x-x+(WB-3.2*D)/2; y=y+(HB-1.6*D)/2; Canvas->Pen->Color = (TColor) RGB(0,0,225); Canvas->Ellipse(x,y,x+D,y+D); x = x + 1.1* D; Canvas->Pen->Color = clBlack; Canvas->Ellipse(x,y,x+D,y+D); x=x+1.1*D; Canvas->Pen->Color = (TColor) RGB(255, 0, 0) ; Canvas->Ellipse(x,y,x+D,y+D); x = x - D * 0.55; y = y + 0.6 * D; Canvas->Pen->Color = (TColor) RGB(0,128,0) ; Canvas->Ellipse(x,y,x+D,y+D); x=x-1.1*D; Canvas->Pen->Color =(TColor) RGB(250,217,25); Canvas->Ellipse(x,y,x+D,y+D); }
void __fastcall TForm1::FormResize(TObject *Sender) { Form1->Refresh() ; } //--------------------------------------------------------------------------- Əдебиеттер: [1]- [4] жүктеу/скачать 1.46 Mb. Достарыңызбен бөлісу:
|