Hallo ich bekomme Fehlermeldung:Ungültige Gleitkommaoperation!!
Hier erstmal der Link zum Thread
RGB Funktion
Ich habe die übernommen aber bei blend wert definition mekert er
Hier der Code:
Delphi-Quellcode:
blend := Round(AnzeigeWinkel/DrehWinkel);
////<<<<---- genau hier ist der Fehler/Bei z.B.blend:=0.5 zeigt er richtig die farbe
LedColor := ColorsBetween([clGreen, clYellow, clRed],blend);
//// und dann kommt die LED Grafik
with RecT
do
begin
OldPen := SelectObject(
DC,CreatePen(ps_Solid,1,0));
OldBrush := SelectObject(
DC,CreateSolidBrush(LedColor));
while n > 0
do
begin
Dec(n);
x := (ZentrumX + Trunc(Cos(LEDWinkel) * r1));
y := (ZentrumY - Trunc(Sin(LEDWinkel) * r2));
Ellipse(
DC,x - LED_RADIUS, y - LED_RADIUS, x + LED_RADIUS, y + LED_RADIUS);
LEDWinkel:=LEDWinkel-(Pi/8);
end;
Woran kann es liegen Round???? oder? ergibt doch Integer Wert??
Grüss Pinki