How to define color constants?

Forum > LCL

(1/3) > >>

stem:
Hi,

I want to have color constants in a separate unit. The line

--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---MYCOLOR = TColor($FF0000);
gets compiled, but using the color in

--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---xyz.Canvas.Pen.Color := MYCOLOR;
results in having the color blue, although I wanted to have red. What am I doing wrong?

Thank you!

stem

wp:
TColor has the oppositve byte order of HTML: TColor = $ssBBGGRR (ss used for system colors, is zero for "normal" colors)), HTML = #RRGGBB.

Thaddy:

--- Code: Text [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} --- const MYCOLOR:TColor = $FF0000;

Thaddy:

--- Quote from: wp on June 19, 2018, 07:55:25 pm ---TColor has the oppositve byte order of HTML: TColor = $ssBBGGRR (ss used for system colors), HTML = #RRGGBB.

--- End quote ---
Unless you read something more than I did (html): his declaration is wrong in the first place. This gets converted back to native resolution, so the cast is useless.

Handoko:
@stem

You can use the constants available in unit Graphics. clRed is TColor($0000FF) on my Linux system, on certain OS/hardware it may be different.

Here I copied/pasted some part of the code in unit Graphics:

--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---const // The following colors match the predefined Delphi Colors // standard colors clBlack = TColor($000000); clMaroon = TColor($000080); clGreen = TColor($008000); clOlive = TColor($008080); clNavy = TColor($800000); clPurple = TColor($800080); clTeal = TColor($808000); clGray = TColor($808080); clSilver = TColor($C0C0C0); clRed = TColor($0000FF); clLime = TColor($00FF00); clYellow = TColor($00FFFF); clBlue = TColor($FF0000); clFuchsia = TColor($FF00FF); clAqua = TColor($FFFF00); clLtGray = TColor($C0C0C0); // clSilver alias clDkGray = TColor($808080); // clGray alias clWhite = TColor($FFFFFF); StandardColorsCount = 16; // extended colors clMoneyGreen = TColor($C0DCC0); clSkyBlue = TColor($F0CAA6); clCream = TColor($F0FBFF); clMedGray = TColor($A4A0A0); ExtendedColorCount = 4; // special colors clNone = TColor($1FFFFFFF); clDefault = TColor($20000000); // system colors clScrollBar = TColor(SYS_COLOR_BASE or COLOR_SCROLLBAR); clBackground = TColor(SYS_COLOR_BASE or COLOR_BACKGROUND); clActiveCaption = TColor(SYS_COLOR_BASE or COLOR_ACTIVECAPTION); clInactiveCaption = TColor(SYS_COLOR_BASE or COLOR_INACTIVECAPTION); clMenu = TColor(SYS_COLOR_BASE or COLOR_MENU); clWindow = TColor(SYS_COLOR_BASE or COLOR_WINDOW); clWindowFrame = TColor(SYS_COLOR_BASE or COLOR_WINDOWFRAME); clMenuText = TColor(SYS_COLOR_BASE or COLOR_MENUTEXT); clWindowText = TColor(SYS_COLOR_BASE or COLOR_WINDOWTEXT); clCaptionText = TColor(SYS_COLOR_BASE or COLOR_CAPTIONTEXT); clActiveBorder = TColor(SYS_COLOR_BASE or COLOR_ACTIVEBORDER); clInactiveBorder = TColor(SYS_COLOR_BASE or COLOR_INACTIVEBORDER); clAppWorkspace = TColor(SYS_COLOR_BASE or COLOR_APPWORKSPACE); clHighlight = TColor(SYS_COLOR_BASE or COLOR_HIGHLIGHT); clHighlightText = TColor(SYS_COLOR_BASE or COLOR_HIGHLIGHTTEXT); clBtnFace = TColor(SYS_COLOR_BASE or COLOR_BTNFACE); clBtnShadow = TColor(SYS_COLOR_BASE or COLOR_BTNSHADOW); clGrayText = TColor(SYS_COLOR_BASE or COLOR_GRAYTEXT); clBtnText = TColor(SYS_COLOR_BASE or COLOR_BTNTEXT); clInactiveCaptionText = TColor(SYS_COLOR_BASE or COLOR_INACTIVECAPTIONTEXT); clBtnHighlight = TColor(SYS_COLOR_BASE or COLOR_BTNHIGHLIGHT); cl3DDkShadow = TColor(SYS_COLOR_BASE or COLOR_3DDKSHADOW); cl3DLight = TColor(SYS_COLOR_BASE or COLOR_3DLIGHT); clInfoText = TColor(SYS_COLOR_BASE or COLOR_INFOTEXT); clInfoBk = TColor(SYS_COLOR_BASE or COLOR_INFOBK); clHotLight = TColor(SYS_COLOR_BASE or COLOR_HOTLIGHT); clGradientActiveCaption = TColor(SYS_COLOR_BASE or COLOR_GRADIENTACTIVECAPTION); clGradientInactiveCaption = TColor(SYS_COLOR_BASE or COLOR_GRADIENTINACTIVECAPTION); clMenuHighlight = TColor(SYS_COLOR_BASE or COLOR_MENUHILIGHT); clMenuBar = TColor(SYS_COLOR_BASE or COLOR_MENUBAR); clForm = TColor(SYS_COLOR_BASE or COLOR_FORM); // synonyms: do not show them in color lists clColorDesktop = TColor(SYS_COLOR_BASE or COLOR_DESKTOP); cl3DFace = TColor(SYS_COLOR_BASE or COLOR_3DFACE); cl3DShadow = TColor(SYS_COLOR_BASE or COLOR_3DSHADOW); cl3DHiLight = TColor(SYS_COLOR_BASE or COLOR_3DHIGHLIGHT); clBtnHiLight = TColor(SYS_COLOR_BASE or COLOR_BTNHILIGHT);

Navigation

[0] Message Index

[#] Next page