Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - label ekleme
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

label ekleme
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
kacar.nursena Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 20 Ağustos 2024
Durum: Aktif Değil
Puanlar: 27 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kacar.nursena Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: label ekleme
    Gönderim Zamanı: 10 Eylül 2024 Saat 10:27
kodda panelelabel eklemeye çalışıyorum ancak hata alıyorum:
var
  mainform: TCLForm;
  AtistirmaliklarPage: TclProPanel;
  Button: TClProButton;
  ProductID: Integer;
  ProductName: string;
  ProductPrice: Double;
  ProductImageURL: string;
  ProductQuery: TclSqlQuery;
  PriceLabel,NameLabel:TClProLabel;
  i:integer;
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;
end;

procedure LoadProductsToPage;
var
  PriceLabel, NameLabel: TClLabel;  // Fiyat ve ürün adını göstermek için label eklendi
begin
  ProductQuery := TclSqlQuery.Create(nil);
  try
    ProductQuery.Connection := Clomosy.DBSQLServerConnection;
    ProductQuery.SQL.Text := 'SELECT ProductID, ProductName, ProductPrice, ProductImageURL FROM Products';  
    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'+IntToStr(i), '');
        try
          i := i + 1;
          Button.Width := 120;
          Button.Height := 120;
          if Assigned(mainform) then
            mainform.SetImage(Button, ProductImageURL);

          // Diğer buton özelliklerini ayarla
          Button.Margins.Bottom := 400 - i * 300;
          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);

            // Create and configure the price label
       // PriceLabel := TClProLabel.Create(AtistirmaliklarPage);
        PriceLabel := AtistirmaliklarPage.AddNewProLabel(AtistirmaliklarPage,'PriceLabel'+IntToStr(i),'');
        PriceLabel.Margins.Bottom := Button.Margins.Bottom + Button.Height + 10;
        PriceLabel.Margins.Right := Button.Margins.Right;
        PriceLabel.Width := Button.Width;
        PriceLabel.Text := 'Fiyat: ' + FloatToStr(ProductPrice) + ' TL';
        PriceLabel.clProSettings.TextSettings.Font.Style := [fsBold];
        PriceLabel.clProSettings.FontColor := clAlphaColor.clHexToColor('#000000');
        PriceLabel.FontVertAlign := palCenter;
        PriceLabel.FontHorzAlign := palCenter;
        PriceLabel.SetclProSettings(PriceLabel.clProSettings);
       
        // Create and configure the name label
        //NameLabel := TClProLabel.Create(AtistirmaliklarPage);
       // NameLabel.Parent := AtistirmaliklarPage;
        NameLabel := MyForm.AddNewProLabel(AtistirmaliklarPage,'NameLabel'+IntToStr(i),'');
        NameLabel.Top := PriceLabel.Top + PriceLabel.Height + 5;
        NameLabel.Margins.Right := Button.Margins.Right;
        NameLabel.Width := Button.Width;
        NameLabel.Text := ProductName;
        NameLabel.clProSettings.TextSettings.Font.Style := [fsBold];
        NameLabel.clProSettings.FontColor := clAlphaColor.clHexToColor('#000000');
        NameLabel.FontVertAlign := palCenter;
        NameLabel.FontHorzAlign := palCenter;
        NameLabel.SetclProSettings(NameLabel.clProSettings);
        except
          ShowMessage('Buton oluşturulurken hata: ' );
        end;

        ProductQuery.Next;
      except
        ShowMessage('Ürün bilgileri işlenirken hata: ' );
      end;
    end;
  finally
    ProductQuery.Close;
    ProductQuery.Free;
  end;
end;
begin
 mainform := TCLForm.Create(self);
 mainform.Run;
 end;

--------------------------------------------------------------------
Unknown member method: 'AddNewProLabel'.
Source position: 67,106
Clomosy Build : 20240709.111531
--------------------------------------------------------------------
LastUnitName:AtistirmaliklarPage
var
  mainform: TCLForm;
  AtistirmaliklarPage: TclProPanel;
  Button: TClProButton;
  ProductID: Integer;
  ProductName: string;
  ProductPrice: Double;
  ProductImageURL: string;
  ProductQuery: TclSqlQuery;
  PriceLabel,NameLabel:TClProLabel;
  i:integer;
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;
end;

procedure LoadProductsToPage;
var
  PriceLabel, NameLabel: TClLabel;  // Fiyat ve ürün adını göstermek için label eklendi
begin
  ProductQuery := TclSqlQuery.Create(nil);
  try
    ProductQuery.Connection := Clomosy.DBSQLServerConnection;
    ProductQuery.SQL.Text := 'SELECT ProductID, ProductName, ProductPrice, ProductImageURL FROM Products';  
    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'+IntToStr(i), '');
        try
          i := i + 1;
          Button.Width := 120;
          Button.Height := 120;
          if Assigned(mainform) then
            mainform.SetImage(Button, ProductImageURL);

          // Diğer buton özelliklerini ayarla
          Button.Margins.Bottom := 400 - i * 300;
          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);

            // Create and configure the price label
       // PriceLabel := TClProLabel.Create(AtistirmaliklarPage);
        PriceLabel := AtistirmaliklarPage.AddNewProLabel(AtistirmaliklarPage,'PriceLabel'+IntToStr(i),'');
        PriceLabel.Margins.Bottom := Button.Margins.Bottom + Button.Height + 10;
        PriceLabel.Margins.Right := Button.Margins.Right;
        PriceLabel.Width := Button.Width;
        PriceLabel.Text := 'Fiyat: ' + FloatToStr(ProductPrice) + ' TL';
        PriceLabel.clProSettings.TextSettings.Font.Style := [fsBold];
        PriceLabel.clProSettings.FontColor := clAlphaColor.clHexToColor('#000000');
        PriceLabel.FontVertAlign := palCenter;
        PriceLabel.FontHorzAlign := palCenter;
        PriceLabel.SetclProSettings(PriceLabel.clProSettings);
       
        // Create and configure the name label
        //NameLabel := TClProLabel.Create(AtistirmaliklarPage);
       // NameLabel.Parent := AtistirmaliklarPage;
        NameLabel := MyForm.AddNewProLabel(AtistirmaliklarPage,'NameLabel'+IntToStr(i),'');
        NameLabel.Top := PriceLabel.Top + PriceLabel.Height + 5;
        NameLabel.Margins.Right := Button.Margins.Right;
        NameLabel.Width := Button.Width;
        NameLabel.Text := ProductName;
        NameLabel.clProSettings.TextSettings.Font.Style := [fsBold];
        NameLabel.clProSettings.FontColor := clAlphaColor.clHexToColor('#000000');
        NameLabel.FontVertAlign := palCenter;
        NameLabel.FontHorzAlign := palCenter;
        NameLabel.SetclProSettings(NameLabel.clProSettings);
        except
          ShowMessage('Buton oluşturulurken hata: ' );
        end;

        ProductQuery.Next;
      except
        ShowMessage('Ürün bilgileri işlenirken hata: ' );
      end;
    end;
  finally
    ProductQuery.Close;
    ProductQuery.Free;
  end;
end;
begin
 mainform := TCLForm.Create(self);
 mainform.Run;
 end;

var
  mainform: TCLForm;
  AtistirmaliklarPage: TclProPanel;
  Button: TClProButton;
  ProductID: Integer;
  ProductName: string;
  ProductPrice: Double;
  ProductImageURL: string;
  ProductQuery: TclSqlQuery;
  PriceLabel,NameLabel:TClProLabel;
  i:integer;
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;
end;

procedure LoadProductsToPage;
var
  PriceLabel, NameLabel: TClLabel;  // Fiyat ve ürün adını göstermek için label eklendi
begin
  ProductQuery := TclSqlQuery.Create(nil);
  try
    ProductQuery.Connection := Clomosy.DBSQLServerConnection;
    ProductQuery.SQL.Text := 'SELECT ProductID, ProductName, ProductPrice, ProductImageURL FROM Products';  
    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'+IntToStr(i), '');
        try
          i := i + 1;
          Button.Width := 120;
          Button.Height := 120;
          if Assigned(mainform) then
            mainform.SetImage(Button, ProductImageURL);

          // Diğer buton özelliklerini ayarla
          Button.Margins.Bottom := 400 - i * 300;
          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);

            // Create and configure the price label
       // PriceLabel := TClProLabel.Create(AtistirmaliklarPage);
        PriceLabel := AtistirmaliklarPage.AddNewProLabel(AtistirmaliklarPage,'PriceLabel'+IntToStr(i),'');
        PriceLabel.Margins.Bottom := Button.Margins.Bottom + Button.Height + 10;
        PriceLabel.Margins.Right := Button.Margins.Right;
        PriceLabel.Width := Button.Width;
        PriceLabel.Text := 'Fiyat: ' + FloatToStr(ProductPrice) + ' TL';
        PriceLabel.clProSettings.TextSettings.Font.Style := [fsBold];
        PriceLabel.clProSettings.FontColor := clAlphaColor.clHexToColor('#000000');
        PriceLabel.FontVertAlign := palCenter;
        PriceLabel.FontHorzAlign := palCenter;
        PriceLabel.SetclProSettings(PriceLabel.clProSettings);
       
        // Create and configure the name label
        //NameLabel := TClProLabel.Create(AtistirmaliklarPage);
       // NameLabel.Parent := AtistirmaliklarPage;
        NameLabel := MyForm.AddNewProLabel(AtistirmaliklarPage,'NameLabel'+IntToStr(i),'');
        NameLabel.Top := PriceLabel.Top + PriceLabel.Height + 5;
        NameLabel.Margins.Right := Button.Margins.Right;
        NameLabel.Width := Button.Width;
        NameLabel.Text := ProductName;
        NameLabel.clProSettings.TextSettings.Font.Style := [fsBold];
        NameLabel.clProSettings.FontColor := clAlphaColor.clHexToColor('#000000');
        NameLabel.FontVertAlign := palCenter;
        NameLabel.FontHorzAlign := palCenter;
        NameLabel.SetclProSettings(NameLabel.clProSettings);
        except
          ShowMessage('Buton oluşturulurken hata: ' );
        end;

        ProductQuery.Next;
      except
        ShowMessage('Ürün bilgileri işlenirken hata: ' );
      end;
    end;
  finally
    ProductQuery.Close;
    ProductQuery.Free;
  end;
end;
begin
 mainform := TCLForm.Create(self);
 mainform.Run;
 end;

--------------------------------------------------------------------
Unknown member method: 'AddNewProLabel'.
Source position: 67,106
Clomosy Build : 20240709.111531
--------------------------------------------------------------------
LastUnitName:AtistirmaliklarPage
--------------------------------------------------------------------
Unknown member method: 'AddNewProLabel'.
Source position: 67,106
Clomosy Build : 20240709.111531
--------------------------------------------------------------------
LastUnitName:AtistirmaliklarPage
Yukarı Dön
BilalCndn Açılır Kutu İzle
Forum Yöneticisi
Forum Yöneticisi
Simge

Kayıt Tarihi: 09 Ekim 2023
Durum: Aktif Değil
Puanlar: 150 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı BilalCndn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 10 Eylül 2024 Saat 13:18
Merhaba Nursena,

AddNewProLabel metodu TclForm nesnesinin bir metodur. Form isminizin mainform olduğunu görüyorum. Doğru kullanımı aşağıdaki gibidir.

PriceLabel := mainform.AddNewProLabel(AtistirmaliklarPage,'PriceLabel'+IntToStr(i),'');

İyi çalışmalar dilerim.
Bilal Candan

Atiker Yazılım Veri İşlem A.Ş.
Software Developer

[email protected]
Yukarı Dön
kacar.nursena Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 20 Ağustos 2024
Durum: Aktif Değil
Puanlar: 27 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kacar.nursena Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 10 Eylül 2024 Saat 13:41
teşekkür ederim düzelttim ancak bu sefer de bu hatayı alıyorum :Unknown member identifier: 'clProSettings'.
Source position: 72,34
Clomosy Build : 20240709.111531
Yukarı Dön
BilalCndn Açılır Kutu İzle
Forum Yöneticisi
Forum Yöneticisi
Simge

Kayıt Tarihi: 09 Ekim 2023
Durum: Aktif Değil
Puanlar: 150 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı BilalCndn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 10 Eylül 2024 Saat 14:53
Merhaba Nursena,

LoadProductsToPage procedure'ü içinde var kısmında local bir şekilde PriceLabel ve NameLabel TclLabel nesnesi olarak tanımlanmış. Global olarak TclProLabel nesnelerini doğru tanımlamışsın. Yapılan local tanımlamayı silersen sorunun çözülecektir.

İyi çalışmalar dilerim.
Bilal Candan

Atiker Yazılım Veri İşlem A.Ş.
Software Developer

[email protected]
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,063 Saniyede Yüklendi.