paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 15:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Adds the structure for TCDEdit

Browse Source 
git-svn-id: trunk@33141 -
This commit is contained in:
sekelsenmat 2011-10-28 16:48:46 +00:00
parent 449e611fdf
commit 49b1d91762
2 changed files with 148 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/customdrawn/customdrawn_wince.pas
View File

@ -24,6 +24,14 @@ type
FState: TCDButtonState); override;
end;
{ TCDEditDrawerWinCE }
TCDEditDrawerWinCE = class(TCDEditDrawer)
public
procedure DrawToIntfImage(ADest: TFPImageCanvas; CDEdit: TCDEdit); override;
procedure DrawToCanvas(ADest: TCanvas; CDEdit: TCDEdit); override;
end;
{ TCDCheckBoxDrawerWinCE }
TCDCheckBoxDrawerWinCE = class(TCDCheckBoxDrawer)
@ -69,6 +77,19 @@ type
implementation
{ TCDEditDrawerWinCE }
procedure TCDEditDrawerWinCE.DrawToIntfImage(ADest: TFPImageCanvas;
CDEdit: TCDEdit);
begin
end;
procedure TCDEditDrawerWinCE.DrawToCanvas(ADest: TCanvas; CDEdit: TCDEdit);
begin
end;
{ TCDCheckBoxDrawerWinCE }
function TCDCheckBoxDrawerWinCE.GetCaptionWidth(CDCheckBox: TCDCheckBox
@ -642,6 +663,7 @@ end;
initialization
RegisterButtonDrawer(TCDButtonDrawerWinCE.Create, dsWinCE);
RegisterEditDrawer(TCDEditDrawerWinCE.Create, dsWinCE);
RegisterGroupBoxDrawer(TCDGroupBoxDrawerWinCE.Create, dsWinCE);
RegisterCheckBoxDrawer(TCDCheckBoxDrawerWinCE.Create, dsWinCE);
RegisterCustomTabControlDrawer(TCDCustomTabControlDrawerWinCE.Create, dsWinCE);

127
components/customdrawn/customdrawncontrols.pas
View File

@ -153,6 +153,42 @@ type
FState: TCDButtonState); virtual; abstract;
end;
{ TCDEdit }
TCDEdit = class(TCDControl)
private
DragDropStarted: boolean;
// fields
procedure PrepareCurrentDrawer(); override;
protected
// keyboard
procedure DoEnter; override;
procedure DoExit; override;
procedure KeyDown(var Key: word; Shift: TShiftState); override;
procedure KeyUp(var Key: word; Shift: TShiftState); override;
// mouse
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: integer); override;
procedure MouseEnter; override;
procedure MouseLeave; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure EraseBackground(DC: HDC); override;
procedure Paint; override;
published
property Color;
property TabStop default True;
end;
TCDEditDrawer = class(TCDControlDrawer)
public
procedure DrawToIntfImage(ADest: TFPImageCanvas; CDEdit: TCDEdit); virtual; abstract;
procedure DrawToCanvas(ADest: TCanvas; CDEdit: TCDEdit); virtual; abstract;
end;
{@@
TCDGroupBox is a custom-drawn group box control
}
@ -451,6 +487,7 @@ type
// Standard Tab
procedure RegisterButtonDrawer(ADrawer: TCDButtonDrawer; AStyle: TCDDrawStyle);
procedure RegisterEditDrawer(ADrawer: TCDEditDrawer; AStyle: TCDDrawStyle);
procedure RegisterGroupBoxDrawer(ADrawer: TCDGroupBoxDrawer; AStyle: TCDDrawStyle);
procedure RegisterCheckBoxDrawer(ADrawer: TCDCheckBoxDrawer; AStyle: TCDDrawStyle);
// Common Controls Tab
@ -469,6 +506,8 @@ var
// Standard Tab
RegisteredButtonDrawers: array[TCDDrawStyle] of TCDButtonDrawer
= (nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);
RegisteredEditDrawers: array[TCDDrawStyle] of TCDEditDrawer
= (nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);
RegisteredGroupBoxDrawers: array[TCDDrawStyle] of TCDGroupBoxDrawer
= (nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);
RegisteredCheckBoxDrawers: array[TCDDrawStyle] of TCDCheckBoxDrawer
@ -485,6 +524,12 @@ begin
RegisteredButtonDrawers[AStyle] := ADrawer;
end;
procedure RegisterEditDrawer(ADrawer: TCDEditDrawer; AStyle: TCDDrawStyle);
begin
if RegisteredEditDrawers[AStyle] <> nil then RegisteredEditDrawers[AStyle].Free;
RegisteredEditDrawers[AStyle] := ADrawer;
end;
procedure RegisterGroupBoxDrawer(ADrawer: TCDGroupBoxDrawer; AStyle: TCDDrawStyle);
begin
if RegisteredGroupBoxDrawers[AStyle] <> nil then RegisteredGroupBoxDrawers[AStyle].Free;
@ -509,6 +554,86 @@ begin
RegisteredCustomTabControlDrawers[AStyle] := ADrawer;
end;
{ TCDEdit }
procedure TCDEdit.PrepareCurrentDrawer;
var
lDrawStyle: TCDDrawStyle;
begin
if DrawStyle = dsDefault then lDrawStyle := DefaultStyle
else lDrawStyle := DrawStyle;
FCurrentDrawer := RegisteredEditDrawers[lDrawStyle];
if FCurrentDrawer = nil then FCurrentDrawer := RegisteredEditDrawers[dsWince];
if FCurrentDrawer = nil then raise Exception.Create('No registered edit drawers were found');
end;
procedure TCDEdit.DoEnter;
begin
inherited DoEnter;
end;
procedure TCDEdit.DoExit;
begin
inherited DoExit;
end;
procedure TCDEdit.KeyDown(var Key: word; Shift: TShiftState);
begin
inherited KeyDown(Key, Shift);
end;
procedure TCDEdit.KeyUp(var Key: word; Shift: TShiftState);
begin
inherited KeyUp(Key, Shift);
end;
procedure TCDEdit.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
Y: integer);
begin
inherited MouseDown(Button, Shift, X, Y);
end;
procedure TCDEdit.MouseMove(Shift: TShiftState; X, Y: integer);
begin
inherited MouseMove(Shift, X, Y);
end;
procedure TCDEdit.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
Y: integer);
begin
inherited MouseUp(Button, Shift, X, Y);
end;
procedure TCDEdit.MouseEnter;
begin
inherited MouseEnter;
end;
procedure TCDEdit.MouseLeave;
begin
inherited MouseLeave;
end;
constructor TCDEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end;
destructor TCDEdit.Destroy;
begin
inherited Destroy;
end;
procedure TCDEdit.EraseBackground(DC: HDC);
begin
inherited EraseBackground(DC);
end;
procedure TCDEdit.Paint;
begin
inherited Paint;
end;
{ TCDCheckBox }
procedure TCDCheckBox.PrepareCurrentDrawer;
@ -849,7 +974,7 @@ end;
procedure TCDButtonControl.DoButtonUp();
begin
if FButtonState.IsDown then
if FButtonState.IsDown then
begin
FButtonState.IsDown := False;
Invalidate;