Unit Collor; //29.07.2011 by Heizkoerper

Interface

Const MaxFarben       =99;

      clSchwarz       =$000000;
      clBlau          =$800000;
      clGruen         =$008000;
      clCyan          =$808000;
      clRot           =$000080;
      clMagenta       =$800080;
      clBraun         =$008080;
      clHellGrau      =$808080;
      clOlivGrau      =$73A8A8;
      clHellBlau      =$FF0000;
      clHellGruen     =$00FF00;
      clHellCyan      =$FFFF00;
      clHellRot       =$0000FF;
      clHellMagenta   =$FF00FF;
      clHellGelb      =$00FFFF;
      clLeuchtendWeiss=$FFFFFF;
      clGruenBeige    =$99E6E6;
      clBeige         =$99D4E6;
      clGoldGelb      =$00D6FF;
      clHonigGelb     =$00C2E6;
      clZitronenGelb  =$00E6E6;
      clGrauBeige     =$89BECD;
      clOlivGelb      =$89CDCD;
      clKadmiumGelb   =$00F5F5;
      clCurryGelb     =$00ADCD;
      clGelbOrange    =$00A8FF;
      clRotOrange     =$0069E6;
      clBlutOrange    =$0000F5;
      clReinOrange    =$0073FF;
      clKaminRot      =$0000E6;
      clRubinRot      =$0000CD;
      clPurpurRot     =$0000A8;
      clSchwarzRot    =$00007E;
      clOxidRot       =$5100A8;
      clBeigeRot      =$A8C0FF;
      clHellRosa      =$13425F;
      clLachsRot      =$A8A8FF;
      clHimbeerRot    =$6900E6;
      clRotLila       =$CD89BE;
      clBordeauxRot   =$7300A8;
      clBlauLila      =$E699C2;
      clPurpurViolett =$A8008F;
      clGruenBlau     =$A88F00;
      clUltramarinBlau=$CD6000;
      clSaphirBlau    =$A85100;
      clBrillantBlau  =$CDBE89;
      clGrauBlau      =$7E5900;
      clEnzianBlau    =$Cd8900;
      clStahlBlau     =$7E4100;
      clLichtBlau     =$E6D499;
      clTaubenBlau    =$CDAD89;
      clHimmelBlau    =$FFEBA8;
      clTuerkisBlau   =$BECD89;
      clOzeanBlau     =$7E7E00;
      clWasserBlau    =$ADCD00;
      clPatinaGruen   =$89CD89;
      clSmaragdGruen  =$00CD60;
      clLaubGruen     =$00A800;
      clOlivGruen     =$007E6D;
      clBlauGruen     =$6D7E00;
      clMoosGruen     =$007E00;
      clGrauOliv      =$08ED59;
      clFlaschenGruen =$6D7E59;
      clTannenGruen   =$597E00;
      clGrasGruen     =$00E669;
      clResedaGruen   =$89CD9C;
      clSchwarzGruen  =$757E59;
      clSchilfGruen   =$73A89C;
      clGelbOliv      =$007E7E;
      clSchwarzOliv   =$637E59;
      clTuerkisGruen  =$60CD00;
      clMaiGruen      =$00FF73;
      clGelbGruen     =$00FFA8;
      clWeissGruen    =$A8FFC0;
      clChromoxidGruen=$597E63;
      clBlassGruen    =$99E6AE;
      clBraunOliv     =$59757E;
      clOpalGruen     =$73A800;
      clLichtGruen    =$D6FFA8;
      clKieferGruen   =$8FA873;
      clMinzGruen     =$00CD00;
      clKhakiGrau     =$739CA8;
      clGruenGrau     =$597E75;
      clBraunGrau     =$597E7E;
      clSchieferGrau  =$999999;
      clAnthrazitGrau =$666666;
      clSchwarzGrau   =$1A1A1A;
      clGraphitGrau   =$7F7F7F;
      clGranitGrau    =$7E7E59;
      clLichtGrau     =$E9E9E9;
      clPlatinGrau    =$CCCCCC;
      clStaubGrau     =$B2B2B2;
      clGruenBraun    =$008FA8;
      clOckerBraun    =$0089CD;
      clLehmBraun     =$0073A8;
      clKupferBraun   =$0060CD;
      clNussBraun     =$00417E;
      clSepiaBraun    =$59637E;
      clBlassBraun    =$738FA8;
      
      Farben:Array[0..MaxFarben] Of
       Record
        Nummer:LongInt;
        Name  :String[15]
       End=(
       (Nummer:clSchwarz;       Name:'Schwarz'),
       (Nummer:clBlau;          Name:'Blau'),
       (Nummer:clGruen;         Name:'Grün'),
       (Nummer:clCyan;          Name:'Cyan'),
       (Nummer:clRot;           Name:'Rot'),
       (Nummer:clMagenta;       Name:'Magenta'),
       (Nummer:clBraun;         Name:'Braun'),
       (Nummer:clHellGrau;      Name:'HellGrau'),
       (Nummer:clOlivGrau;      Name:'OlivGrau'),
       (Nummer:clHellBlau;      Name:'HellBlau'),
       (Nummer:clHellGruen;     Name:'HellGrün'),
       (Nummer:clHellCyan;      Name:'HellCyan'),
       (Nummer:clHellRot;       Name:'HellRot'),
       (Nummer:clHellMagenta;   Name:'HellMagenta'),
       (Nummer:clHellGelb;      Name:'HellGelb'),
       (Nummer:clLeuchtendWeiss;Name:'LeuchtendWeiß'),
       (Nummer:clGruenBeige;    Name:'GrünBeige'),
       (Nummer:clBeige;         Name:'Beige'),
       (Nummer:clGoldGelb;      Name:'GoldGelb'),
       (Nummer:clHonigGelb;     Name:'HonigGelb'),
       (Nummer:clZitronenGelb;  Name:'ZitronenGelb'),
       (Nummer:clGrauBeige;     Name:'GrauBeige'),
       (Nummer:clOlivGelb;      Name:'OlivGelb'),
       (Nummer:clKadmiumGelb;   Name:'KadmiumGelb'),
       (Nummer:clCurryGelb;     Name:'CurryGelb'),
       (Nummer:clGelbOrange;    Name:'GelbOrange'),
       (Nummer:clRotOrange;     Name:'RotOrange'),
       (Nummer:clBlutOrange;    Name:'BlutOrange'),
       (Nummer:clReinOrange;    Name:'ReinOrange'),
       (Nummer:clKaminRot;      Name:'KaminRot'),
       (Nummer:clRubinRot;      Name:'RubinRot'),
       (Nummer:clPurpurRot;     Name:'PurpurRot'),
       (Nummer:clSchwarzRot;    Name:'SchwarzRot'),
       (Nummer:clOxidRot;       Name:'OxidRot'),
       (Nummer:clBeigeRot;      Name:'BeigeRot'),
       (Nummer:clHellRosa;      Name:'HellRosa'),
       (Nummer:clLachsRot;      Name:'LachsRot'),
       (Nummer:clHimbeerRot;    Name:'HimbeerRot'),
       (Nummer:clRotLila;       Name:'RotLila'),
       (Nummer:clBordeauxRot;   Name:'BordeauxRot'),
       (Nummer:clBlauLila;      Name:'BlauLila'),
       (Nummer:clPurpurViolett; Name:'PurpurViolett'),
       (Nummer:clGruenBlau;     Name:'GrünBlau'),
       (Nummer:clUltramarinBlau;Name:'UltramarinBlau'),
       (Nummer:clSaphirBlau;    Name:'SaphirBlau'),
       (Nummer:clBrillantBlau;  Name:'BrillantBlau'),
       (Nummer:clGrauBlau;      Name:'GrauBlau'),
       (Nummer:clEnzianBlau;    Name:'EnzianBlau'),
       (Nummer:clStahlBlau;     Name:'StahlBlau'),
       (Nummer:clLichtBlau;     Name:'LichtBlau'),
       (Nummer:clTaubenBlau;    Name:'TaubenBlau'),
       (Nummer:clHimmelBlau;    Name:'HimmelBlau'),
       (Nummer:clTuerkisBlau;   Name:'TürkisBlau'),
       (Nummer:clOzeanBlau;     Name:'OzeanBlau'),
       (Nummer:clWasserBlau;    Name:'WasserBlau'),
       (Nummer:clPatinaGruen;   Name:'PatinaGrün'),
       (Nummer:clSmaragdGruen;  Name:'SmaragdGrün'),
       (Nummer:clLaubGruen;     Name:'LaubGrün'),
       (Nummer:clOlivGruen;     Name:'OlivGrün'),
       (Nummer:clBlauGruen;     Name:'BlauGrün'),
       (Nummer:clMoosGruen;     Name:'MoosGrün'),
       (Nummer:clGrauOliv;      Name:'GrauOliv'),
       (Nummer:clFlaschenGruen; Name:'FlaschenGrün'),
       (Nummer:clTannenGruen;   Name:'TannenGrün'),
       (Nummer:clGrasGruen;     Name:'GrasGrün'),
       (Nummer:clResedaGruen;   Name:'ResedaGrün'),
       (Nummer:clSchwarzGruen;  Name:'SchwarzGrün'),
       (Nummer:clSchilfGruen;   Name:'SchilfGrün'),
       (Nummer:clGelbOliv;      Name:'GelbOliv'),
       (Nummer:clSchwarzOliv;   Name:'SchwarzOliv'),
       (Nummer:clTuerkisGruen;  Name:'TürkisGrün'),
       (Nummer:clMaiGruen;      Name:'MaiGrün'),
       (Nummer:clGelbGruen;     Name:'GelbGrün'),
       (Nummer:clWeissGruen;    Name:'WeißGrün'),
       (Nummer:clChromoxidGruen;Name:'ChromoxidGrün'),
       (Nummer:clBlassGruen;    Name:'BlaßGrün'),
       (Nummer:clBraunOliv;     Name:'BraunOliv'),
       (Nummer:clOpalGruen;     Name:'OpalGrün'),
       (Nummer:clLichtGruen;    Name:'LichtGrün'),
       (Nummer:clKieferGruen;   Name:'KieferGrün'),
       (Nummer:clMinzGruen;     Name:'MinzGrün'),
       (Nummer:clOlivGrau;      Name:'OlivGrau'),
       (Nummer:clKhakiGrau;     Name:'KhakiGrau'),
       (Nummer:clGruenGrau;     Name:'GrünGrau'),
       (Nummer:clBraunGrau;     Name:'BraunGrau'),
       (Nummer:clSchieferGrau;  Name:'SchieferGrau'),
       (Nummer:clAnthrazitGrau; Name:'AnthrazitGrau'),
       (Nummer:clSchwarzGrau;   Name:'SchwarzGrau'),
       (Nummer:clGraphitGrau;   Name:'GraphitGrau'),
       (Nummer:clGranitGrau;    Name:'GranitGrau'),
       (Nummer:clLichtGrau;     Name:'LichtGrau'),
       (Nummer:clPlatinGrau;    Name:'PlatinGrau'),
       (Nummer:clStaubGrau;     Name:'StaubGrau'),
       (Nummer:clGruenBraun;    Name:'GrünBraun'),
       (Nummer:clOckerBraun;    Name:'OckerBraun'),
       (Nummer:clLehmBraun;     Name:'LehmBraun'),
       (Nummer:clKupferBraun;   Name:'KupferBraun'),
       (Nummer:clNussBraun;     Name:'NußBraun'),
       (Nummer:clSepiaBraun;    Name:'SepiaBraun'),
       (Nummer:clBlassBraun;    Name:'BlaßBraun'));

Implementation

End.