Alt Sat�ra Ge�me : Merhaba Mehmet,Sırayla yapman...

Mon, 02 Jun 2025 23:10:35 +0000

Yazar: Emr.Erkmn
Konu: 1031
G�nderim Zaman�: 02 Haziran 2025 Saat 23:10

Merhaba Mehmet,
S�rayla yapman gereken i�lemler;
1. AnimalImg.Height = 100; y�ksekli�ini biraz d��rmen gerekiyor. Resim �ok fazla yer kapl�yor.
2. TitleLabel.Text = '�nek';

infoText = '1-Bar�nak: Temiz, kuru, havadar ve r�zg�rs�z olmal�.' + #13#10 +

'2-Beslenme: Kaliteli yem, saman, ot ve bol temiz su verilmeli.' + #13#10 +

'3-Sa��m: Hijyenik ko�ullarda ve d�zenli yap�lmal�.' +#13#10 +

'4-Temizlik: Hayvan ve bar�nak d�zenli olarak temizlenmeli.' +#13#10 +

'5-Sa�l�k: Hastal�k belirtileri izlenmeli, veteriner kontrolleri yap�lmal�.' +#13#10 +

'6-A��lama: Gerekli a��lar zaman�nda yap�lmal�.' +#13#10 +

'7-Rahatl�k: Hayvanlar rahat hareket edebilmeli, stres ortam�ndan uzak olmal�.';

imageUrl = 'https://resmim.net/cdn/2025/06/02/TlZMLM.png';
Metinlerini bu �ekilde yapabilirsin. Bu saye de maddeler halinde s�ralanm�� olacak.

Alt Sat�ra Ge�me : var Form1: TclForm; ListView1:...

Mon, 02 Jun 2025 22:00:19 +0000

Yazar: Mehmet Onur Tuzcu
Konu: 1031
G�nderim Zaman�: 02 Haziran 2025 Saat 22:00

var

Form1: TclForm;

ListView1: TClProListView;

DesignerPanel1: TClProListViewDesignerPanel;

taskName: TclProLabel;

taskImg: TclProImage;

Label1: TClProLabel;

ProPanel1: TClProPanel;

Label2: TClProLabel;

BackBtn: TClProButton;

AnimalImg: TClProImage;

TitleLabel: TClProLabel;

InfoPanel: TClProPanel;

// Bilgi panelini olu�tur

void CreateInfoPanel;

{

ProPanel1 = Form1.AddNewProPanel(Form1, 'ProPanel1');

ProPanel1.Align = alClient;

ProPanel1.Visible = False;

ProPanel1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#4CAF50');

ProPanel1.clProSettings.RoundHeight = 15;

ProPanel1.clProSettings.RoundWidth = 15;

ProPanel1.clProSettings.BorderWidth = 2;

ProPanel1.clProSettings.IsFill = True;

ProPanel1.clProSettings.IsRound = True;

ProPanel1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');

ProPanel1.SetclProSettings(ProPanel1.clProSettings);

// Geri butonu

BackBtn = Form1.AddNewProButton(ProPanel1, 'BackBtn', 'X');

BackBtn.Align = alTop;

BackBtn.Height = 40;

BackBtn.Width = 40;

BackBtn.Margins.Top = 10;

BackBtn.Margins.Right = 10;

BackBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FF0000');

BackBtn.clProSettings.FontSize = 20;

BackBtn.clProSettings.FontVertAlign = palcenter;

BackBtn.clProSettings.FontHorzAlign = palcenter;

BackBtn.clProSettings.IsRound = True;

BackBtn.clProSettings.RoundHeight = 20;

BackBtn.clProSettings.RoundWidth = 20;

BackBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');

BackBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FF0000');

BackBtn.clProSettings.BorderWidth = 2;

BackBtn.SetclProSettings(BackBtn.clProSettings);

Form1.AddNewEvent(BackBtn, tbeOnClick, 'ClosePanel');

// Ba�l�k etiketi

TitleLabel = Form1.AddNewProLabel(ProPanel1, 'TitleLabel', '');

TitleLabel.Align = alTop;

TitleLabel.Height = 60;

TitleLabel.Margins.Top = 60;

TitleLabel.Margins.Left = 20;

TitleLabel.Margins.Right = 20;

TitleLabel.clProSettings.AutoSize = True;

TitleLabel.clProSettings.WordWrap = True;

TitleLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#4CAF50');

TitleLabel.clProSettings.FontSize = 28;

TitleLabel.clProSettings.FontVertAlign = palcenter;

TitleLabel.clProSettings.FontHorzAlign = palcenter;

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

TitleLabel.clProSettings.IsFill = True;

TitleLabel.SetclProSettings(TitleLabel.clProSettings);

// Hayvan resmi

AnimalImg = Form1.AddNewProImage(ProPanel1, 'AnimalImg');

AnimalImg.Align = alTop;

AnimalImg.Height = 200;

AnimalImg.Margins.Top = 20;

AnimalImg.Margins.Left = 20;

AnimalImg.Margins.Right = 20;

AnimalImg.clProSettings.IsRound = True;

AnimalImg.clProSettings.RoundHeight = 15;

AnimalImg.clProSettings.RoundWidth = 15;

AnimalImg.SetclProSettings(AnimalImg.clProSettings);

// Bilgi paneli

InfoPanel = Form1.AddNewProPanel(ProPanel1, 'InfoPanel');

InfoPanel.Align = alClient;

InfoPanel.Margins.Top = 20;

InfoPanel.Margins.Left = 20;

InfoPanel.Margins.Right = 20;

InfoPanel.Margins.Bottom = 20;

InfoPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F5F5F5');

InfoPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#4CAF50');

InfoPanel.clProSettings.BorderWidth = 2;

InfoPanel.clProSettings.RoundHeight = 15;

InfoPanel.clProSettings.RoundWidth = 15;

InfoPanel.clProSettings.IsFill = True;

InfoPanel.SetclProSettings(InfoPanel.clProSettings);

// Bilgi metni

Label2 = Form1.AddNewProLabel(InfoPanel, 'Label2', '');

Label2.Align = alClient;

Label2.Margins.Top = 15;

Label2.Margins.Left = 15;

Label2.Margins.Right = 15;

Label2.Margins.Bottom = 15;

Label2.clProSettings.AutoSize = True;

Label2.clProSettings.WordWrap = True;

Label2.clProSettings.FontColor = clAlphaColor.clHexToColor('#333333');

Label2.clProSettings.FontSize = 16;

Label2.clProSettings.FontVertAlign = palcenter;

Label2.clProSettings.FontHorzAlign = palcenter;

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

Label2.clProSettings.IsFill = True;

Label2.clProSettings.IsRound = True;

Label2.SetclProSettings(Label2.clProSettings);

}

// Bilgi panelini g�ncelle

void UpdateInfoPanel(animalName);

var

infoText, imageUrl : String

{

infoText = '';

imageUrl = '';

if (animalName == '�nek')

{

TitleLabel.Text = '�nek';

infoText = '1-Bar�nak: Temiz, kuru, havadar ve r�zg�rs�z olmal�.' +

'2-Beslenme: Kaliteli yem, saman, ot ve bol temiz su verilmeli.' +

'3-Sa��m: Hijyenik ko�ullarda ve d�zenli yap�lmal�.' +

'4-Temizlik: Hayvan ve bar�nak d�zenli olarak temizlenmeli.' +

'5-Sa�l�k: Hastal�k belirtileri izlenmeli, veteriner kontrolleri yap�lmal�.' +

'6-A��lama: Gerekli a��lar zaman�nda yap�lmal�.' +

'7-Rahatl�k: Hayvanlar rahat hareket edebilmeli, stres ortam�ndan uzak olmal�.';

imageUrl = 'https://resmim.net/cdn/2025/06/02/TlZMLM.png';

}

else if (animalName == 'Koyun')

{

TitleLabel.Text = 'Koyun';

infoText = '1-Bar�nak: Kuru, serin ve iyi havaland�r�lm�� olmal�.' +

'2-Beslenme: Ot, saman ve koyun yemi verilmeli; temiz su s�rekli bulunmal�.' +

'3-K�rk�m: Y�lda en az bir kez y�n k�rk�m� yap�lmal�.' +

'4-Sa�l�k: Ayak hastal�klar� ve parazitlere kar�� kontrol edilmeli.' +

'5-A��lama: �ap, �i�ek gibi hastal�klara kar�� d�zenli a�� yap�lmal�.' +

'6-Temizlik: Ah�r ve koyunlar d�zenli temizlenmeli.' +

'7-Rahatl�k: Kalabal�k ortamdan ka��n�lmal�, stresten uzak tutulmal�.';

imageUrl = 'https://resmim.net/cdn/2025/06/02/TlZT4c.jpg';

}

else if (animalName == 'Ke�i')

{

TitleLabel.Text = 'Ke�i';

infoText = '1-Bar�nak: Kuru, r�zg�rs�z ve y�ksekte olmal� (nemden etkilenirler).' +

'2-Beslenme: Ot, yaprak, ke�i yemi ve temiz su verilmelidir.' +

'3-T�rnak Bak�m�: D�zenli olarak t�rnak kesimi yap�lmal�.' +

'4-Sa�l�k: Parazit ve hastal�klara kar�� g�zlem yap�lmal�.' +

'5-A��lama: Brucella, �ap gibi hastal�klara kar�� a�� yap�lmal�.' +

'6-Temizlik: Ke�iler ve bar�nak temiz tutulmal�.' +

'7-Hareket: Ke�iler hareket etmeyi sever; dola�ma alan� sa�lanmal�.';

imageUrl = 'https://resmim.net/cdn/2025/06/02/TlZ0bC.jpg';

}

else if (animalName == 'Tavuk')

{

TitleLabel.Text = 'Tavuk';

infoText = '1-Bar�nak: Hava alabilen, kuru, temiz ve gece korunakl� olmal�.' +

'2-Yuva: Yumurtlamalar� i�in rahat, samanl� yuval�klar bulunmal�.' +

'3-Beslenme: Dengeli tavuk yemi, tah�llar ve temiz su verilmelidir.' +

'4-Temizlik: K�mes d�zenli temizlenmeli, altl�klar de�i�tirilmeli.' +

'5-G�ne� ve A��k Alan: G�nd�zleri dola�abilecekleri a��k alan sa�lanmal�.' +

'6-Sa�l�k: Bit, pire ve solunum hastal�klar�na kar�� takip edilmeli.' +

'7-A��lama: Newcastle, Marek gibi hastal�klara kar�� d�zenli a�� yap�lmal�.';

imageUrl = 'https://resmim.net/cdn/2025/06/02/TlZOPK.jpg';

}

else if (animalName == '�rdek')

{

TitleLabel.Text = '�rdek';

infoText = '1-Bar�nak: R�zg�rs�z, temiz ve gece korumal� olmal�.' +

'2-Su: Suya girmeyi severler; k��k bir havuz veya su kab� bulunmal�.' +

'3-Beslenme: Tah�l, ye�illik ve �rdek yemleriyle beslenmeli.' +

'4-Temizlik: Su alan� ve bar�nak d�zenli temizlenmeli.' +

'5-Sa�l�k: T�y d�k�lmesi, solunum gibi belirtiler g�zlenmeli.' +

'6-A��lama: Ku� gribi gibi hastal�klara kar�� nlem al�nmal�.' +

'7-Yumurtlama: Yumurtlama i�in temiz ve sessiz yuva yerleri haz�rlanmal�.';

imageUrl = 'https://resmim.net/cdn/2025/06/02/TlZnCR.png';

}

Label2.Text = infoText;

Form1.SetImage(AnimalImg, imageUrl);

ProPanel1.Visible = True;

}

// Panel kapatma fonksiyonu

void ClosePanel;

{

ProPanel1.Visible = False;

}

// ListView'da se�ilen hayvana g�re bilgi paneli g�ncelle

void TaskClick

var

selectedAnimal

{

selectedAnimal = ListView1.clSelectedItemData(clText);

if (selectedAnimal <> '')

{

UpdateInfoPanel(selectedAnimal);

}

else

{

ShowMessage('Se�ilen hayvan bulunamad�.');

}

// Ba�l�k etiketini olu�tur

void setLabel;

{

Label1 = Form1.AddNewProLabel(Form1, 'Label1', 'Hayvanlar');

Label1.Align = alTop;

Label1.Width = 300;

Label1.Height = 60;

Label1.Margins.Top = 10;

Label1.clProSettings.FontColor = clAlphaColor.clHexToColor('#4CAF50');

Label1.clProSettings.FontSize = 32;

Label1.clProSettings.FontVertAlign = palcenter;

Label1.clProSettings.FontHorzAlign = palcenter;

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

Label1.clProSettings.IsFill = True;

Label1.clProSettings.IsRound = True;

Label1.SetclProSettings(Label1.clProSettings);

}

// ListView'� olu�tur

void CreateListView;

{

ListView1 = Form1.AddNewProListView(Form1, 'ListView1');

ListView1.Align = AlClient;

ListView1.Margins.Bottom = 20;

ListView1.Margins.Top = 20;

ListView1.Margins.Right = 20;

ListView1.Margins.Left = 20;

ListView1.clProSettings.ViewType = lvIcon;

ListView1.clProSettings.ColCount = 2;

ListView1.clProSettings.ItemHeight = 120;

ListView1.clProSettings.ItemSpace = 15;

ListView1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F5F5F5');

ListView1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#4CAF50');

ListView1.clProSettings.BorderWidth = 2;

ListView1.clProSettings.RoundHeight = 10;

ListView1.clProSettings.RoundWidth = 10;

ListView1.SetclProSettings(ListView1.clProSettings);

}

// Designer Panel'i olu�tur

void CreateDesignerPanel;

{

DesignerPanel1 = Form1.AddNewProListViewDesignerPanel(ListView1, 'DesignerPanel1');

DesignerPanel1.Height = 120;

DesignerPanel1.Width = 180;

DesignerPanel1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');

DesignerPanel1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#4CAF50');

DesignerPanel1.clProSettings.BorderWidth = 2;

DesignerPanel1.clProSettings.RoundHeight = 15;

DesignerPanel1.clProSettings.RoundWidth = 15;

DesignerPanel1.SetclProSettings(DesignerPanel1.clProSettings);

ListView1.SetDesignerPanel(DesignerPanel1);

}

// Designer Panel i�eri�ini olu�tur

void CreateData;

{

taskImg = Form1.AddNewProImage(DesignerPanel1, 'taskImg');

taskImg.Align = AlLeft;

taskImg.Margins.Top = 10;

taskImg.Margins.Bottom = 10;

taskImg.Margins.Left = 10;

DesignerPanel1.AddPanelObject(taskImg, clImage1);

taskName = Form1.AddNewProLabel(DesignerPanel1, 'taskName', 'test');

taskName.Align = AlVertCenter;

taskName.Height = 40;

taskName.Margins.Bottom = 10;

taskName.Margins.Top = 10;

taskName.Margins.Right = 10;

taskName.Margins.Left = 10;

taskName.clProSettings.FontColor = clAlphaColor.clHexToColor('#333333');

taskName.clProSettings.FontSize = 16;

taskName.clProSettings.FontVertAlign = palcenter;

taskName.clProSettings.FontHorzAlign = palcenter;

DesignerPanel1.AddPanelObject(taskName, clText);

Form1.AddNewEvent(ListView1, tbeOnItemClick, 'TaskClick');

}

// ListView'a veri ekle

void AddDataToListView;

{

ListView1.clLoadProListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[

{"taskName" : "�nek" , "taskImg" : "https://resmim.net/cdn/2025/05/20/TfXT6y.png"},

{"taskName" : "Koyun" , "taskImg" : "https://resmim.net/cdn/2025/05/20/TfX2hk.png"},

{"taskName" : "Ke�i" , "taskImg" : "https://resmim.net/cdn/2025/05/20/Tfj89H.png"},

{"taskName" : "Tavuk" , "taskImg" : "https://resmim.net/cdn/2025/05/20/Tfj7o2.png"},

{"taskName" : "�rdek" , "taskImg" : "https://resmim.net/cdn/2025/05/20/TfwSIR.png"}

]'));

}

// Ana program

{

Form1 = TclForm.Create(Self);

Form1.SetFormColor('#F5F5F5', '', clGNone);

CreateListView;

CreateDesignerPanel;

CreateData;

AddDataToListView;

setLabel;

CreateInfoPanel;

Form1.Run;

}

124. sat�rda ba�layan metni yazd�r�rken madde madde �eklinde alt sat�ra ge�irmek istiyorum ama yapamad�m hepsi yan yana oluyor. Yard�mc� olursan�z sevinirim.

Clomosy | Forum : Alt Sat�ra Ge�me

Alt Sat�ra Ge�me : Merhaba Mehmet,Sırayla yapman...

Alt Sat�ra Ge�me : var Form1: TclForm; ListView1:...