Paletteninitialisierung aufgeräumt

1 files changed, 33 insertions, 65 deletions

diff --git a/epostunit.pas b/epostunit.pas
index 4bc6655..38c6384 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -6343,84 +6343,52 @@ begin
 
   setlength(externeBefehle,0);
 
-  setlength(Paletten,5);
+  setlength(Paletten,6);
   Paletten[0].name:='Graustufen';
   setlength(Paletten[0].farben,2);
-  Paletten[0].farben[0].rgbRed:=  $ff;
-  Paletten[0].farben[0].rgbGreen:=$ff;
-  Paletten[0].farben[0].rgbBlue:= $ff;
-  Paletten[0].farben[1].rgbRed:=  $00;
-  Paletten[0].farben[1].rgbGreen:=$00;
-  Paletten[0].farben[1].rgbBlue:= $00;
+  Paletten[0].farben[0]:=rgb($ff,$ff,$ff);
+  Paletten[0].farben[1]:=rgb($00,$00,$00);
 
   Paletten[1].name:='invertierte Graustufen';
   setlength(Paletten[1].farben,2);
-  Paletten[1].farben[0].rgbRed:=  $00;
-  Paletten[1].farben[0].rgbGreen:=$00;
-  Paletten[1].farben[0].rgbBlue:= $00;
-  Paletten[1].farben[1].rgbRed:=  $ff;
-  Paletten[1].farben[1].rgbGreen:=$ff;
-  Paletten[1].farben[1].rgbBlue:= $ff;
+  Paletten[1].farben[0]:=rgb($00,$00,$00);
+  Paletten[1].farben[1]:=rgb($ff,$ff,$ff);
 
   Paletten[2].name:='Regenbogen';
   setlength(Paletten[2].farben,6);
-  Paletten[2].farben[0].rgbRed:=  $00;
-  Paletten[2].farben[0].rgbGreen:=$00;
-  Paletten[2].farben[0].rgbBlue:= $ff;
-  Paletten[2].farben[1].rgbRed:=  $00;
-  Paletten[2].farben[1].rgbGreen:=$ff;
-  Paletten[2].farben[1].rgbBlue:= $ff;
-  Paletten[2].farben[2].rgbRed:=  $00;
-  Paletten[2].farben[2].rgbGreen:=$ff;
-  Paletten[2].farben[2].rgbBlue:= $00;
-  Paletten[2].farben[3].rgbRed:=  $ff;
-  Paletten[2].farben[3].rgbGreen:=$ff;
-  Paletten[2].farben[3].rgbBlue:= $00;
-  Paletten[2].farben[4].rgbRed:=  $ff;
-  Paletten[2].farben[4].rgbGreen:=$00;
-  Paletten[2].farben[4].rgbBlue:= $00;
-  Paletten[2].farben[5].rgbRed:=  $00;
-  Paletten[2].farben[5].rgbGreen:=$00;
-  Paletten[2].farben[5].rgbBlue:= $00;
+  Paletten[2].farben[0]:=rgb($00,$00,$ff);
+  Paletten[2].farben[1]:=rgb($00,$ff,$ff);
+  Paletten[2].farben[2]:=rgb($00,$ff,$00);
+  Paletten[2].farben[3]:=rgb($ff,$ff,$00);
+  Paletten[2].farben[4]:=rgb($ff,$00,$00);
+  Paletten[2].farben[5]:=rgb($00,$00,$00);
 
   Paletten[3].name:='invertierter Regenbogen';
   setlength(Paletten[3].farben,6);
-  Paletten[3].farben[0].rgbRed:=  $00;
-  Paletten[3].farben[0].rgbGreen:=$00;
-  Paletten[3].farben[0].rgbBlue:= $00;
-  Paletten[3].farben[1].rgbRed:=  $ff;
-  Paletten[3].farben[1].rgbGreen:=$00;
-  Paletten[3].farben[1].rgbBlue:= $00;
-  Paletten[3].farben[2].rgbRed:=  $ff;
-  Paletten[3].farben[2].rgbGreen:=$ff;
-  Paletten[3].farben[2].rgbBlue:= $00;
-  Paletten[3].farben[3].rgbRed:=  $00;
-  Paletten[3].farben[3].rgbGreen:=$ff;
-  Paletten[3].farben[3].rgbBlue:= $00;
-  Paletten[3].farben[4].rgbRed:=  $00;
-  Paletten[3].farben[4].rgbGreen:=$ff;
-  Paletten[3].farben[4].rgbBlue:= $ff;
-  Paletten[3].farben[5].rgbRed:=  $00;
-  Paletten[3].farben[5].rgbGreen:=$00;
-  Paletten[3].farben[5].rgbBlue:= $ff;
+  Paletten[3].farben[0]:=rgb($00,$00,$00);
+  Paletten[3].farben[1]:=rgb($ff,$00,$00);
+  Paletten[3].farben[2]:=rgb($ff,$ff,$00);
+  Paletten[3].farben[3]:=rgb($00,$ff,$00);
+  Paletten[3].farben[4]:=rgb($00,$ff,$ff);
+  Paletten[3].farben[5]:=rgb($00,$00,$ff);
 
   Paletten[4].name:='Jet-Regenbogen';
   setlength(Paletten[4].farben,5);
-  Paletten[4].farben[0].rgbRed:=  $ff;
-  Paletten[4].farben[0].rgbGreen:=$00;
-  Paletten[4].farben[0].rgbBlue:= $00;
-  Paletten[4].farben[1].rgbRed:=  $ff;
-  Paletten[4].farben[1].rgbGreen:=$ff;
-  Paletten[4].farben[1].rgbBlue:= $00;
-  Paletten[4].farben[2].rgbRed:=  $00;
-  Paletten[4].farben[2].rgbGreen:=$ff;
-  Paletten[4].farben[2].rgbBlue:= $00;
-  Paletten[4].farben[3].rgbRed:=  $00;
-  Paletten[4].farben[3].rgbGreen:=$ff;
-  Paletten[4].farben[3].rgbBlue:= $ff;
-  Paletten[4].farben[4].rgbRed:=  $00;
-  Paletten[4].farben[4].rgbGreen:=$00;
-  Paletten[4].farben[4].rgbBlue:= $ff;
-
+  Paletten[4].farben[0]:=rgb($ff,$00,$00);
+  Paletten[4].farben[1]:=rgb($ff,$ff,$00);
+  Paletten[4].farben[2]:=rgb($00,$ff,$00);
+  Paletten[4].farben[3]:=rgb($00,$ff,$ff);
+  Paletten[4].farben[4]:=rgb($00,$00,$ff);
+
+  Paletten[5].name:='erweiterter Regenbogen';
+  setlength(Paletten[5].farben,8);
+  Paletten[5].farben[0]:=rgb($ff,$ff,$ff);
+  Paletten[5].farben[1]:=rgb($00,$00,$ff);
+  Paletten[5].farben[2]:=rgb($00,$ff,$ff);
+  Paletten[5].farben[3]:=rgb($00,$ff,$00);
+  Paletten[5].farben[4]:=rgb($ff,$ff,$00);
+  Paletten[5].farben[5]:=rgb($ff,$00,$00);
+  Paletten[5].farben[6]:=rgb($ff,$00,$ff);
+  Paletten[5].farben[7]:=rgb($00,$00,$00);
 end.