Clomosy | Forum : Buton Text'i Hakkında https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 14:37:27 +0000 Fri, 25 Oct 2024 17:10:29 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=947 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Buton Text'i Hakkında : Merhaba Nadire,Aşağıdaki kodu...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=947&PID=1861#1861 Yazar: Developer
Konu: 947
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; 
]]> Fri, 25 Oct 2024 17:10:29 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=947&PID=1861#1861 <![CDATA[Buton Text'i Hakkında : Aşağıdaki kodumda buton oluşturuluyor....]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=947&PID=1860#1860 Yazar: NadireNurSaglam
Konu: 947
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;
]]> Fri, 25 Oct 2024 16:48:04 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=947&PID=1860#1860