De onderstaande code werkt bij mij, om de iets in de style te veranderen moet je deze eerst "vrijgeven" in de styledsettings. daarna kun je daadwerkelijk wat veranderen kleur.
Dit Label wordt ook dynamisch aangemaakt.
Delphi Code:
MaandLabel := TLabel.Create(Self);
with MaandLabel do
begin
Parent := TabControl1;
//als je wat wilt veranderen aan de style van de font dien je deze eerst vrij te geven in de styledsettings
StyledSettings := MaandLabel.StyledSettings - [TStyledSetting.ssFamily, TStyledSetting.ssSize, TStyledSetting.ssStyle, TStyledSetting.ssFontColor];
TextSettings.Font.Style := [TfontStyle.fsUnderline];
TextSettings.Font.Size := 8;
FontColor := TAlphaColors.Red;
Text := FormatDateTime('mmmm, YYYY',HDate);
Position.X := 15 ;
Position.Y := 15;
Wordwrap := false;
AutoSize := true;
end;
krijg de code niet in een mooi kadertje, excuses hiervoor
Bookmarks