Es gibt ein kleines problem im Sepia Tab.
In der Winproc uMain einfach mit dem hier ersetzen.
Delphi-Quellcode:
// Nächste Sepia Farbe
ID_BTN_SEPIAR:
begin
if (SepiaToneIndex >= 0)
and (SepiaToneIndex < High(SepiaToneArray))
then
begin
inc(SepiaToneIndex);
tmpStr := Split(SepiaToneArray[SepiaToneIndex], '
;');
SepiaColor.Color :=
RGB(StrToInt(tmpStr[1]),
StrToInt(tmpStr[2]), StrToInt(tmpStr[3]));
SKAERO_SetCTLText(lblSepiaToneStr.Handle, tmpStr[0]);
Settings.SepiaColorText := tmpStr[0];
end;
end;
gruss