Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Edit ve buton color
#1
Selam; Label dışında edit ve butonun rengi neden değiştirilemez? veya renk değişikliğini ben yanlış mı yapıyorum?

 
  Edit13.TextSettings.Font.Style := [];
  Edit13.TextSettings.FontColor := TAlphaColors.Black;

  Button13.TextSettings.Font.Style := [TFontStyle.fsBold];
  Button13.TextSettings.FontColor := TAlphaColors.Blue;
Cevapla
#2
Merhaba,
FMX mimarisinde; 
bir nesnenin metin içeriği veya başlık bilgilerinin Style özellikleri, Design Time'da değiştirildiğinde doğrudan nesneye yansıyor iken, Run Time'da bu özelliklere bir değer atanması, metin stiline doğrudan etki etmiyor.
Çalışma anında bu özelliklerin etkin olması için öncelikle nesnenin StyledSettings özelliğine, hangi stillerin kullanılması gerektiğinin bildirilmesi gerekiyor.

 Button1.StyledSettings := Button1.StyledSettings - [TStyledSetting.FontColor,   TStyledSetting.Style, TStyledSetting.Size];
 Button1.TextSettings.FontColor := TAlphaColors.Blue;
 Button1.TextSettings.Font.Style := [TFontStyle.fsBold];
 Button1.TextSettings.Font.Size := 30;

 Edit1.StyledSettings := Edit1.StyledSettings - [TStyledSetting.Style,   TStyledSetting.FontColor];
 Edit1.TextSettings.Font.Style := [];
 Edit1.TextSettings.FontColor := TAlphaColors.Black;

metinstili.gif
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#3
Üstadım elinize sağlık, aklıma bir yöntem geldi her buton için ayrı, ayrı kodları ekleyip kod kalabalığı yapmaktansa function çözmeye çalışayım dedim, fakat çıkamadım işin içinden yardımcı olursanız sevinirim, mouse hangi butondaysa o butonun adını alıp kodların entegre edemedim...



function BtnColor(StrName: String): String;
begin
 StrName.StyledSettings := StrName.StyledSettings - [TStyledSetting.Style,TStyledSetting.FontColor];
 StrName.TextSettings.Font.Style := [];
 StrName.TextSettings.FontColor := TAlphaColors.Black;
end;


procedure TForm1.BtnGirisMouseMove(Sender: TObject; Shift: TShiftState;
 X, Y: Single);
begin
 BtnColor(TButton(Sender).Name);
end;
Cevapla
#4
Rica ederim.
OnMauseMove olayını aşağıdaki gibi değiştirin.
procedure TForm1.BtnGirisMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Single);
begin
  if Sender is TButton then 
    BtnColor(TButton(Sender));
end;

fonksiyon, procedure olmalı, içeriği ise aşağıdaki gibi olmalıdır.
procedure BtnColor(Buton:TButton);
begin
  Buton.StyledSettings :=Buton.StyledSettings - [TStyledSetting.Style,TStyledSetting.FontColor];
  Buton.TextSettings.Font.Style := [];
  Buton.TextSettings.FontColor := TAlphaColors.Black;
end;
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Question delphi 10.2.3 edit-memo yazı tekrarı BY-HAYALET 2 232 05-06-2018, Saat: 11:10
Son Yorum: BY-HAYALET
  edit-numara formatında yazma ? BY-HAYALET 8 260 28-05-2018, Saat: 16:36
Son Yorum: BY-HAYALET
Question Listview Edit Ekleme ve Button Yüksekliği Ayarı elixir84 11 487 22-05-2018, Saat: 21:51
Son Yorum: mcuyan
  Firemonkey edit ve memo da @ karakteri beklentili 6 413 26-02-2018, Saat: 23:01
Son Yorum: hyperxman
  Edit renklendirilince proje hiç açılmadan kapanıyor[Çözüldü] hakanharbeli 4 401 03-02-2018, Saat: 18:54
Son Yorum: hakanharbeli



Konuyu Okuyanlar: 1 Ziyaretçi