Clomosy | Forum : array dizi tanımlaması

var

tarifler : TCLForm;

vertScrollBox : TclVertScrollBox;

rowPanel : TClPanel;

testImg1 : TClProImage;

titleLabel : TCLLabel;

noteMemo1 : TCLMemo;

i : Integer;

aciklamalar : array[1..5] of String;

{

aciklamalar[1] = 'Pizza: İnce hamur, bol peynir ve domates sos.';

aciklamalar[2] = 'Mantı: Yoğurt ve sos ile servis edilir.';

aciklamalar[3] = 'Lahmacun: İnce hamur üzerine kıymalı harç.';

aciklamalar[4] = 'Kebap: Izgarada pişmiş et, yanında salata.';

aciklamalar[5] = 'Dolma: Biber içine pirinçli harç doldurulur.';

tarifler = TClform.Create(Self);

tarifler.SetFormColor('#cce6d6', '#678e76', clGVertical);

titleLabel = tarifler.AddNewLabel(tarifler.LytTopBar, 'titleLabel', 'Tarifler');

titleLabel.StyledSettings = ssFamily;

titleLabel.TextSettings.Font.Size = 30;

titleLabel.Align = alLeft;

titleLabel.Margins.Left = 14;

titleLabel.Margins.Top = 10;

titleLabel.Height = 65;

titleLabel.Width = 200;

vertScrollBox = tarifler.AddNewVertScrollBox(tarifler, 'vertScrollBox');

vertScrollBox.Align = alClient;

vertScrollBox.ShowScrollBars = True;

for (i = 1 to 5)

{

rowPanel = tarifler.AddNewPanel(vertScrollBox, 'rowPanel' + IntToStr(i));

rowPanel.Align = alTop;

rowPanel.Height = 120;

rowPanel.Margins.Bottom = 8;

rowPanel.Padding.Left = 10;

rowPanel.Padding.Top = 10;

testImg1 = tarifler.AddNewProImage(rowPanel, 'testImg' + IntToStr(i));

testImg1.Align = alLeft;

testImg1.Width = 100;

testImg1.Height = 100;

testImg1.Margins.Left = 5;

testImg1.Margins.Right = 10;

if (i = 1)

tarifler.SetImage(testImg1, 'https://img.freepik.com/premium-vector/piece-cheese-pizza-pixel-art-style_475147-1272.jpg');

if (i = 2)

tarifler.SetImage(testImg1, 'https://img.freepik.com/premium-vector/plate-manti-turkish-food-pixel-art-style_475147-1273.jpg');

if (i = 3)

tarifler.SetImage(testImg1, 'https://img.freepik.com/premium-vector/lahmacun-turkish-pizza-pixel-art-style_475147-1274.jpg');

if (i = 4)

tarifler.SetImage(testImg1, 'https://img.freepik.com/premium-vector/kebab-meat-skewer-pixel-art-style_475147-1275.jpg');

if (i = 5)

tarifler.SetImage(testImg1, 'https://img.freepik.com/premium-vector/stuffed-pepper-dolma-pixel-art-style_475147-1276.jpg');

noteMemo1 = tarifler.AddNewMemo(rowPanel, 'noteMemo' + IntToStr(i), aciklamalar);

noteMemo1.Align = alClient;

noteMemo1.Margins.Left = 5;

noteMemo1.Margins.Right = 5;

noteMemo1.ReadOnly = True;

noteMemo1.ShowScrollBars = False;

}

tarifler.Run;

}