4.6 Компоненти Win32 tTabControl - вкладки

TabControl1->Tabs->Add("1"); //добавити вкладку "1"

TabControl1->Tabs->Add("2"); //добавити вкладку "2"

TabControl1->Tabs->Add("3"); //добавити вкладку "3"

//якщо вибрана третя вкладка, змінити її надпис на "*"

if (TabControl1->TabIndex==2)TabControl1->Tabs->Strings[2]="*";

TPageControl - сторінки

PageControl1->TabPosition=tpLeft; //розміщення закладок зліва

TTabSheet *Tab=new TTabSheet(this);//динамічне створення сторінки

Tab->PageControl=PageControl1; //вказує PageControl для сторінки

Tab->Caption="New"; //текст надпису

PageControl1->ActivePage=Tab; //зробити сторінку Tab активною

int i=PageControl1->ActivePageIndex; //індекс активної сторінки

PageControl1->Pages[i]->Caption="Sel"; //надпис і-ї сторінки

TImageList – список зображень, tBitmap – зображення, бітова матриця

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

Graphics::TBitmap *Bmp = new Graphics::TBitmap;

Bmp->LoadFromFile("1.bmp"); //завантажити зображення з файлу

ImageList1->Add(Bmp,NULL); //додати графічний об’єкт в список

Bmp->LoadFromFile("2.bmp"); //завантажити зображення з файлу

ImageList1->Insert(0,Bmp,NULL); //вставити об’єкт на перше місце

ImageList1->Move(1,0); //перемістити зображення з позиції 1 на позицію 0

ImageList1->GetBitmap(1,Bmp); //отримати об’єкт зі списку по індексу 1

Image1->Picture->Bitmap=Bmp; //нарисувати зображення Bmp в Image1

//нарисувати зображення з індексом 0 на формі

ImageList1->Draw(Form1->Canvas,10,10,0,true);

ImageList1->Delete(1); //видалити зображення з індексом 1

TRichEdit – багаторядкове поле редагування з розширеним форматуванням

//конструктор форми

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

RichEdit1->Lines->LoadFromFile("1.rtf"); //зчитати рядки з файлу

RichEdit1->WordWrap=false; //заборонити переніс тексту

RichEdit1->DefAttributes->Color = clBlue; //колір по замовчуванню

RichEdit1->DefAttributes->Style=RichEdit1->DefAttributes->Style << fsBold << fsItalic; //стиль по замовчуванню

RichEdit1->Lines->Add("First line"); //добавити рядок "First line"

RichEdit1->Lines->Insert(0,"Second line"); //вставити рядок "Second line" в позицію 0

}

//натиснута кнопка Button1

void __fastcall TForm1::Button1Click(TObject *Sender)

{

RichEdit1->SelAttributes->Color = clRed; //колір виділеного тексту

RichEdit1->SelAttributes->Height = 14; //висота виділеного тексту

RichEdit1->Paragraph->Alignment = taCenter; //вирівнювання поточного абзацу

String S=RichEdit1->SelText; //виділений текст

for(int i=1;i<=RichEdit1->SelLength;i++)S[i]='*'; //змінити всі символи на '*'

RichEdit1->SelText=S; //вставити рядок S замість виділеного

RichEdit1->Lines->SaveToFile("1.rtf"); //зберегти рядки у файл

}

TTrackBar - повзунок

//конструктор форми

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

TrackBar1->Orientation=trVertical; //орієнтація вертикальна

TrackBar1->Frequency=5; //частота поділок

TrackBar1->Min=-10; //мінімальне значення

TrackBar1->Max=20; //максимальне значення

TrackBar1->SelStart=0; //мінімальне значення виділеного

TrackBar1->SelEnd=20; //максимальне значення виділеного

TrackBar1->Position=10; //позиція повзунка

}

//при зміні TrackBar1

void __fastcall TForm1::TrackBar1Change(TObject *Sender)

{Label1->Caption=TrackBar1->Position;} //вивести в надпис Label1 поточну позицію повзунка