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

EchoMode for TCustomEdit. emNone not implemented for GTK+, falls back to emPassword

Browse Source 
behaviour.

git-svn-id: trunk@3296 -
This commit is contained in:
lazarus 2002-09-07 12:14:50 +00:00
parent 284edf961c
commit bb06eb301c
2 changed files with 47 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
lcl/include/customedit.inc
View File

@ -165,22 +165,34 @@ End;
Params: Value to set FMaxLength to
Returns: Nothing
------------------------------------------------------------------------------}
Procedure TCustomEdit.SetMaxLength(Value : Integer);
Begin
FMaxLength := Value;
CNSendMessage(LM_SETPROPERTIES, Self, nil);
End;
procedure TCustomEdit.SetMaxLength(Value : Integer);
begin
FMaxLength := Value;
CNSendMessage(LM_SETPROPERTIES, Self, nil);
end;
{------------------------------------------------------------------------------
Method: TCustomEdit.SetModified
Params: Value to set FModified to
Returns: Nothing
------------------------------------------------------------------------------}
Procedure TCustomEdit.SetModified(Value : Boolean);
Begin
FModified := Value;
End;
procedure TCustomEdit.SetModified(Value : Boolean);
begin
FModified := Value;
end;
{------------------------------------------------------------------------------
Method: TCustomEdit.SetEchoMode
Params: Value to set FModified to
Returns: Nothing
------------------------------------------------------------------------------}
procedure TCustomEdit.SetEchoMode(Val : TEchoMode);
begin
if (Val <> FEchoMode) then begin
FEchoMode:= Val;
CNSendMessage(LM_SETPROPERTIES, Self, nil);
end;
end;
{------------------------------------------------------------------------------
Method: TCustomEdit.SetReadOnly
@ -242,7 +254,12 @@ end;
{ =============================================================================
$Log$
Revision 1.10 2002/09/07 12:14:50 lazarus
EchoMode for TCustomEdit. emNone not implemented for GTK+, falls back to emPassword
behaviour.
Revision 1.9 2002/08/30 06:46:03 lazarus
Use comboboxes. Use history. Prettify the dialog. Preselect text on show.
Make the findreplace a dialog. Thus removing resiying code (handled by Anchors now anyway).
Make Anchors work again and publish them for various controls.

26
lcl/stdctrls.pp
View File

@ -45,7 +45,6 @@ type
{ TScrollBar }
TEditCharCase = (ecNormal, ecUppercase, ecLowerCase);
TScrollStyle = (ssNone, ssHorizontal, ssVertical, ssBoth,
ssAutoHorizontal, ssAutoVertical, ssAutoBoth);
@ -327,12 +326,16 @@ type
property Visible;
end;
TEditCharCase = (ecNormal, ecUppercase, ecLowerCase);
TEchoMode = (emNormal, emNone, emPassword);
TCustomEdit = class(TWinControl)
private
FCharCase : TEditCharCase;
FEchoMode : TEchoMode;
FMaxLength : Integer;
FModified : Boolean;
FReadOnly : Boolean;
FCharCase : TEditCharCase;
FOnChange : TNotifyEvent;
FSelLength : integer;
FSelStart : integer;
@ -348,21 +351,22 @@ type
function GetSelStart : integer; virtual;
function GetSelText : string; virtual;
procedure InitializeWnd; override;
procedure SetEchoMode(Val : TEchoMode); virtual;
procedure SetSelLength(Val : integer); virtual;
procedure SetSelStart(Val : integer); virtual;
procedure SetSelText(const Val : string); virtual;
property OnChange : TNotifyEvent read FOnChange write FOnChange;
public
constructor Create(AOwner: TComponent); override;
procedure SelectAll;
property CharCase : TEditCharCase read FCharCase write SetCharCase default ecNormal;
property EchoMode : TEchoMode read FEchoMode write SetEchoMode default emNormal;
property MaxLength : Integer read FMaxLength write SetMaxLength default 0;
property ReadOnly : Boolean read FReadOnly write SetReadOnly default false;
property SelLength: integer read GetSelLength write SetSelLength;
property SelStart: integer read GetSelStart write SetSelStart;
property SelText: String read GetSelText write SetSelText;
constructor Create(AOwner: TComponent); override;
property Modified : Boolean read GetModified write SetModified;
property Text;
published
@ -393,15 +397,18 @@ type
TEdit = class(TCustomEdit)
published
property Anchors;
property OnChange;
property OnClick;
property CharCase;
property DragMode;
property EchoMode;
property MaxLength;
property PopupMenu;
property ReadOnly;
property Text;
property Visible;
property OnChange;
property OnClick;
property OnEnter;
property OnExit;
end;
TMemo = class(TCustomMemo)
@ -418,6 +425,8 @@ type
property Visible;
property WordWrap;
property OnChange;
property OnEnter;
property OnExit;
end;
{ TCustomLabel }
@ -725,7 +734,12 @@ end.
{ =============================================================================
$Log$
Revision 1.42 2002/09/07 12:14:50 lazarus
EchoMode for TCustomEdit. emNone not implemented for GTK+, falls back to emPassword
behaviour.
Revision 1.41 2002/09/05 10:12:06 lazarus
New dialog for multiline caption of TCustomLabel.
Prettified TStrings property editor.
Memo now has automatic scrollbars (not fully working), WordWrap and Scrollbars property