Farben ersetzen

[ferby]

Hi,


kann mir keiner helfen??????

:(

[Khabarakh]

Ich hoffe mal, dass ich TColor nicht verdreht habe:

Delphi-Quellcode:

Color := Reserved shl 24 or Blue shl 16 or Green shl 8 or Red;

[ferby]

Hallo,

ich wollte gerade deine Mehtode ausprobieren ob sie hinhaut,
leider kommt eine Fehlermeldung

[Fehler] Unit1.pas(137): Undefinierter Bezeichner: 'Reserved'


Kannst du mir weiter helfen?


Ferby

[turboPASCAL]

Reserved ist wie Rot, Grün und Blau nur ein "Platzhalter" um die Vohrgehensweise darzustellen.

Code:

procedure ...
var
  Reserved, Rot, Gruen, Blau : Byte;

  Color: Tcolor;
begin
  Reserved := $00;  // Ist reserviert für Systemfarben

  // Aufbau TColor = Longint bzw. Cardinal = $00[color=#0000ff]00[/color][color=#00ff00]00[/color][color=#ff0000]00[/color]
 
  Rot   := 50;
  Blau  := 128;
  Gruen := 255;

  Color := Reserved shl 24 or Blue shl 16 or Green shl 8 or Red;

end;

Delphi-Quellcode:

function RGB(R,G,B: Byte): Cardinal;
begin
  Result := $00000000 shl 24 or B shl 16 or G shl 8 or R;
end;