paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 21:38:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Removes ADestPos from component drawing routines because it was not supported anyway and it would make the code too complex. People can use SetWindowOrg to get the same effect

Browse Source 
git-svn-id: trunk@33867 -
This commit is contained in:
sekelsenmat 2011-11-30 10:25:04 +00:00
parent 173c85bd15
commit ec49388044
6 changed files with 81 additions and 81 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/customdrawn/customdrawn_extra1.pas
View File

@ -22,7 +22,7 @@ type
// ===================================
// Common Controls Tab
// ===================================
procedure DrawTrackBar(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawTrackBar(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDPositionedCStateEx); override;
end;
{ TCDButtonDrawerGrad = class(TCDButtonDrawer)
@ -119,7 +119,7 @@ begin
end;
end;
procedure TCDDrawerExtra1.DrawTrackBar(ADest: TCanvas; ADestPos: TPoint;
procedure TCDDrawerExtra1.DrawTrackBar(ADest: TCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDPositionedCStateEx);
var
lDrawingBottom, StepsCount, i: Integer;

8
components/customdrawn/customdrawn_wince.pas
View File

@ -31,7 +31,7 @@ type
// Standard Tab
// ===================================
// TCDButton
procedure DrawButton(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawButton(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDButtonStateEx); override;
// TCDEdit
procedure DrawEditFrame(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
@ -42,7 +42,7 @@ type
procedure DrawCheckBoxSquare(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
// TCDGroupBox
procedure DrawGroupBox(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawGroupBox(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
// ===================================
// Common Controls Tab
@ -84,7 +84,7 @@ begin
ADest.Rectangle(Bounds(ADestPos.X, ADestPos.Y, ASize.cx, ASize.cy));
end;
procedure TCDDrawerWinCE.DrawButton(ADest: TCanvas; ADestPos: TPoint;
procedure TCDDrawerWinCE.DrawButton(ADest: TCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDButtonStateEx);
var
Str: string;
@ -187,7 +187,7 @@ begin
end;
end;
procedure TCDDrawerWinCE.DrawGroupBox(ADest: TCanvas; ADestPos: TPoint;
procedure TCDDrawerWinCE.DrawGroupBox(ADest: TCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx);
var
FCaptionMiddle: integer;

4
components/customdrawn/customdrawn_winxp.pas
View File

@ -38,7 +38,7 @@ type
// Standard Tab
// ===================================
// TCDButton
procedure DrawButton(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawButton(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDButtonStateEx); override;
// TCDEdit
procedure DrawEditFrame(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
@ -117,7 +117,7 @@ begin
ADest.Line(ADestPos.X+i, ADestPos.Y+4-i, ADestPos.X+i, ADestPos.Y+3+4-i);
end;
procedure TCDDrawerWinXP.DrawButton(ADest: TCanvas; ADestPos: TPoint;
procedure TCDDrawerWinXP.DrawButton(ADest: TCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDButtonStateEx);
var
Str: string;

90
lcl/customdrawn_common.pas
View File

@ -44,13 +44,13 @@ type
// Extra buttons drawing routines
procedure DrawSmallCloseButton(ADest: TCanvas; ADestPos: TPoint); override;
// TCDControl
procedure DrawControl(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawControl(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
// ===================================
// Standard Tab
// ===================================
// TCDButton
procedure DrawButton(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawButton(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDButtonStateEx); override;
// TCDEdit
procedure DrawEditBackground(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
@ -59,47 +59,47 @@ type
AState: TCDControlState; AStateEx: TCDEditStateEx); override;
procedure DrawCaret(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDEditStateEx); override;
procedure DrawEdit(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawEdit(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDEditStateEx); override;
// TCDCheckBox
procedure DrawCheckBoxSquare(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
procedure DrawCheckBox(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawCheckBox(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
// TCDRadioButton
procedure DrawRadioButtonCircle(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
procedure DrawRadioButton(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawRadioButton(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
// TCDScrollBar
procedure DrawScrollBar(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawScrollBar(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDPositionedCStateEx); override;
// TCDGroupBox
procedure DrawGroupBox(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawGroupBox(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
// ===================================
// Additional Tab
// ===================================
procedure DrawStaticText(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawStaticText(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
// ===================================
// Common Controls Tab
// ===================================
// TCDTrackBar
procedure DrawTrackBar(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawTrackBar(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDPositionedCStateEx); override;
// TCDProgressBar
procedure DrawProgressBar(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawProgressBar(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDProgressBarStateEx); override;
// TCDListView
procedure DrawListView(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawListView(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDListViewStateEx); override;
procedure DrawReportListView(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDListViewStateEx); override;
procedure DrawReportListViewItem(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
ACurItem: TCDListItems; AState: TCDControlState; AStateEx: TCDListViewStateEx); override;
// TCDCustomTabControl
procedure DrawCTabControl(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawCTabControl(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDCTabControlStateEx); override;
procedure DrawCTabControlFrame(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDCTabControlStateEx); override;
@ -498,7 +498,7 @@ begin
ADest.Pen.Width := 1;
end;
procedure TCDDrawerCommon.DrawControl(ADest: TCanvas; ADestPos: TPoint;
procedure TCDDrawerCommon.DrawControl(ADest: TCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx);
var
lColor: TColor;
@ -512,7 +512,7 @@ begin
ADest.FillRect(0, 0, ASize.cx, ASize.cy);
end;
procedure TCDDrawerCommon.DrawButton(ADest: TCanvas; ADestPos: TPoint;
procedure TCDDrawerCommon.DrawButton(ADest: TCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDButtonStateEx);
var
Str: string;
@ -659,7 +659,7 @@ begin
ADest.Line(lCaretPixelPos, lTextTopSpacing, lCaretPixelPos, lTextTopSpacing+lCaptionHeight);
end;
procedure TCDDrawerCommon.DrawEdit(ADest: TCanvas; ADestPos: TPoint;
procedure TCDDrawerCommon.DrawEdit(ADest: TCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDEditStateEx);
var
lVisibleText, lControlText: TCaption;
@ -669,7 +669,7 @@ var
lTextLeftSpacing, lTextRightSpacing, lTextTopSpacing, lTextBottomSpacing: Integer;
begin
// Background
DrawEditBackground(ADest, ADestPos, ASize, AState, AStateEx);
DrawEditBackground(ADest, Point(0, 0), ASize, AState, AStateEx);
lControlText := AStateEx.Caption;
lControlTextLen := UTF8Length(AStateEx.Caption);
@ -728,10 +728,10 @@ begin
end;
// And the caret
DrawCaret(ADest, ADestPos, ASize, AState, AStateEx);
DrawCaret(ADest, Point(0, 0), ASize, AState, AStateEx);
// In the end the frame, because it must be on top of everything
DrawEditFrame(ADest, ADestPos, ASize, AState, AStateEx);
DrawEditFrame(ADest, Point(0, 0), ASize, AState, AStateEx);
end;
procedure TCDDrawerCommon.DrawCheckBoxSquare(ADest: TCanvas; ADestPos: TPoint;
@ -768,7 +768,7 @@ begin
end;}
end;
procedure TCDDrawerCommon.DrawCheckBox(ADest: TCanvas; ADestPos: TPoint;
procedure TCDDrawerCommon.DrawCheckBox(ADest: TCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx);
var
lColor: TColor;
@ -784,7 +784,7 @@ begin
ADest.FillRect(0, 0, ASize.cx, ASize.cy);
// The checkbox item itself
DrawCheckBoxSquare(ADest, ADestPos, ASize, AState, AStateEx);
DrawCheckBoxSquare(ADest, Point(0, 0), ASize, AState, AStateEx);
// The Tickmark
if csfOn in AState then
@ -893,7 +893,7 @@ begin
end;
end;
procedure TCDDrawerCommon.DrawRadioButton(ADest: TCanvas; ADestPos: TPoint;
procedure TCDDrawerCommon.DrawRadioButton(ADest: TCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx);
var
lColor: TColor;
@ -909,7 +909,7 @@ begin
ADest.FillRect(0, 0, ASize.cx, ASize.cy);
// The radiobutton circle itself
DrawRadioButtonCircle(ADest, ADestPos, ASize, AState, AStateEx);
DrawRadioButtonCircle(ADest, Point(0, 0), ASize, AState, AStateEx);
// The text selection
if csfHasFocus in AState then
@ -922,7 +922,7 @@ begin
ADest.TextOut(lCircleHeight+5, 0, AStateEx.Caption);
end;
procedure TCDDrawerCommon.DrawScrollBar(ADest: TCanvas; ADestPos: TPoint;
procedure TCDDrawerCommon.DrawScrollBar(ADest: TCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDPositionedCStateEx);
var
lPos: TPoint;
@ -937,7 +937,7 @@ begin
ADest.Rectangle(0, 0, ASize.cx, ASize.cy);
// Left/Top button
lPos := ADestPos;
lPos := Point(0, 0);
if csfHorizontal in AState then
lSize := Size(GetMeasures(TCDSCROLLBAR_BUTTON_WIDTH), ASize.CY)
@ -1010,7 +1010,7 @@ begin
DrawRaisedFrame(ADest, lPos, lSize);
end;
procedure TCDDrawerCommon.DrawGroupBox(ADest: TCanvas; ADestPos: TPoint;
procedure TCDDrawerCommon.DrawGroupBox(ADest: TCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx);
var
FCaptionMiddle: integer;
@ -1054,7 +1054,7 @@ begin
ADest.TextOut(FCaptionMiddle+3, 0, lCaption);
end;
procedure TCDDrawerCommon.DrawStaticText(ADest: TCanvas; ADestPos: TPoint;
procedure TCDDrawerCommon.DrawStaticText(ADest: TCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx);
var
lColor: TColor;
@ -1072,7 +1072,7 @@ begin
ADest.TextOut(0, 0, AStateEx.Caption);
end;
procedure TCDDrawerCommon.DrawTrackBar(ADest: TCanvas; ADestPos: TPoint;
procedure TCDDrawerCommon.DrawTrackBar(ADest: TCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDPositionedCStateEx);
var
StepsCount, i: Integer;
@ -1105,14 +1105,14 @@ begin
// Draws the frame and its inner white area
if csfHorizontal in AState then
begin
lPoint := Point(ADestPos.X + GetMeasures(TCDTRACKBAR_LEFT_SPACING),
ADestPos.Y + GetMeasures(TCDTRACKBAR_TOP_SPACING));
lPoint := Point(GetMeasures(TCDTRACKBAR_LEFT_SPACING),
GetMeasures(TCDTRACKBAR_TOP_SPACING));
lSize := Size(ASize.CX - CDBarSpacing, GetMeasures(TCDTRACKBAR_FRAME_HEIGHT));
end
else
begin
lPoint := Point(ADestPos.X + GetMeasures(TCDTRACKBAR_TOP_SPACING),
ADestPos.Y + GetMeasures(TCDTRACKBAR_LEFT_SPACING));
lPoint := Point(GetMeasures(TCDTRACKBAR_TOP_SPACING),
GetMeasures(TCDTRACKBAR_LEFT_SPACING));
lSize := Size(GetMeasures(TCDTRACKBAR_FRAME_HEIGHT), ASize.CY - CDBarSpacing);
end;
ADest.Brush.Color := Palette.Window;
@ -1146,12 +1146,12 @@ begin
// Draw the focus
if csfHasFocus in AState then
DrawFocusRect(ADest,
Point(ADestPos.X + 1, ADestPos.Y + 1),
Point(1, 1),
Size(ASize.CX - 2, ASize.CY - 2));
end;
// Felipe: Smooth=False is not supported for now
procedure TCDDrawerCommon.DrawProgressBar(ADest: TCanvas; ADestPos: TPoint;
procedure TCDDrawerCommon.DrawProgressBar(ADest: TCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDProgressBarStateEx);
var
lProgPos, lProgMult: TPoint;
@ -1165,30 +1165,30 @@ begin
ADest.Rectangle(0, 0, ASize.cx, ASize.cy);
// The Frame
DrawShallowSunkenFrame(ADest, ADestPos, ASize);
DrawShallowSunkenFrame(ADest, Point(0, 0), ASize);
// Preparations to have 1 code for all orientations
lProgSize := Size(ASize.cx-4, ASize.cy-4);
if csfHorizontal in AState then
begin
lProgPos := Point(ADestPos.X+2, ADestPos.Y+2);
lProgPos := Point(2, 2);
lProgMult := Point(1, 0);
lProgWidth := lProgSize.cx;
end
else if csfVertical in AState then
begin
lProgPos := Point(ADestPos.X+2, ADestPos.Y+ASize.cy-2);
lProgPos := Point(2, ASize.cy-2);
lProgMult := Point(0, -1);
lProgWidth := lProgSize.cy;
end else if csfRightToLeft in AState then
begin
lProgPos := Point(ADestPos.X+ASize.cx-2, ADestPos.Y+2);
lProgPos := Point(ASize.cx-2, 2);
lProgMult := Point(-1, 0);
lProgWidth := lProgSize.cx;
end
else
begin
lProgPos := Point(ADestPos.X+2, ADestPos.Y+2);
lProgPos := Point(2, 2);
lProgMult := Point(0, 1);
lProgWidth := lProgSize.cy;
end;
@ -1206,7 +1206,7 @@ begin
lProgPos.Y+lProgWidth*lProgMult.Y+lProgSize.cy*Abs(lProgMult.X));
end;
procedure TCDDrawerCommon.DrawListView(ADest: TCanvas; ADestPos: TPoint;
procedure TCDDrawerCommon.DrawListView(ADest: TCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDListViewStateEx);
begin
// Inside area, there is no background because the control occupies the entire area
@ -1216,11 +1216,11 @@ begin
ADest.Rectangle(0, 0, ASize.cx, ASize.cy);
// The frame
DrawSunkenFrame(ADest, ADestPos, ASize);
DrawSunkenFrame(ADest, Point(0, 0), ASize);
// The contents depend on the view style
case AStateEx.ViewStyle of
vsReport: DrawReportListView(ADest, ADestPos, ASize, AState, AStateEx);
vsReport: DrawReportListView(ADest, Point(0, 0), ASize, AState, AStateEx);
end;
end;
@ -1316,7 +1316,7 @@ begin
ACurItem.Caption);
end;
procedure TCDDrawerCommon.DrawCTabControl(ADest: TCanvas; ADestPos: TPoint;
procedure TCDDrawerCommon.DrawCTabControl(ADest: TCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDCTabControlStateEx);
begin
// Background
@ -1324,14 +1324,14 @@ begin
ADest.Pen.Color := AStateEx.ParentRGBColor;
ADest.Brush.Style := bsSolid;
ADest.Brush.Color := AStateEx.ParentRGBColor;
ADest.Rectangle(ADestPos.X, ADestPos.Y, ADestPos.X+ASize.cx, ADestPos.Y+ASize.cy);
ADest.Rectangle(0, 0, ASize.cx, ASize.cy);
// frame
DrawCTabControlFrame(ADest, ADestPos, ASize, AState, AStateEx);
DrawCTabControlFrame(ADest, Point(0, 0), ASize, AState, AStateEx);
// Tabs
ADest.Font.Assign(AStateEx.Font);
DrawTabs(ADest, ADestPos, ASize, AState, AStateEx);
DrawTabs(ADest, Point(0, 0), ASize, AState, AStateEx);
end;
procedure TCDDrawerCommon.DrawCTabControlFrame(ADest: TCanvas;

3
lcl/customdrawncontrols.pas
View File

@ -826,8 +826,7 @@ begin
lControlId := GetControlId();
PrepareControlState;
PrepareControlStateEx;
FDrawer.DrawControl(Canvas, Point(0, 0),
lSize, lControlId, FState, FStateEx);
FDrawer.DrawControl(Canvas, lSize, lControlId, FState, FStateEx);
{$endif}
end;

53
lcl/customdrawndrawers.pas
View File

@ -269,7 +269,8 @@ type
function GetColor(AColorID: Integer): TColor; virtual; abstract;
function GetClientArea(ADest: TCanvas; ASize: TSize; AControlId: TCDControlID;
AState: TCDControlState; AStateEx: TCDControlStateEx): TRect; virtual; abstract;
procedure DrawControl(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
// To set a different position to draw the control then (0, 0) use the window org of the canvas
procedure DrawControl(ADest: TCanvas; ASize: TSize;
AControl: TCDControlID; AState: TCDControlState; AStateEx: TCDControlStateEx);
// General drawing routines
procedure DrawFocusRect(ADest: TCanvas; ADestPos: TPoint; ASize: TSize); virtual; abstract;
@ -282,10 +283,10 @@ type
// Extra buttons drawing routines
procedure DrawSmallCloseButton(ADest: TCanvas; ADestPos: TPoint); virtual; abstract;
// TCDControl
procedure DrawControl(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawControl(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); virtual; abstract;
// TCDButton
procedure DrawButton(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawButton(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDButtonStateEx); virtual; abstract;
// TCDEdit
procedure DrawEditBackground(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
@ -294,47 +295,47 @@ type
AState: TCDControlState; AStateEx: TCDEditStateEx); virtual; abstract;
procedure DrawCaret(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDEditStateEx); virtual; abstract;
procedure DrawEdit(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawEdit(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDEditStateEx); virtual; abstract;
// TCDCheckBox
procedure DrawCheckBoxSquare(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); virtual; abstract;
procedure DrawCheckBox(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawCheckBox(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); virtual; abstract;
// TCDRadioButton
procedure DrawRadioButtonCircle(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); virtual; abstract;
procedure DrawRadioButton(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawRadioButton(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); virtual; abstract;
// TCDScrollBar
procedure DrawScrollBar(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawScrollBar(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDPositionedCStateEx); virtual; abstract;
// TCDGroupBox
procedure DrawGroupBox(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawGroupBox(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); virtual; abstract;
// ===================================
// Additional Tab
// ===================================
procedure DrawStaticText(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawStaticText(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDControlStateEx); virtual; abstract;
// ===================================
// Common Controls Tab
// ===================================
// TCDTrackBar
procedure DrawTrackBar(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawTrackBar(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDPositionedCStateEx); virtual; abstract;
// TCDProgressBar
procedure DrawProgressBar(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawProgressBar(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDProgressBarStateEx); virtual; abstract;
// TCDListView
procedure DrawListView(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawListView(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDListViewStateEx); virtual; abstract;
procedure DrawReportListView(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDListViewStateEx); virtual; abstract;
procedure DrawReportListViewItem(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
ACurItem: TCDListItems; AState: TCDControlState; AStateEx: TCDListViewStateEx); virtual; abstract;
// TCDCustomTabControl
procedure DrawCTabControl(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure DrawCTabControl(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDCTabControlStateEx); virtual; abstract;
procedure DrawCTabControlFrame(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
AState: TCDControlState; AStateEx: TCDCTabControlStateEx); virtual; abstract;
@ -562,26 +563,26 @@ begin
end;
end;
procedure TCDDrawer.DrawControl(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
procedure TCDDrawer.DrawControl(ADest: TCanvas; ASize: TSize;
AControl: TCDControlID; AState: TCDControlState; AStateEx: TCDControlStateEx
);
begin
case AControl of
cidControl: DrawControl(ADest, ADestPos, ASize, AState, AStateEx);
cidControl: DrawControl(ADest, ASize, AState, AStateEx);
//
cidButton: DrawButton(ADest, ADestPos, ASize, AState, TCDButtonStateEx(AStateEx));
cidEdit: DrawEdit(ADest, ADestPos, ASize, AState, TCDEditStateEx(AStateEx));
cidCheckBox: DrawCheckBox(ADest, ADestPos, ASize, AState, AStateEx);
cidRadioButton:DrawRadioButton(ADest, ADestPos, ASize, AState, AStateEx);
cidScrollBar: DrawScrollBar(ADest, ADestPos, ASize, AState, TCDPositionedCStateEx(AStateEx));
cidGroupBox: DrawGroupBox(ADest, ADestPos, ASize, AState, AStateEx);
cidButton: DrawButton(ADest, ASize, AState, TCDButtonStateEx(AStateEx));
cidEdit: DrawEdit(ADest, ASize, AState, TCDEditStateEx(AStateEx));
cidCheckBox: DrawCheckBox(ADest, ASize, AState, AStateEx);
cidRadioButton:DrawRadioButton(ADest, ASize, AState, AStateEx);
cidScrollBar: DrawScrollBar(ADest, ASize, AState, TCDPositionedCStateEx(AStateEx));
cidGroupBox: DrawGroupBox(ADest, ASize, AState, AStateEx);
//
cidStaticText: DrawStaticText(ADest, ADestPos, ASize, AState, AStateEx);
cidStaticText: DrawStaticText(ADest, ASize, AState, AStateEx);
//
cidTrackBar: DrawTrackBar(ADest, ADestPos, ASize, AState, TCDPositionedCStateEx(AStateEx));
cidProgressBar:DrawProgressBar(ADest, ADestPos, ASize, AState, TCDProgressBarStateEx(AStateEx));
cidListView: DrawListView(ADest, ADestPos, ASize, AState, TCDListViewStateEx(AStateEx));
cidCTabControl:DrawCTabControl(ADest, ADestPos, ASize, AState, TCDCTabControlStateEx(AStateEx));
cidTrackBar: DrawTrackBar(ADest, ASize, AState, TCDPositionedCStateEx(AStateEx));
cidProgressBar:DrawProgressBar(ADest, ASize, AState, TCDProgressBarStateEx(AStateEx));
cidListView: DrawListView(ADest, ASize, AState, TCDListViewStateEx(AStateEx));
cidCTabControl:DrawCTabControl(ADest, ASize, AState, TCDCTabControlStateEx(AStateEx));
end;
end;