komut : Merhaba Nursena, for (i = 1 to...

Tue, 10 Sep 2024 13:36:11 +0000

Yazar: BilalCndn
Konu: 926
G�nderim Zaman�: 10 Eyl�l 2024 Saat 13:36

Merhaba Nursena,

for (i = 1 to 7)   {     testImg = MyForm.AddNewProImage(lytContainer,'testImg'+IntToStr(i));     testImg.Align = alLeft;     testImg.Margins.Left = 10;     testImg.Width = 100;     MyForm.SetImage(testImg,'https://media1.cucuvi.com/Dic19/BD220BD4-7AEA-43FA-AF97-E62D073AFD1B.jpg');     lytContainer.Width = lytContainer.Width + testImg.Width + testImg.Margins.Left;   }

Bu �rne�i inceleyerek dinamik olarak nesneler olu�turabilirsin.

Veritaban�na select sorgusu atarak gelen veri say�s�nca d�ng�ye girmesini sa�layabilirsin.

�yi �al��malar dilerim.

komut : Dökümantasyon'a baktım ancak...

Mon, 09 Sep 2024 15:40:00 +0000

Yazar: kacar.nursena
Konu: 926
G�nderim Zaman�: 09 Eyl�l 2024 Saat 15:40

D�k�mantasyon'a bakt�m ancak ben database'e �r�n ekledik�e bu �r�nleri otomatik olarak panele ekleyebilece�im bir komut bulamad�m a��a�daki koda eklemek istiyorm bu konuda yard�mc� olabilirseniz �ok sevinirim.

var

mainform: TCLForm;

AtistirmaliklarPage: TclProPanel;

Button: TClProButton;

ProductID: Integer;

ProductName: string;

ProductPrice: Double;

ProductImageURL: string;

ProductQuery: TclSqlQuery;

procedure SetupDatabaseConnection;

begin

try

Clomosy.DBSQLServerConnect('SQL Server', 'clomosybakkal.database.windows.net', 'nrs', 'n.12345678', 'Bakkal', 1433);

ShowMessage('Veritaban� ba�lant�s� ba�ar�yla kuruldu!');

except

ShowMessage('Veritaban� ba�lant�s� kurulamad�: ' );

end;

procedure LoadProductsToPage;

begin

ProductQuery := TclSqlQuery.Create(nil);

try

ProductQuery.Connection := Clomosy.DBSQLServerConnection;

ProductQuery.SQL.Text := 'SELECT ProductID, ProductName, ProductPrice, ProductImageURL FROM Products'; // Category yok, sorguyu d�zelttik

try

ProductQuery.Open;

except

ShowMessage('�r�n sorgusu a��lamad�: ' );

end;

while not ProductQuery.Eof do

begin

try

ProductID := ProductQuery.FieldByName('ProductID').AsInteger;

ProductName := ProductQuery.FieldByName('ProductName').AsString;

ProductPrice := ProductQuery.FieldByName('ProductPrice').AsFloat;

ProductImageURL := ProductQuery.FieldByName('ProductImageURL').AsString;

// Buton olu�tur ve yap�land�r

Button := mainform.AddNewProButton(AtistirmaliklarPage, 'Button', '');

// Button := TClProButton.Create(AtistirmaliklarPage);

try

Button.Width := 120;

Button.Height := 120;

// Button.Text := ProductName;

if Assigned(mainform) then

mainform.SetImage(Button, ProductImageURL);

// Di�er buton �zelliklerini ayarla

Button.Margins.Bottom := 400;

Button.Margins.Right := 100;

Button.clProSettings.RoundHeight := 10;

Button.clProSettings.RoundWidth := 10;

Button.clProSettings.FontVertAlign := palCenter;

Button.clProSettings.FontHorzAlign := palCenter;

Button.clProSettings.TextSettings.Font.Style := [fsBold];

Button.clProSettings.BorderColor := clAlphaColor.clHexToColor('#d1d1d1');

Button.clProSettings.BorderWidth := 1;

Button.SetclProSettings(Button.clProSettings);

except

ShowMessage('Buton olu�turulurken hata: ' );

end;

ProductQuery.Next;

except

ShowMessage('�r�n bilgileri i�lenirken hata: ' );

end;

finally

ProductQuery.Close;

ProductQuery.Free;

end;

procedure AddProductPage;

begin

try

AtistirmaliklarPage := mainform.AddNewProPanel(mainform, 'AtistirmaliklarPage');

if Assigned(AtistirmaliklarPage) then

begin

AtistirmaliklarPage.Align := alClient;

AtistirmaliklarPage.Margins.Left := 10;

AtistirmaliklarPage.Margins.Right := 10;

AtistirmaliklarPage.Margins.Top := 5;

AtistirmaliklarPage.Margins.Bottom := 10;

AtistirmaliklarPage.clProSettings.BackgroundColor := clAlphaColor.clHexToColor('#ffffff');

AtistirmaliklarPage.SetclProSettings(AtistirmaliklarPage.clProSettings);

// �r�nleri sayfaya y�kle

try

LoadProductsToPage;

except

ShowMessage('�r�nleri sayfaya y�klerken hata: ' );

end;

end

else

ShowMessage('At��t�rmal�klar sayfas� olu�turulamad�');

except

ShowMessage('Panel olu�turulurken hata: ' );

end;

begin

mainform := TCLForm.Create(nil);

try

mainform.SetFormColor('#CBEDD5', '', clGNone);

SetupDatabaseConnection;

try

AddProductPage;

except

ShowMessage('Ana form �al��t�r�l�rken hata: ' );

end;

mainform.Run;

except

ShowMessage('Ana form �al��t�r�l�rken hata: ' );

end;

end.

Clomosy | Forum : komut

komut : Merhaba Nursena, for (i = 1 to...

komut : Dökümantasyon'a baktım ancak...