Guten Abend,
bin mal wieder auf ein mysteriöses Problem gestoßen: In meinem Programm erzeuge ich dynamisch eine beliebige Anzahl von
Panels, die einige
Labels beinhalten. Diese
Panels, mit
Labels als
Childrens, speicher ich dann in eine
Objectlist of TPanel. Funktioniert eigentlich ganz gut, wenn da nicht die Labels andauernd willkürliche irgendwelche anderen Schriftarten annehmen würden. Die Panels kommen in eine hotizontale Scrollbar, wo man dann hin -und her wischen kann.
Schaut euch einfach mal an wie ich das Ganze erzeug, vielleicht sieht ja jemand spontan den Fehler:
Delphi-Quellcode:
Result:= TPanel.Create(nil);
with Result do
begin
Height:= 150;
Width:= 150;
end;
with TImage.Create(Result) do
begin
Parent:= Result;
Height:= 57;
Width:= 57;
Position.X:= 88;
Position.Y:= 88;
Bitmap:= nil;
end;
with TLabel.Create(Result) do
begin
Parent:= Result;
AutoSize:= true;
Font.SetSettings('Arial Rounded MT Bold',22,[TFontStyle.fsBold]);
StyledSettings:= [TStyledSetting.ssFontColor];
Position.X:= 64;
Position.Y:= 58;
Text:= 'Test';
end;
with TLabel.Create(Result) do
begin
Parent:= Result;
Font.Size:= 14;
Height:= 21;
Width:= 73;
Position.X:= 8;
Position.Y:= 104;
Text:= 'Test2'
end;
Um euch noch komplett zu verwirren: Es kann auch vorkommen, dass ganz andere Labels, die zur designtime erzeugt wurden, andere stile annehmen.
Viele Grüße
Croco