RGB (Pascal-Script) #

Beschreibung #

Wandelt einen RGB-Wert, der aus den Farbanteilen rot, grün und blau besteht in einen Integerwert um. Der Integerwert kann direkt dem Farbtyp TColor zugewiesen werden.

Syntax #

function RGB(aRed, aGreen, aBlue: Integer): Integer;

Argumente #

Über die Argumente aRed, aGreen und aBlue wird der Farbwert übergeben. Jeder Wert hat einen Wertebereich von 0-255. Werden alle Werte auf 255 gesetzt, so ergibt dies die Farbe weiß, werden alle Werte als 0 übergeben so ergibt dies schwarz.

Beispiel #

var
  i : Integer;
begin
  i:=Rgb(255,0,0);
  ShowMessage(IntToStr(i));
end;

Über die Funktion RGB wird der volle Rotanteil als Wert errechnet und der Variablen i zugewiesen. Dieser Wert wird über die Funktio StrToInt als Text umgewandelt und über ShowMessage am Bildschirm ausgegeben.

ShowMessage zeigt: 255