Buton Text'i Hakkında

   Aşağıdaki kodumda buton oluşturuluyor. Ama addnewprobutton kısmında 3. parametre olan buton text'i butonun üzerine yazdırılmıyor:

function addbtn(GelenForm,konum,butonIsim,btnText, bgDeger,
bottomDeger,rightDeger,leftDeger,topDeger,HeightDeger,widthDeger,rhdeger,rwDeger,
fontClrDeger,brdrClrDeger): TClProButton;
var
  Btn : TClProButton;
begin

  Btn := GelenForm.AddNewProButton(konum,butonIsim,btnText);
  with Btn do
  begin
    //Align:= alignDeger;
    //caption:=btnText;
    Margins.Bottom := bottomDeger;
    Margins.Right := rightDeger;
    Margins.Left := leftDeger;
    Margins.Top := topDeger;
    Height := HeightDeger;
    //clprosettings.FontVertAlign := fontvertDeger;
   // clprosettings.fontHorzAlign := fonthorzDeger;
    clprosettings.RoundHeight :=rhdeger;
    clprosettings.RoundWidth := rwDeger;
    //clprosettings.FontSize := fontSizeDeger;
  end;
  //----------------------------------------------------------------------------
  if(bgDeger = '') then
  begin
    Btn.clProSettings.BackgroundColor:=clAlphaColor.clnull;
  end else
  begin
    Btn.clProSettings.BackgroundColor:=clAlphaColor.clHexToColor(bgDeger);
  end;
  //----------------------------------------------------------------------------
  if(fontClrDeger = '') then
  begin
    Btn.clProSettings.FontColor:=clAlphaColor.clnull;
  end else
  begin
    Btn.clProSettings.FontColor:=clAlphaColor.clHexToColor(fontClrDeger);
  end;
  //----------------------------------------------------------------------------
  if(brdrClrDeger = '') then
  begin
    Btn.clProSettings.FontColor:=clAlphaColor.clnull;
  end else
  begin
    Btn.clProSettings.FontColor:=clAlphaColor.clHexToColor(brdrClrDeger);
  end;
  //----------------------------------------------------------------------------

  Btn.SetclProSettings(Btn.clProSettings);
  Result := Btn;
end;

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
NadireNurSaglam Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 08 Ağustos 2024 Durum: Aktif Değil Puanlar: 37	Mesaj Seçenekleri Yanıt Yaz Alıntı NadireNurSaglam Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Buton Text'i Hakkında Gönderim Zamanı: 25 Ekim 2024 Saat 16:48
	Aşağıdaki kodumda buton oluşturuluyor. Ama addnewprobutton kısmında 3. parametre olan buton text'i butonun üzerine yazdırılmıyor: function addbtn(GelenForm,konum,butonIsim,btnText, bgDeger, bottomDeger,rightDeger,leftDeger,topDeger,HeightDeger,widthDeger,rhdeger,rwDeger, fontClrDeger,brdrClrDeger): TClProButton; var Btn : TClProButton; begin Btn := GelenForm.AddNewProButton(konum,butonIsim,btnText); with Btn do begin //Align:= alignDeger; //caption:=btnText; Margins.Bottom := bottomDeger; Margins.Right := rightDeger; Margins.Left := leftDeger; Margins.Top := topDeger; Height := HeightDeger; //clprosettings.FontVertAlign := fontvertDeger; // clprosettings.fontHorzAlign := fonthorzDeger; clprosettings.RoundHeight :=rhdeger; clprosettings.RoundWidth := rwDeger; //clprosettings.FontSize := fontSizeDeger; end; //---------------------------------------------------------------------------- if(bgDeger = '') then begin Btn.clProSettings.BackgroundColor:=clAlphaColor.clnull; end else begin Btn.clProSettings.BackgroundColor:=clAlphaColor.clHexToColor(bgDeger); end; //---------------------------------------------------------------------------- if(fontClrDeger = '') then begin Btn.clProSettings.FontColor:=clAlphaColor.clnull; end else begin Btn.clProSettings.FontColor:=clAlphaColor.clHexToColor(fontClrDeger); end; //---------------------------------------------------------------------------- if(brdrClrDeger = '') then begin Btn.clProSettings.FontColor:=clAlphaColor.clnull; end else begin Btn.clProSettings.FontColor:=clAlphaColor.clHexToColor(brdrClrDeger); end; //---------------------------------------------------------------------------- Btn.SetclProSettings(Btn.clProSettings); Result := Btn; end;

Developer Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Forum Yöneticisi Kayıt Tarihi: 14 Haziran 2023 Durum: Aktif Değil Puanlar: 354	Mesaj Seçenekleri Yanıt Yaz Alıntı Developer Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(1) Alıntı Cevapla Gönderim Zamanı: 25 Ekim 2024 Saat 17:10
	Merhaba Nadire, Aşağıdaki kodu alarak tekrar dener misiniz: function addbtn(GelenForm,konum,butonIsim,btnText, bgDeger, bottomDeger,rightDeger,leftDeger,topDeger,HeightDeger,widthDeger,rhdeger,rwDeger, fontClrDeger,brdrClrDeger): TClProButton; var Btn : TClProButton; begin Btn := GelenForm.AddNewProButton(konum,butonIsim,btnText); with Btn do begin //Align:= alignDeger; //caption:=btnText; Margins.Bottom := bottomDeger; Margins.Right := rightDeger; Margins.Left := leftDeger; Margins.Top := topDeger; Height := HeightDeger; //clprosettings.FontVertAlign := fontvertDeger; // clprosettings.fontHorzAlign := fonthorzDeger; clprosettings.RoundHeight :=rhdeger; clprosettings.RoundWidth := rwDeger; //clprosettings.FontSize := fontSizeDeger; end; //---------------------------------------------------------------------------- if(bgDeger = '') then begin Btn.clProSettings.BackgroundColor:=clAlphaColor.clwhite; end else begin Btn.clProSettings.BackgroundColor:=clAlphaColor.clHexToColor(bgDeger); end; //---------------------------------------------------------------------------- if(fontClrDeger = '') then begin Btn.clProSettings.FontColor:=clAlphaColor.clblack; end else begin Btn.clProSettings.FontColor:=clAlphaColor.clHexToColor(fontClrDeger); end; //---------------------------------------------------------------------------- if(brdrClrDeger = '') then begin Btn.clProSettings.FontColor:=clAlphaColor.clblack; end else begin Btn.clProSettings.FontColor:=clAlphaColor.clHexToColor(brdrClrDeger); end; //---------------------------------------------------------------------------- Btn.SetclProSettings(Btn.clProSettings); Result := Btn; end;