www.pudn.com > virdisk_source.rar > FlatGraphics.pas

unit FlatGraphics; 
 
{***************************************************************} 
{  FlatStyle Graphics Unit                                      } 
{  Copyright ©1999 Lloyd Kinsella.                              } 
{                                                               } 
{  FlatStyle is Copyright ©1998-99 Maik Porkert.                } 
{***************************************************************} 
 
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.