Clomosy | Forum : Metin Gözükmüyor

var

MyForm: TclForm;

animasyon: TclBitmapListAnimation;

circle1: TclCircle;

lbl1,lbl2,animasyonlbl,lbl3,lbl4: TClProLabel;

ustPanel,altPanel,ortPanel,sonpanel: TClProPanel;

Btn:TClProButton;

Image1:TClProImage;

userName : String;

void btnGirisClick ;

{

Clomosy.RunUnit('ugiris');

}

{

MyForm = TclForm.Create(self);

MyForm.SetFormColor('#f5f5f5', '', clGNone);

MyForm.AddAssetFromUrl('https://resmim.net/cdn/2025/07/16/XfTN5n.png');

animasyonlbl=MyForm.AddNewProLabel(MyForm,'animasyonlbl','Animasyon birimindesin');

{

userName = ' Hoş geldin Raziye';

Clomosy.GlobalVariableString = userName;

ShowMessage(Clomosy.GlobalVariableString);

}

// Üst panel

ustPanel = MyForm.AddNewProPanel(MyForm, 'ustPanel');

ustPanel.Align=alTop;

ustPanel.Height = 80;

ustPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3F51B5');

ustPanel.clProSettings.IsRound = True;

ustPanel.clProSettings.RoundWidth = 10;

ustPanel.SetclProSettings(ustPanel.clProSettings);

// Başlık etiketi

lbl1 = MyForm.AddNewProLabel(ustPanel, 'lbl1', 'LABORATUVARA HOŞ GELDİNİZ');

lbl1.Align = alClient;

lbl1.clProSettings.FontSize = 25;

lbl1.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

lbl1.clProSettings.TextSettings.Font.Style = [fsBold];

lbl1.clProSettings.FontHorzAlign = palCenter;

lbl1.clProSettings.FontVertAlign = palCenter;

lbl1.SetclProSettings(lbl1.clProSettings);

// Alt panel

altPanel = MyForm.AddNewProPanel(MyForm, 'altPanel');

altPanel.Align = alBottom;

altPanel.Height = 70;

altPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3F51B5');

altPanel.clProSettings.IsRound = True;

altPanel.clProSettings.RoundWidth = 10;

altPanel.SetclProSettings(altPanel.clProSettings);

Btn=MyForm.AddNewProButton(altPanel, 'Btn', 'LABORATUVARA GİRİNİZ');

Btn.Align=alBottom;

Btn.Height=80;

Btn.OnClick= 'btnGirisClick';

Btn.clProSettings.FontColor=clAlphaColor.clHexToColor('#FFFFFF');

Btn.clProSettings.FontSize=25;

Btn.clProSettings.TextSettings.Font.Style=[fsBold];

Btn.clProSettings.IsTransparent=True;

Btn.clProSettings.IsFill=True;

Btn.clProSettings.IsRound=True;

Btn.clProSettings.RoundHeight=60;

Btn.clProSettings.RoundWidth=10;

Btn.clProSettings.BorderWidth=3;

Btn.clProSettings.FontHorzAlign=palCenter;

Btn.SetClProSettings(Btn.clProSettings);

MyForm.AddNewEvent(Btn,tbeOnClick,'girisegit')

ortPanel = MyForm.AddNewProPanel(MyForm, 'ortPanel');

ortPanel.Align=alNone;

ortPanel.Position.X=1;

ortPanel.Position.Y=150;

ortPanel.Height = 50;

ortPanel.Width = 400;

ortPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#c1e1ec');

ortPanel.clProSettings.IsRound = True;

ortPanel.clProSettings.RoundWidth = 10;

ortPanel.SetclProSettings(ortPanel.clProSettings);

lbl3 = MyForm.AddNewProLabel(ortPanel, 'lbl3', 'Bilimi keşfetmeye hazır mısın?');

lbl3.Align = alClient;

lbl3.clProSettings.FontSize = 25;

lbl3.clProSettings.FontColor = clAlphaColor.clHexToColor('#ea844d');

lbl3.clProSettings.TextSettings.Font.Style = [fsItalic];

lbl3.clProSettings.FontHorzAlign = palCenter;

lbl3.clProSettings.FontVertAlign = palCenter;

lbl3.SetclProSettings(lbl3.clProSettings);

sonPanel = MyForm.AddNewProPanel(MyForm, 'sonPanel');

sonPanel.Align=alNone;

sonPanel.Position.X=1;

sonPanel.Position.Y=550;

sonPanel.Height = 150;

sonPanel.Width = 400;

sonPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f2f6f8');

sonPanel.clProSettings.IsRound = True;

sonPanel.clProSettings.RoundWidth = 10;

sonPanel.SetclProSettings(sonPanel.clProSettings);

lbl4 = MyForm.AddNewProLabel(sonPanel, 'lbl4', 'Laboratuvarımızda 6 deney sizi bekliyor! Keşfetmek için laboratuvara girin.');

lbl4.Align = alClient;

lbl4.clProSettings.FontSize = 25;

lbl4.clProSettings.FontColor = clAlphaColor.clHexToColor('#f4b786');

lbl4.clProSettings.TextSettings.Font.Style = [fsItalic];

lbl4.clProSettings.FontHorzAlign = palCenter;

lbl4.clProSettings.FontVertAlign = palCenter;

lbl4.SetclProSettings(lbl4.clProSettings);

Image1 =MyForm.AddNewImage(MyForm,'Image1');

MyForm.SetFormBGImage('https://resmim.net/cdn/2025/07/17/XW803k.jpg');

Image1 = MyForm.AddNewImage(sonpanel, 'Img1');

Image1.Align = alLeft;

Image1.Width = 115;

Image1.Height = 100;

Image1.Position.X = 0;

Image1.Position.Y =0;

MyForm.SetImage(Image1, 'https://resmim.net/cdn/2025/07/17/XWBZe6.jpg');

// Ana içerik alanı

circle1 = MyForm.AddNewCircle(MyForm, 'circle1');

circle1.Align = alClient;

circle1.Margins.Left = 10;

circle1.Margins.Right = 10;

circle1.Margins.Top = 10;

circle1.Margins.Bottom = 10;

circle1.Fill.Kind = fbkBitmap;

circle1.Fill.Bitmap.WrapMode = fbwmTileStretch;

circle1.Stroke.Thickness = 2;

// Animasyon ayarları

animasyon = MyForm.AddNewBitMapListAnimation(circle1, 'animasyon');

animasyon.animationBitMap.LoadFromFile(Clomosy.AppFilesPath + 'XfTN5n.png');

animasyon.AnimationCount = 40;

animasyon.animationRowCount = 8;

animasyon.delay = 0;

animasyon.duration = 2.90;

animasyon.AutoReverse = True;

animasyon.enabled = True;

animasyon.loop = True;

// Animasyonu başlat

animasyon.start;

MyForm.Run;

}