Hallo Leute,
ich habe mal wieder einen richtig blöden Fehler, bzw. weiß ich nicht wieso das so passiert.
Mein Quelltext sieht so aus: (Ausschnitt)
Delphi-Quellcode:
begin
FInInit := True;
try
FOnColorChanged := nil;
trackbarHelligkeit.Range.Min := round( ccLumDelta * 100);
trackbarHelligkeit.Range.Max := round( (ccLumDelta+ccIdleReduce) * 100);
btnAkzent.Down := True;
btnAkzentClick( nil);
LStylename := TStyleManager.ActiveStyle.Name;
SetVCLStyle( LStylename, ccColormode); // um den Stylenamen (var) zu bereinigen
lblCurrentStylename.Caption := LStylename;
Wichtig ist die Zeile
LStylename := ...
mit anschließendem
SetVCLStyle( LStylename, ...
Ist setze eine Variable und übergebe sie anschließend einer Funktion als VAR-Parameter.
Jetzt kommt die CPU-Ansicht im Debugger:
siehe Bild
Die Zeile 141 ist ganz nach oben gerutscht
Dort wird dies hier aufgerufen:
Code:
FInInit := True;
try
SetVCLStyle( ...
Also es wird erst die Funktion gestartet und später erst die Variable initialisiert.
Was ist das?