Hallo schöner Günther
besten Dank für deine Tipps. Weder Bereinigung, Neustart von Windows und Delphi lösen das Problem.
Ich habe die Zeile isoliert, welche den Fehler auslöst:
hbit.Canvas.pen.color := Winapi.Windows.RGB(hh*25, hh*25, hh*25); // ERR
Hingegen funktioniert zum Beispiel:
hbit.Canvas.pen.color := Winapi.Windows.RGB(hh*20, hh*40, 20); // OK
oder es klappt auch wenn ich in der Fehlerzeile zwei der drei
RGB Werte durch Konstanten ersetze:
hbit.Canvas.pen.color := Winapi.Windows.RGB(25, hh*25, 25);
Das Projekt besteht aus vielen Forms/Units.
Es ist dabei egal in welche
Unit und wo in der
Unit ich diese Test-procedure reinkopiere:
Delphi-Quellcode:
procedure dummydummy;
var hh : integer;
hbit :
VCL.Graphics.TBitMap;
begin
hbit :=
VCL.Graphics.TBitmap.Create;
try
hh := 1;
// hbit.Canvas.pen.color := Winapi.Windows.RGB(hh*20, hh*40, 20); // OK
hbit.Canvas.pen.color :=
Winapi.Windows.RGB(hh*25, hh*25, 25);
// ERR
finally
hbit.free;
end;
end;
Das Verhalten ist immer gleich.