TDrawGrid – таблиця зображень

//при необхідності перерисування зображення в комірках DrawGrid1

void __fastcall TForm1::DrawGrid1DrawCell(TObject *Sender, int ACol,

int ARow, TRect &Rect, TGridDrawState State)

{

//створити графічний об’єкт bmp

Graphics::TBitmap *bmp = new Graphics::TBitmap();

bmp->LoadFromFile("1.bmp"); //завантажити з файлу

TRect b; //створити об’єкт-прямокутник

b.Left=0; //координати прямокутника

b.Top=0;

b.Right=bmp->Width;

b.Bottom=bmp->Height;

//перерисування зображення в комірці 1,1

if ((ACol==1)&&(ARow==1))

{DrawGrid1->Canvas->CopyRect(Rect,bmp->Canvas,b);}

//перерисування зображення в комірках використовуючи

//список зображень ImageList1

int i=ARow*DrawGrid1->ColCount+ACol;

if (i<=ImageList1->Count-1)

{ImageList1->Draw(DrawGrid1->Canvas,Rect.Left,Rect.Top,i,true);}

}

TImage – контейнер графічних зображень, tPicture – графічне зображення

Image1->Picture->LoadFromFile("1.bmp"); //завантажує картинку з файлу

Image1->AutoSize=true; //автоматична зміна розміру Image1

Image1->Stretch=false; //автоматична зміна розміру картинки відключена

Image1->Center=true; // розташовує картинку по центру Image1

int h=Image1->Height; //висота

int w=Image1->Width; //ширина

Image1->Canvas->LineTo(w,h); //рисує на канві лінію до точки (w,h)

Image1->Picture->SaveToFile("2.bmp"); //зберегти картинку у файл

TShape – геометрична форма, tBrush - пензель, tPen - перо

Shape1->Shape=stCircle; //форма - коло

Shape1->Brush->Color=clGreen; //колір пензля

Shape1->Brush->Style=bsSolid; //стиль пензля

//створити графічний об’єкт BrushBmp

Graphics::TBitmap *BrushBmp = new Graphics::TBitmap;

BrushBmp->LoadFromFile("1.bmp"); //завантажити з файлу

Shape1->Brush->Bitmap=BrushBmp; //установити рисунок пензля

Shape1->Pen->Style=psDot; //стиль пера

Shape1->Pen->Color=clBlue; //колір пера

Shape1->Pen->Mode=pmCopy; //режим рисування ліній

TScrollBox – контейнер прокручування

ScrollBox1->AutoScroll=true; //автоматично відображати лінійки прокручування

//прокручувати вміст відразу

ScrollBox1->HorzScrollBar->Tracking=true;

ScrollBox1->VertScrollBar->Tracking=true;

TCheckListBox – список рядків з індикаторами

CheckListBox1->Items->Add("1"); //добавити елемент "1"

CheckListBox1->Items->Add("2"); //добавити елемент "2"

//і змінюється від 0 до кількості елементів

for (int i=0;i<CheckListBox1->Items->Count;i++)

{

if (CheckListBox1->Checked[i]), //якщо елемент [і] вибраний

{CheckListBox1->Items->Strings[i]="true";} //змінити надпис на "true"

else //інакше

{CheckListBox1->Items->Strings[i]="false";} //змінити надпис на " false "

}

TSplitter - розділювач

ListBox1->Align=alLeft; //вирівнює розташування ListBox1

ListBox2->Align=alClient; //вирівнює розташування ListBox2

Splitter1->Left=ListBox2->Left; //координата Splitter1 по горизонталі

Splitter1->Align=alLeft; //вирівнює розташування Splitter1

TControlBar – контейнер інструментальних панелей

BitBtn1->DragMode=dmAutomatic; //автоматичний режим перетягування

BitBtn1->DragKind=dkDock; //вид перетягування

ControlBar1->AutoDrag=true; //дозволяє перетягування за межі компоненту

ControlBar1->AutoDock=true; //автоматичне вбудовування при перетягуванні над компонентом

ControlBar1->RowSize=50; //висота рядка