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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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;
}