Tüm Platformlar için Hızlı Uygulama Geliştirme Kitap Yayın Süreci
Kitap gözden geçirilmek üzere BTG (Bilgi ve Teknoloji Grubu) 'na gönderildi. 05.10.2018-14:10
BTG (Bilgi ve Teknoloji Grubu) tarafından iki sayfalık bir reklam tasarımı bekleniyor. 08.10.2018 - 15:30
Kitap basım talebi değerlendirilmek üzere matbaaya bildirildi. Matbaadan basım süreci hakkında bilgi bekleniyor. 15.10.2018 - 15:34
Kitap 1.000 adet basım talebi ile matbaaya gönderildi. 16.10.2018 - 16:50

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
  Dinamik color ahmetb 0 68 30-09-2018, Saat: 13:21
Son Yorum: ahmetb
  Color Orhanlar 2 178 08-09-2018, Saat: 12:44
Son Yorum: Orhanlar
  Buton image sorunu (style) ahmetb 4 159 31-08-2018, Saat: 14:40
Son Yorum: mrmarman
Question delphi 10.2.3 edit-memo yazı tekrarı Mr.Developer 2 296 05-06-2018, Saat: 11:10
Son Yorum: Mr.Developer
  edit-numara formatında yazma ? Mr.Developer 8 348 28-05-2018, Saat: 16:36
Son Yorum: Mr.Developer



Konuyu Okuyanlar: 1 Ziyaretçi