EULANDA® ERP System Head Start thru Technology

RGB (Pascal-Script)

Back | Level back

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;

Regeln zum Nachvollziehen des Scripts finden Sie hier.

Ü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

©Eulanda Software GmbH Made in Germany, 1989-2010. All rights reserved.