david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
116 lines
3.4 KiB
ObjectPascal
116 lines
3.4 KiB
ObjectPascal
unit CustomDrawDemoConsts;
|
|
|
|
{$I ..\cxVer.inc}
|
|
|
|
interface
|
|
|
|
uses {$IFDEF DELPHI6}Types, {$ENDIF}Windows, Graphics, cxGraphics;
|
|
|
|
type
|
|
TcxItemCustomDrawType = (itNormal, itText, itCell);
|
|
TCustomDrawingStyle = (cdsBkImage, cdsGradient, cdsDefaultDrawing, cdsDependsOnData);
|
|
TCustomDrawArea = (cdaBackground, cdaBandHeader, cdaCell, cdaCellsGroup,
|
|
cdaFooter, cdaFooterCell, cdaHeader, cdaHeaderCell, cdaIndentCell,
|
|
cdaIndicatorCell, cdaPreview);
|
|
TColorScheme = (csGrey, csGold, csBlue, csGreen);
|
|
|
|
TBkImage = (bkiTile, bkiSky, bkiEgypt, bkiMyFace, bkiUserDefined);
|
|
TColorSchemeArr = array [0..3, 0..2] of TColor;
|
|
|
|
const
|
|
clBlueDark = TColor($00C56A31);
|
|
clBlueLight = TColor($00F7EAD9);
|
|
clBlueBright = TColor($00FF953D);
|
|
clBlueSky = TColor($00EBC4A4);
|
|
|
|
clGold = TColor($0047D5FE);
|
|
clGoldDark = TColor($0001BDF3);
|
|
|
|
clGreyLight = TColor($00E2EFF1);
|
|
clGreyDark = TColor($00B9D9DD);
|
|
clYellowLight = TColor($00E1FFFF);
|
|
|
|
clGreenBright = TColor($0082E887);
|
|
clGreenLight = TColor($00C9F5CB);
|
|
clGreenObscured = TColor($00ACF0AF);
|
|
clGreenDark = TColor($0044DD4B);
|
|
clSilverDark = TColor($00A6A6A6);
|
|
|
|
ColorScheme : TColorSchemeArr = ((clSilver, clWhite, clGray),(clGold, clGreyLight, clGoldDark),(clBlueDark, clBlueLight, clBlueDark),(clGreenDark, clGreenLight, clGreen));
|
|
BkImageResNames: array [TBkImage] of string = ('TILE', 'SKY', 'EGYPT', 'MYFACE', 'CAR');
|
|
ColorSchemeNames: array [TColorScheme] of string = ('Grey', 'Gold', 'Blue', 'Green');
|
|
|
|
CustomDrawAreaNames: array [TCustomDrawArea] of string = ('Background',
|
|
'BandHeader', 'Cell', 'CellsGroup', 'Footer', 'FooterCell', 'Header',
|
|
'HeaderCell', 'IndentCell', 'IndicatorCell', 'Preview');
|
|
|
|
|
|
procedure DrawGradient(Canvas: TCanvas; const ARect: TRect;
|
|
FromColor, ToColor: TColor; AStepCount: Integer; IsVertical: Boolean = False);
|
|
procedure LoadImageFromRes(ABitmap: TBitMap; AResName: String);
|
|
|
|
implementation
|
|
|
|
uses SysUtils, Classes, Dialogs;
|
|
|
|
procedure DrawGradient(Canvas: TCanvas; const ARect: TRect;
|
|
FromColor, ToColor: TColor; AStepCount: Integer; IsVertical: Boolean = False);
|
|
var
|
|
SR: TRect;
|
|
H, I: Integer;
|
|
R, G, B: Byte;
|
|
FromR, ToR, FromG, ToG, FromB, ToB: Byte;
|
|
begin
|
|
FromR := GetRValue(FromColor);
|
|
FromG := GetGValue(FromColor);
|
|
FromB := GetBValue(FromColor);
|
|
ToR := GetRValue(ToColor);
|
|
ToG := GetGValue(ToColor);
|
|
ToB := GetBValue(ToColor);
|
|
SR := ARect;
|
|
with ARect do
|
|
if IsVertical then
|
|
H := Bottom - Top
|
|
else
|
|
H := Right - Left;
|
|
|
|
for I := 0 to AStepCount - 1 do
|
|
begin
|
|
if IsVertical then
|
|
SR.Bottom := ARect.Top + MulDiv(I + 1, H, AStepCount)
|
|
else
|
|
SR.Right := ARect.Left + MulDiv(I + 1, H, AStepCount);
|
|
with Canvas do
|
|
begin
|
|
R := FromR + MulDiv(I, ToR - FromR, AStepCount - 1);
|
|
G := FromG + MulDiv(I, ToG - FromG, AStepCount - 1);
|
|
B := FromB + MulDiv(I, ToB - FromB, AStepCount - 1);
|
|
Brush.Color := RGB(R, G, B);
|
|
FillRect(SR);
|
|
end;
|
|
if IsVertical then
|
|
SR.Top := SR.Bottom
|
|
else
|
|
SR.Left := SR.Right;
|
|
end;
|
|
end;
|
|
|
|
procedure LoadImageFromRes(ABitmap: TBitMap; AResName: String);
|
|
var
|
|
Rs: TResourceStream;
|
|
BitMap: TBitMap;
|
|
begin
|
|
BitMap := TBitMap.Create;
|
|
Rs := TResourceStream.Create(hInstance,
|
|
AResName, RT_RCDATA);
|
|
try
|
|
BitMap.LoadFromStream(Rs);
|
|
ABitMap.Assign(BitMap);
|
|
finally
|
|
BitMap.Free;
|
|
Rs.Free;
|
|
end;
|
|
end;
|
|
|
|
end.
|