mirror of
http://gitlab.expertsoft.com.ua/git/expertcad
synced 2026-01-11 17:25:39 +02:00
18 lines
874 B
ObjectPascal
18 lines
874 B
ObjectPascal
function GetShadeColor(ACanvas: TCanvas; clr: TColor; Value: integer): TColor;
|
|
function NewColor(ACanvas: TCanvas; clr: TColor; Value: integer): TColor;
|
|
procedure DimBitmap(ABitmap: TBitmap; Value: integer);
|
|
function GrayColor(ACanvas: TCanvas; clr: TColor; Value: integer): TColor;
|
|
procedure GrayBitmap(ABitmap: TBitmap; Value: integer);
|
|
procedure DrawBitmapShadow(B: TBitmap; ACanvas: TCanvas; X, Y: integer;
|
|
ShadowColor: TColor);
|
|
procedure GetSystemMenuFont(Font: TFont);
|
|
|
|
const
|
|
ButtonStates: array[TToolButtonState] of Word = (TBSTATE_CHECKED,
|
|
TBSTATE_PRESSED, TBSTATE_ENABLED, TBSTATE_HIDDEN, TBSTATE_INDETERMINATE,
|
|
TBSTATE_WRAP, TBSTATE_ELLIPSES, TBSTATE_MARKED);
|
|
|
|
ButtonStyles: array[TToolButtonStyle] of Word = (TBSTYLE_BUTTON, TBSTYLE_CHECK,
|
|
TBSTYLE_DROPDOWN, TBSTYLE_SEP, TBSTYLE_SEP, BTNS_SHOWTEXT);
|
|
SSeparator = 'Separator';
|