paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-20 16:31:34 +02: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 GetEchoMode: TEchoMode;
function GetEditColor: TColor;
function GetEditText: string;
function GetFlat: Boolean;
function GetGlyph: TBitmap;
function GetMaxLength: Integer;
@ -114,6 +115,7 @@ type
procedure SetEchoMode(AValue: TEchoMode);
procedure SetEditColor(AValue: TColor);
procedure SetEditDragMode(AValue: TDragMode);
procedure SetEditText(AValue: string);
procedure SetFlat(AValue: Boolean);
procedure SetGlyph(AValue: TBitmap);
procedure SetMaxLength(AValue: Integer);
@ -144,6 +146,7 @@ type
property DragCursor: TCursor read GetEditDragCursor write SetEditDragCursor;
property DragMode: TDragMode read GetEditDragMode write SetEditDragMode;
property Color: TColor read GetEditColor write SetEditColor default {$ifdef UseCLDefault}clDefault{$else}clWindow{$endif};
property Text: string read GetEditText write SetEditText;
protected
// button
property Button: TSpeedButton read FButton;
@ -177,7 +180,7 @@ type
property ButtonHint;
property CharCase;
property Color;
property DirectInput;
property DirectInput; // ToDo
property DragCursor;
property DragMode;
property EchoMode;
@ -278,6 +281,11 @@ begin
Result:=Edit.Color;
end;
function TNewCustomEditButton.GetEditText: string;
begin
Result:=Edit.Text;
end;
function TNewCustomEditButton.GetFlat: Boolean;
begin
Result:=Button.Flat;
@ -432,6 +440,11 @@ begin
Edit.DragMode:=AValue;
end;
procedure TNewCustomEditButton.SetEditText(AValue: string);
begin
Edit.Text:=AValue;
end;
procedure TNewCustomEditButton.SetFlat(AValue: Boolean);
begin
Button.Flat:=AValue;