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

lcl: set AutoSelect to true by default for TEdit, TCombobox and descendants, disable AutoSelect for TCustomMemo

Browse Source 
git-svn-id: trunk@21831 -
This commit is contained in:
paul 2009-09-23 10:19:12 +00:00
parent 4d0d242dde
commit 38826ee313
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customcombobox.inc
View File

@ -767,7 +767,7 @@ begin
TabStop := True; TabStop := True;
ParentColor := False; ParentColor := False;
FAutoCompleteText := DefaultComboBoxAutoCompleteText; FAutoCompleteText := DefaultComboBoxAutoCompleteText;
FAutoSelect := False; FAutoSelect := True;
FAutoSelected := False; FAutoSelected := False;
FCharCase := ecNormal; FCharCase := ecNormal;

2
lcl/include/customedit.inc
View File

@ -60,7 +60,7 @@ begin
SetInitialBounds(0,0,GetControlClassDefaultSize.X,GetControlClassDefaultSize.Y); SetInitialBounds(0,0,GetControlClassDefaultSize.X,GetControlClassDefaultSize.Y);
FEchoMode := emNormal; FEchoMode := emNormal;
BorderStyle := bsSingle; BorderStyle := bsSingle;
FAutoSelect := False; FAutoSelect := True;
FAutoSelected := False; FAutoSelected := False;
AutoSize := True; AutoSize := True;
end; end;

4
lcl/stdctrls.pp
View File

@ -377,7 +377,7 @@ type
default DefaultComboBoxAutoCompleteText; default DefaultComboBoxAutoCompleteText;
property AutoDropDown: Boolean property AutoDropDown: Boolean
read FAutoDropDown write FAutoDropDown default False; read FAutoDropDown write FAutoDropDown default False;
property AutoSelect: Boolean read FAutoSelect write FAutoSelect default False; property AutoSelect: Boolean read FAutoSelect write FAutoSelect default True;
property AutoSelected: Boolean read FAutoSelected write FAutoSelected; property AutoSelected: Boolean read FAutoSelected write FAutoSelected;
property AutoSize default True; // Overrides default value property AutoSize default True; // Overrides default value
property ArrowKeysTraverseList: Boolean read FArrowKeysTraverseList property ArrowKeysTraverseList: Boolean read FArrowKeysTraverseList
@ -724,7 +724,7 @@ type
procedure KeyUp(var Key: Word; Shift: TShiftState); override; procedure KeyUp(var Key: Word; Shift: TShiftState); override;
procedure WMChar(var Message: TLMChar); message LM_CHAR; procedure WMChar(var Message: TLMChar); message LM_CHAR;
procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X, Y: Integer); override; procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X, Y: Integer); override;
property AutoSelect: Boolean read FAutoSelect write FAutoSelect default False; property AutoSelect: Boolean read FAutoSelect write FAutoSelect default True;
property AutoSelected: Boolean read FAutoSelected write FAutoSelected; property AutoSelected: Boolean read FAutoSelected write FAutoSelected;
property ParentColor default False; property ParentColor default False;
public public