paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-26 14:41:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

grouped editbtn: Text

Browse Source 
git-svn-id: trunk@37685 -
This commit is contained in:
mattias 2012-06-18 11:50:26 +00:00
parent 729a931a1b
commit b5b2ca11b8
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
examples/groupedcontrol/groupedctrls.pas
View File

@ -96,6 +96,7 @@ type
function GetEditDragMode: TDragMode; function GetEditDragMode: TDragMode;
function GetEchoMode: TEchoMode; function GetEchoMode: TEchoMode;
function GetEditColor: TColor; function GetEditColor: TColor;
function GetEditText: string;
function GetFlat: Boolean; function GetFlat: Boolean;
function GetGlyph: TBitmap; function GetGlyph: TBitmap;
function GetMaxLength: Integer; function GetMaxLength: Integer;
@ -114,6 +115,7 @@ type
procedure SetEchoMode(AValue: TEchoMode); procedure SetEchoMode(AValue: TEchoMode);
procedure SetEditColor(AValue: TColor); procedure SetEditColor(AValue: TColor);
procedure SetEditDragMode(AValue: TDragMode); procedure SetEditDragMode(AValue: TDragMode);
procedure SetEditText(AValue: string);
procedure SetFlat(AValue: Boolean); procedure SetFlat(AValue: Boolean);
procedure SetGlyph(AValue: TBitmap); procedure SetGlyph(AValue: TBitmap);
procedure SetMaxLength(AValue: Integer); procedure SetMaxLength(AValue: Integer);
@ -144,6 +146,7 @@ type
property DragCursor: TCursor read GetEditDragCursor write SetEditDragCursor; property DragCursor: TCursor read GetEditDragCursor write SetEditDragCursor;
property DragMode: TDragMode read GetEditDragMode write SetEditDragMode; property DragMode: TDragMode read GetEditDragMode write SetEditDragMode;
property Color: TColor read GetEditColor write SetEditColor default {$ifdef UseCLDefault}clDefault{$else}clWindow{$endif}; property Color: TColor read GetEditColor write SetEditColor default {$ifdef UseCLDefault}clDefault{$else}clWindow{$endif};
property Text: string read GetEditText write SetEditText;
protected protected
// button // button
property Button: TSpeedButton read FButton; property Button: TSpeedButton read FButton;
@ -177,7 +180,7 @@ type
property ButtonHint; property ButtonHint;
property CharCase; property CharCase;
property Color; property Color;
property DirectInput; property DirectInput; // ToDo
property DragCursor; property DragCursor;
property DragMode; property DragMode;
property EchoMode; property EchoMode;
@ -278,6 +281,11 @@ begin
Result:=Edit.Color; Result:=Edit.Color;
end; end;
function TNewCustomEditButton.GetEditText: string;
begin
Result:=Edit.Text;
end;
function TNewCustomEditButton.GetFlat: Boolean; function TNewCustomEditButton.GetFlat: Boolean;
begin begin
Result:=Button.Flat; Result:=Button.Flat;
@ -432,6 +440,11 @@ begin
Edit.DragMode:=AValue; Edit.DragMode:=AValue;
end; end;
procedure TNewCustomEditButton.SetEditText(AValue: string);
begin
Edit.Text:=AValue;
end;
procedure TNewCustomEditButton.SetFlat(AValue: Boolean); procedure TNewCustomEditButton.SetFlat(AValue: Boolean);
begin begin
Button.Flat:=AValue; Button.Flat:=AValue;