void __fastcall TForm1::Button1Click(TObject *Sender)
{
int I, J, K;
K = 0;
for (I = 0; I < StringGrid1->ColCount; I++)
for (J = 0; J < StringGrid1->RowCount; J++)
StringGrid1->Cells[I][J] = IntToStr(++K);
}
Кестедегі бағандардың енін өзгерту үшін типі іnt болатын DefaultColWidth қасиеті, ал кесте жолының биіктігін өзгерту үшін DefaultRowHeight қасиеттері қолданылады. Мысалы, программада терезенің өлшемдері өзгергенде кесте ұяшықтарының /баған мен жолдың/ өлшемдерін өзгерту келесі түрде жазылады:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
if (DrawGrid1->DefaultColWidth > 90)
DrawGrid1->GridLineWidth = 2;
else
DrawGrid1->GridLineWidth = 1;
}
GridLineWidth қасиетін кесте ұяшығын көмкеріп тұрған сызықтарының қалыңдығын немесе жіңішкелігін беру үшін қолданады. Әдетте оның мәні 1-ге тең болып тұрады, егер оны 3-ке өзгертсеңіз онда кесте ұяшықтары қалың бояулы сызықпен көмкерілетін болады.
Тапсырмалар
1-деңгей
Үшбұрыштың ауданын, биіктігі мен табаны бойынша есептеуді орындайтын қарапайым қосымша құру. Қосымша терезесі келесі түрде болуы қажет /1-сурет(а,б)/.
1-сурет. а) Форма терезесі
1-сурет. в) Қосымша терезесі
Орындалуы:
1. File -> New -> Application командалары орындалады.
2. Жаңа құрылған жобаны сақтау үшін Filе-> Save All командасы орындалады. Жоба құрамына кіретін файлдардың бір бумада сақталуы қажет.
3. Форма терезесіне қажет компоненттер /1-суреттегідей/ орналастырылып және олардың келесі қасиеттері өзгертіледі:
«Есептеу» деп аталатын батырмаға екі рет шертіліп, пайда болған терезеге келесі код жазылады:
void __fastcall TForm1::Button1Click(TObject *Sender)
Достарыңызбен бөлісу: |