RGB

retourne un entier définissant la couleur à partir de ces composants rouge, vert et bleu

function RGB(r,g,b:integer):Tcolor;

Pour exploiter la couleur obtenue dans une balise de fonte, il vous faudra faire comme dans cet exemple :

var ffnt,couleur:string;
color:TColor;
begin
ffnt := '<<FNT(Arial,10,$%s,:%s)>>';
color := RGB(255,0,255);
couleur := IntToHex( color,6 );
writeln(format(ffnt,[couleur,'Bonjour'] ));
end;


GetRGB

extrait les composants rouge, vert et bleu d'une couleur

procedure GetRGB(color:TColor; var r,g,b:integer);



var r,g,b:integer;
begin
GetRGB(clRed,r,g,b);
end;



retourne une chaîne représentant une valeur TColor. S'il existe une constante symbolique pour la couleur (telle que clBlack ou clWindow), ColorToString renvoie le nom de la constante. Sinon, ColorToString renvoie la valeur hexadécimale de la couleur sous forme de chaîne.

function ColorToString(color:TColor):string;


StringToColor
retourne la valeur TColor à partir d'une chaîne, inverse de ColorToString.

function StringToColor(chaine:string):TColor;



CssValue
retourne la valeur d'un attribut d'un élément ou d'une classe CSS (voir feuilles de styles css)

function CssValue(Element,Attribut:string):string;

valeur := CssValue('body','Font-Size');


CssStyle
retourne le style complet d'un élément ou d'une classe css

function CssStyle(Element:string):string;

style := CssStyle('body');
// par exemple : Font-Family:Verdana, Arial, Helvetica, sans-serif; Font-Size:80%


SetCss
Défini une règle css

procedure SetCss(FilenameCss,Element,propriete,valeur:string);


SetCss permet de créer ou de modifier une feuille de style accessible par tous vos composants, les composants standards Box, OpposiLeftRight, ScrollPanel, Texte-Image et VertMenuList ont été modifiés pour en tirer partie, pour vos propres scripts je vous conseille de vous en inspirer.

SetInlineCss
Identique à SetCss sauf que les règles Css sont intégrées directement dans la page HTML

Constantes symbolique
Help&Web définie les constantes suivantes que vous pouvez utiliser à la place d'une valeur TColor

clBlack,clMaroon,clGreen,clOlive,
clNavy,clPurple,clTeal,clGray,clSilver,
clRed,clLime,clYellow,clBlue,clFuchsia,
clAqua,clWhite,clScrollBar,clBackground,
clActiveCaption,clInactiveCaption,clMenu,
clWindow,clWindowFrame,clMenuText,clWindowText,
clCaptionText,clActiveBorder,clInactiveBorder,
clAppWorkSpace,clHighlight,clHighlightText,
clBtnFace,clBtnShadow,clGrayText,clBtnText,
clInactiveCaptionText,clBtnHighlight,
cl3DDkShadow,cl3DLight,clInfoText,
clInfoText,clInfoBk

Sommaire