Delphi DELPHI / Open Source Flatgraphics

Kim-Jong

Onursal
Onursal
Katılım
18 May 2015
Mesajlar
1,226
Tepkime puanı
0
Kod:
interface

{ Color Constants }

uses SysUtils, Graphics;

{ NOTE: All Colors have the 'ec' prefix which means Encarta Color }

const
{ Standard Encarta & FlatStyle Color Constants }
ecDarkBlue = TColor($00996633);
ecBlue = TColor($00CF9030);
ecLightBlue = TColor($00CFB78F);

ecDarkRed = TColor($00302794);
ecRed = TColor($005F58B0);
ecLightRed = TColor($006963B6);

ecDarkGreen = TColor($00385937);
ecGreen = TColor($00518150);
ecLightGreen = TColor($0093CAB1);

ecDarkYellow = TColor($004EB6CF);
ecYellow = TColor($0057D1FF);
ecLightYellow = TColor($00B3F8FF);

ecDarkBrown = $00394D4D;
ecBrown = $00555E66;
ecLightBrown = $00829AA2;

ecDarkKaki = $00D3D3D3;
ecKaki = $00C8D7D7;
ecLightKaki = $00E0E9EF;

{ Encarta & FlatStyle Interface Color Constants }
ecBtnHighlight = clWhite;
ecBtnShadow = clBlack;
ecBtnFace = ecLightKaki;
ecBtnFaceDown = ecKaki;

ecFocused = clWhite;

ecScrollbar = ecLightKaki;
ecScrollbarThumb = ecLightBrown;

ecBackground = clWhite;

ecHint = ecYellow;
ecHintArrow = clBlack;

ecDot = clBlack;
ecTick = clBlack;

ecMenuBorder = ecDarkBrown;
ecMenu = clBlack;
ecMenuSelected = ecDarkYellow;

ecProgressBlock = ecBlue;
ecUnselectedTab = ecBlue;

ecSelection = clNavy;

ecCaption = clBlack;
ecCaptionText = clWhite;

implementation

end.


Türkçesini unuttum siz çevirisiniz
 
Üst