paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-12 11:20:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: TCustomEdit: property AutoSelect, CustomComboBox: property AutoSelect and property CharCase from Funky Beast

Browse Source 
git-svn-id: trunk@10327 -
This commit is contained in:
mattias 2006-12-13 09:22:00 +00:00
parent ffb717dbc2
commit 503a5be753
4 changed files with 391 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

242
docs/xml/lcl/stdctrls.xml
View File

@ -1027,10 +1027,48 @@ radio buttons will be mutually exclusive within the group.</descr>
<!-- property Visibility: published --> <!-- property Visibility: published -->
<element name="TGroupBox.OnUnDock"> <element name="TGroupBox.OnUnDock">
<short/> <short/>
<descr/> <descr>
<short>property AutoCompleteText: TComboBoxAutoCompleteText</short>
</descr>
<seealso/> <seealso/>
</element> </element>
<!-- enumeration type Visibility: default --> <!-- enumeration type Visibility: default -->
<element name="TComboBoxAutoCompleteTextOption">
<short>TComboBoxAutoCompleteTextOption defines the behavior of the AutoComplete feature in a combobox control.</short>
<descr>TComboBoxAutoCompleteTextOption = (cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase,
cbactSearchCaseSensitive, cbactSearchAscending);
Defines the behavior of the AutoComplete feature.
&lt;ul&gt;&lt;li&gt;cbactEnabled: Enable Auto-Completion feature.&lt;/li&gt;&lt;li&gt;cbactEndOfLineComplete: Perform Auto-Complete only when cursor is at the end of the string.&lt;/li&gt;&lt;li&gt;cbactRetainPrefixCase: Retains the case of characters user has typed. (This option has no effect if cbactEndOfLineComplete is False)&lt;/li&gt;&lt;li&gt;cbactSearchCaseSensitive: Search completion string with case sensitivity.&lt;/li&gt;&lt;li&gt;cbactSearchAscending: Search completion string in accending order. (False will search in descending order)&lt;/li&gt;&lt;/ul&gt;</descr>
<seealso/>
</element>
<!-- enumeration value Visibility: default -->
<element name="TComboBoxAutoCompleteTextOption.cbactEnabled">
<short/>
</element>
<!-- enumeration value Visibility: default -->
<element name="TComboBoxAutoCompleteTextOption.cbactEndOfLineComplete">
<short/>
</element>
<!-- enumeration value Visibility: default -->
<element name="TComboBoxAutoCompleteTextOption.cbactRetainPrefixCase">
<short/>
</element>
<!-- enumeration value Visibility: default -->
<element name="TComboBoxAutoCompleteTextOption.cbactSearchCaseSensitive">
<short/>
</element>
<!-- enumeration value Visibility: default -->
<element name="TComboBoxAutoCompleteTextOption.cbactSearchAscending">
<short/>
</element>
<!-- set type Visibility: default -->
<element name="TComboBoxAutoCompleteText">
<short>TComboBoxAutoCompleteText = set of TComboBoxAutoCompleteTextOption;</short>
<descr/>
<seealso>&lt;link id="TComboBoxAutoCompleteTextOption"/&gt;</seealso>
</element>
<!-- enumeration type Visibility: default -->
<element name="TComboBoxStyle"> <element name="TComboBoxStyle">
<short>ComboBox Style</short> <short>ComboBox Style</short>
<descr>ComboBox Style: may be Simple, a Drop-Down or a drop-down list, or some version drawn by the Owner</descr> <descr>ComboBox Style: may be Simple, a Drop-Down or a drop-down list, or some version drawn by the Owner</descr>
@ -1107,6 +1145,43 @@ radio buttons will be mutually exclusive within the group.</descr>
<descr>Custom Combination Box: the base class from which Combo Box is derived.</descr> <descr>Custom Combination Box: the base class from which Combo Box is derived.</descr>
</element> </element>
<!-- variable Visibility: private --> <!-- variable Visibility: private -->
<element name="TCustomComboBox.FCharCase">
<short>FCharCase: TEditCharCase</short>
<descr/>
<seealso/>
</element>
<!-- variable Visibility: private -->
<element name="TCustomComboBox.FAutoCompleteText">
<short>FAutoCompleteText: TComboBoxAutoCompleteText</short>
<descr>Private variable of property AutoCompleteText.
Options for behavior of the Auto-Complete feature.
</descr>
<seealso/>
</element>
<!-- variable Visibility: private -->
<element name="TCustomComboBox.FAutoSelect">
<short>FAutoSelect: Boolean</short>
<descr>Private variable for property AutoSelect.
When True, the edit control will select all its text when:
&lt;ul&gt;&lt;li&gt;It recieves focus&lt;/li&gt;&lt;li&gt;The Enter key is pressed.&lt;/li&gt;&lt;li&gt;A new item is selected.&lt;/li&gt;&lt;/ul&gt;</descr>
<seealso/>
</element>
<!-- variable Visibility: private -->
<element name="TCustomComboBox.FAutoSelected">
<short>FAutoSelected: Boolean</short>
<descr>Private variable for property AutoSelected.
True indicate that the edit or combobox control has just performed
an AutoSelect opertation so that subsequent mouse-clicks and keystrokes
proceeds normally without selecting the text.
False is set when the edit or combobox control looses focus.
</descr>
<seealso/>
</element>
<!-- variable Visibility: private -->
<element name="TCustomComboBox.FAutoDropDown"> <element name="TCustomComboBox.FAutoDropDown">
<short/> <short/>
<descr/> <descr/>
@ -1187,7 +1262,11 @@ radio buttons will be mutually exclusive within the group.</descr>
<!-- variable Visibility: private --> <!-- variable Visibility: private -->
<element name="TCustomComboBox.FOnMeasureItem"> <element name="TCustomComboBox.FOnMeasureItem">
<short/> <short/>
<descr/> <descr>
<short>Combo Box</short>
<descr>Combo box. A simple combination of text box for free text entry, and a drop-down list allowing one of several options to be chosen.
</descr>
</descr>
<seealso/> <seealso/>
</element> </element>
<!-- variable Visibility: private --> <!-- variable Visibility: private -->
@ -1782,6 +1861,12 @@ radio buttons will be mutually exclusive within the group.</descr>
<errors/> <errors/>
<seealso/> <seealso/>
</element> </element>
<element name="TCustomComboBox.CharCase">
<short>property CharCase: TEditCharCase</short>
<descr>Indicates how text is displayed in a text editing control in the following ways:
&lt;ul&gt;&lt;li&gt;Normal case letters&lt;/li&gt;&lt;li&gt;Upper case letters&lt;/li&gt;&lt;li&gt;Lower case letters&lt;/li&gt;&lt;/ul&gt;</descr>
<seealso/>
</element>
<!-- property Visibility: public --> <!-- property Visibility: public -->
<element name="TCustomComboBox.DroppedDown"> <element name="TCustomComboBox.DroppedDown">
<short/> <short/>
@ -1811,12 +1896,43 @@ radio buttons will be mutually exclusive within the group.</descr>
<seealso/> <seealso/>
</element> </element>
<!-- property Visibility: public --> <!-- property Visibility: public -->
<element name="TCustomComboBox.AutoComplete">
<short/>
<descr/>
<seealso/>
</element>
<!-- property Visibility: public -->
<element name="TCustomComboBox.AutoCompleteText">
<short>property AutoCompleteText: TComboBoxAutoCompleteText</short>
<descr>Options for behavior of the Auto-Complete feature.
</descr>
<seealso>&lt;link id="TComboBoxAutoCompleteTextOption"/&gt;</seealso>
</element>
<!-- property Visibility: public -->
<element name="TCustomComboBox.AutoDropDown"> <element name="TCustomComboBox.AutoDropDown">
<short/> <short/>
<descr/> <descr/>
<seealso/> <seealso/>
</element> </element>
<!-- property Visibility: public --> <!-- property Visibility: public -->
<element name="TCustomComboBox.AutoSelect">
<short>property AutoSelect: Boolean</short>
<descr>When True, the edit control will select all its text when:
&lt;ul&gt;&lt;li&gt;It recieves focus&lt;/li&gt;&lt;li&gt;The Enter key is pressed.&lt;/li&gt;&lt;li&gt;A new item is selected.&lt;/li&gt;&lt;/ul&gt;</descr>
<seealso/>
</element>
<!-- property Visibility: public -->
<element name="TCustomComboBox.AutoSelected">
<short>property AutoSelected: Boolean</short>
<descr>True indicate that the edit or combobox control has just performed
an AutoSelect operation so that subsequent mouse-clicks and keystrokes
proceeds normally without selecting the text.
False is set when the edit or combobox control looses focus.
</descr>
<seealso/>
</element>
<!-- property Visibility: public -->
<element name="TCustomComboBox.ArrowKeysTraverseList"> <element name="TCustomComboBox.ArrowKeysTraverseList">
<short/> <short/>
<descr/> <descr/>
@ -1906,18 +2022,48 @@ radio buttons will be mutually exclusive within the group.</descr>
<seealso/> <seealso/>
</element> </element>
<!-- property Visibility: published --> <!-- property Visibility: published -->
<element name="TComboBox.AutoComplete">
<short>property AutoComplete: Boolean</short>
<descr>True: Turns on auto-complete feature.
False: Turns off auto-complete feature.</descr>
<seealso/>
</element>
<!-- property Visibility: published -->
<element name="TComboBox.AutoCompleteText">
<short>property AutoCompleteText: TComboBoxAutoCompleteText</short>
<descr>Options for behavior of the Auto-Complete feature.
</descr>
<seealso>&lt;link id="TComboBoxAutoCompleteTextOption"/&gt;
&lt;link id="TComboBoxAutoCompleteText"/&gt;
</seealso>
</element>
<!-- property Visibility: published -->
<element name="TComboBox.AutoDropDown"> <element name="TComboBox.AutoDropDown">
<short/> <short/>
<descr/> <descr/>
<seealso/> <seealso/>
</element> </element>
<!-- property Visibility: published --> <!-- property Visibility: published -->
<element name="TComboBox.AutoSelect">
<short>property AutoSelected: Boolean</short>
<descr>When True, the edit control will select all its text when:
&lt;ul&gt;&lt;li&gt;It recieves focus&lt;/li&gt;&lt;li&gt;The Enter key is pressed.&lt;/li&gt;&lt;li&gt;A new item is selected.&lt;/li&gt;&lt;/ul&gt;</descr>
<seealso/>
</element>
<!-- property Visibility: published -->
<element name="TComboBox.BorderSpacing"> <element name="TComboBox.BorderSpacing">
<short/> <short/>
<descr/> <descr/>
<seealso/> <seealso/>
</element> </element>
<!-- property Visibility: published --> <!-- property Visibility: published -->
<element name="TComboBox.CharCase">
<short>property CharCase: TEditCharCase</short>
<descr>Indicates how text is displayed in a text editing control in the following ways:
&lt;ul&gt;&lt;li&gt;Normal case letters&lt;/li&gt;&lt;li&gt;Upper case letters&lt;/li&gt;&lt;li&gt;Lower case letters&lt;/li&gt;&lt;/ul&gt;</descr>
<seealso/>
</element>
<!-- property Visibility: published -->
<element name="TComboBox.Ctl3D"> <element name="TComboBox.Ctl3D">
<short/> <short/>
<descr/> <descr/>
@ -2095,7 +2241,11 @@ radio buttons will be mutually exclusive within the group.</descr>
<element name="TComboBox.Style"> <element name="TComboBox.Style">
<short/> <short/>
<descr/> <descr/>
<seealso/> <seealso>
<descr>Options for behavior of the Auto-Complete feature.
</descr>
<seealso>&lt;link id="TComboBoxAutoCompleteTextOption"/&gt;&lt;link id="TComboBoxAutoCompleteText"/&gt;</seealso>
</seealso>
</element> </element>
<!-- property Visibility: published --> <!-- property Visibility: published -->
<element name="TComboBox.TabOrder"> <element name="TComboBox.TabOrder">
@ -3259,25 +3409,25 @@ radio buttons will be mutually exclusive within the group.</descr>
</element> </element>
<!-- enumeration type Visibility: default --> <!-- enumeration type Visibility: default -->
<element name="TEditCharCase"> <element name="TEditCharCase">
<short/> <short>Determines the case of text displayed in the edit box or combobox.</short>
<descr/> <descr/>
<seealso/> <seealso/>
</element> </element>
<!-- enumeration value Visibility: default --> <!-- enumeration value Visibility: default -->
<element name="TEditCharCase.ecNormal"> <element name="TEditCharCase.ecNormal">
<short/> <short>Character case according to what the user types.</short>
</element> </element>
<!-- enumeration value Visibility: default --> <!-- enumeration value Visibility: default -->
<element name="TEditCharCase.ecUppercase"> <element name="TEditCharCase.ecUppercase">
<short/> <short>Converts every character that the user types into upper case characters.</short>
</element> </element>
<!-- enumeration value Visibility: default --> <!-- enumeration value Visibility: default -->
<element name="TEditCharCase.ecLowerCase"> <element name="TEditCharCase.ecLowerCase">
<short/> <short>Converts every character that the user types into lower case characters.</short>
</element> </element>
<!-- enumeration type Visibility: default --> <!-- enumeration type Visibility: default -->
<element name="TEchoMode"> <element name="TEchoMode">
<short/> <short>TEchoMode: Determines how strings in the edit box is displayed.</short>
<descr/> <descr/>
<seealso/> <seealso/>
</element> </element>
@ -3298,11 +3448,34 @@ radio buttons will be mutually exclusive within the group.</descr>
<short>Custom Edit</short> <short>Custom Edit</short>
<descr>Custom Edit: the base type from which Edit Box is derived.</descr> <descr>Custom Edit: the base type from which Edit Box is derived.</descr>
</element> </element>
<element name="TCustomEdit.FAutoSelect">
<short>FAutoSelect: Boolean</short>
<descr>Private variable for property AutoSelect.
When True, the edit control will select all its text when:
&lt;ul&gt;&lt;li&gt;It recieves focus&lt;/li&gt;&lt;li&gt;The Enter key is pressed.&lt;/li&gt;&lt;li&gt;A new item is selected.&lt;/li&gt;&lt;/ul&gt;</descr>
<seealso/>
</element>
<!-- variable Visibility: private -->
<element name="TCustomEdit.FAutoSelected">
<short>FAutoSelected: Boolean</short>
<descr>Private variable for property AutoSelected.
True indicate that the edit or combobox control has just performed
an AutoSelect opertation so that subsequent mouse-clicks and keystrokes
proceeds normally without selecting the text.
False is set when the edit or combobox control looses focus.</descr>
<seealso/>
</element>
<!-- variable Visibility: private --> <!-- variable Visibility: private -->
<element name="TCustomEdit.FCharCase"> <element name="TCustomEdit.FCharCase">
<short/> <short>FCharCase: TEditCharCase</short>
<descr/> <descr>Private variable for property CharCase.
<seealso/>
Indicates how text is displayed in a text editing control in the following ways:
&lt;ul&gt;&lt;li&gt;Normal case letters&lt;/li&gt;&lt;li&gt;Upper case letters&lt;/li&gt;&lt;li&gt;Lower case letters&lt;/li&gt;&lt;/ul&gt;</descr>
<seealso>&lt;link id="TEditCharCase"/&gt;&lt;link id="TEditCharCase.ecNormal"/&gt;&lt;link id="TEditCharCase.ecUppercase"/&gt;&lt;link id="TEditCharCase.ecLowerCase"/&gt;</seealso>
</element> </element>
<!-- variable Visibility: private --> <!-- variable Visibility: private -->
<element name="TCustomEdit.FEchoMode"> <element name="TCustomEdit.FEchoMode">
@ -3583,6 +3756,25 @@ radio buttons will be mutually exclusive within the group.</descr>
<element name="TCustomEdit.KeyUp.Shift"> <element name="TCustomEdit.KeyUp.Shift">
<short/> <short/>
</element> </element>
<!-- property Visibility: protected -->
<element name="TCustomEdit.AutoSelect">
<short>property AutoSelect: Boolean</short>
<descr>When True, the edit control will select all its text when it
recieves focus or when the Enter key is pressed.
</descr>
<seealso/>
</element>
<!-- property Visibility: protected -->
<element name="TCustomEdit.AutoSelected">
<short>property AutoSelected: Boolean</short>
<descr>True indicate that the edit or combobox control has just performed
an AutoSelect operation so that subsequent mouse-clicks and keystrokes
proceeds normally without selecting the text.
False is set when the edit or combobox control looses focus.
</descr>
<seealso/>
</element>
<!-- constructor Visibility: public --> <!-- constructor Visibility: public -->
<element name="TCustomEdit.Create"> <element name="TCustomEdit.Create">
<short/> <short/>
@ -3631,8 +3823,9 @@ radio buttons will be mutually exclusive within the group.</descr>
</element> </element>
<!-- property Visibility: public --> <!-- property Visibility: public -->
<element name="TCustomEdit.CharCase"> <element name="TCustomEdit.CharCase">
<short/> <short>property CharCase: TEditCharCase</short>
<descr/> <descr>Indicates how text is displayed in a text editing control in the following ways:
&lt;ul&gt;&lt;li&gt;Normal case letters&lt;/li&gt;&lt;li&gt;Upper case letters&lt;/li&gt;&lt;li&gt;Lower case letters&lt;/li&gt;&lt;/ul&gt;</descr>
<seealso/> <seealso/>
</element> </element>
<!-- property Visibility: public --> <!-- property Visibility: public -->
@ -3984,6 +4177,12 @@ radio buttons will be mutually exclusive within the group.</descr>
<descr>Edit Box: for entry or display of a single line of text. <descr>Edit Box: for entry or display of a single line of text.
<br/>Inherits most of its properties from TCustomEdit</descr> <br/>Inherits most of its properties from TCustomEdit</descr>
</element> </element>
<!-- property Visibility: public -->
<element name="TEdit.AutoSelected">
<short>property AutoSelected: Boolean</short>
<descr/>
<seealso/>
</element>
<!-- property Visibility: published --> <!-- property Visibility: published -->
<element name="TEdit.Action"> <element name="TEdit.Action">
<short>Action</short> <short>Action</short>
@ -4006,6 +4205,12 @@ radio buttons will be mutually exclusive within the group.</descr>
<seealso/> <seealso/>
</element> </element>
<!-- property Visibility: published --> <!-- property Visibility: published -->
<element name="TEdit.AutoSelect">
<short>property AutoSelect: Boolean</short>
<descr/>
<seealso/>
</element>
<!-- property Visibility: published -->
<element name="TEdit.BorderSpacing"> <element name="TEdit.BorderSpacing">
<short/> <short/>
<descr/> <descr/>
@ -5686,8 +5891,15 @@ User-defined Procedure</descr>
</element> </element>
<!-- variable Visibility: private --> <!-- variable Visibility: private -->
<element name="TCustomStaticText.FAlignment"> <element name="TCustomStaticText.FAlignment">
<short/> <short>FAutoSelected: Boolean</short>
<descr/> <descr>Private variable for property AutoSelected.
True indicate that the edit or combobox control has just performed
an AutoSelect operation so that subsequent mouse-clicks and keystrokes
proceeds normally without selecting the text.
False is set when the edit or combobox control looses focus.
</descr>
<seealso/> <seealso/>
</element> </element>
<!-- variable Visibility: private --> <!-- variable Visibility: private -->

72
lcl/include/customcombobox.inc
View File

@ -101,6 +101,24 @@ begin
end; end;
end; end;
procedure TCustomComboBox.DoEnter;
begin
inherited DoEnter;
//AutoSelect when DoEnter is fired by keyboard
if (Style = csDropDownList) then Exit;//Non editable style
if (FAutoSelect and not (csLButtonDown in ControlState)) then
begin
SelectAll;
if (SelText = Text) then FAutoSelected := True;
end;//End if (((Style = csDropDown) or.........
end;
procedure TCustomComboBox.DoExit;
begin
FAutoSelected := False;
inherited DoExit;
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TCustomComboBox.SetSorted Method: TCustomComboBox.SetSorted
Params: val - true means "sort" the combo Params: val - true means "sort" the combo
@ -204,6 +222,11 @@ begin
if not ReadOnly then if not ReadOnly then
EditingDone; EditingDone;
if Assigned(FOnCloseUp) then FOnCloseUp(Self); if Assigned(FOnCloseUp) then FOnCloseUp(Self);
if FAutoSelect then
begin
SelectAll;
if (SelText = Text) then FAutoSelected := True;
end;//End if FAutoSelect
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -376,6 +399,18 @@ begin
inherited WMChar(Message); inherited WMChar(Message);
end; end;
procedure TCustomComboBox.SetCharCase(eccCharCase: TEditCharCase);
begin
if (FCharCase <> eccCharCase) then
begin
FCharCase := eccCharCase;
case FCharCase of
ecUpperCase: Text := UpperCase(Text);
ecLowerCase: Text := Lowercase(Text);
end;//End case
end;//End if (FCharCase <> eccCharCase)
end;
procedure TCustomComboBox.KeyDown(var Key: Word; Shift: TShiftState); procedure TCustomComboBox.KeyDown(var Key: Word; Shift: TShiftState);
var var
skip : Boolean; skip : Boolean;
@ -427,8 +462,9 @@ begin
inherited KeyUp(Key, Shift); inherited KeyUp(Key, Shift);
if ((cbactEnabled in FAutoCompleteText) and (Style <> csDropDownList)) then if ((cbactEnabled in FAutoCompleteText) and (Style <> csDropDownList)) then
begin begin
//Only happens with alpha-numeric keys and return key and csDropDown Style //Only happens with alpha-numeric keys and return key and editable Style
if not (IsEditableTextKey(Key) or (Key = VK_RETURN) or (ssShift in Shift)) then Exit; if (IsEditableTextKey(Key) or (Key = VK_RETURN) or (ssShift in Shift)) then
begin
if (Key = VK_RETURN) then if (Key = VK_RETURN) then
SelectAll else SelectAll else
begin begin
@ -453,13 +489,42 @@ begin
SelLength := Length(Text); SelLength := Length(Text);
end;//End if not (sCompleteText = Text) end;//End if not (sCompleteText = Text)
end;//End if (Key = VK_RETURN) end;//End if (Key = VK_RETURN)
end;//End if (IsEditableTextKey(Key) or (Key = VK_RETURN) or (ssShift in Shift))
end;//End if ((cbactEnabled in FAutoCompleteText) and (Style = csDropDown)) end;//End if ((cbactEnabled in FAutoCompleteText) and (Style = csDropDown))
//SelectAll when hitting return key for AutoSelect feature
if (Key = VK_RETURN) then
begin
if FAutoSelect then
begin
SelectAll;
if (SelText = Text) then FAutoSelected := True;
end;//End if FAutoSelect
end;//End if (Key = VK_RETURN)
end;
procedure TCustomComboBox.KeyPress(var Key: char);
begin
//Convert character cases if FCharCase is not ecNormalCase
case FCharCase of
ecLowerCase: Key := lowerCase(Key);
ecUpperCase: Key := upCase(Key);
end;//End case
inherited KeyPress(Key);
end; end;
procedure TCustomComboBox.MouseUp(Button: TMouseButton; Shift:TShiftState; procedure TCustomComboBox.MouseUp(Button: TMouseButton; Shift:TShiftState;
X, Y: Integer); X, Y: Integer);
begin begin
inherited MouseUp(Button, Shift, X, Y); inherited MouseUp(Button, Shift, X, Y);
//AutoSelect when left mouse is clicked for the 1st time after having focus
if (Button = mbLeft) then
begin
if (FAutoSelect and not FAutoSelected) then
begin
SelectAll;
if (SelText = Text) then FAutoSelected := True;
end;//End if (FAutoSelect and not FAutoSelected)
end;//End if (Button = mbLeft)
//if (Style = csDropDownList) then //if (Style = csDropDownList) then
// DroppedDown := not DroppedDown; // DroppedDown := not DroppedDown;
end; end;
@ -627,6 +692,9 @@ begin
TabStop := true; TabStop := true;
ParentColor := false; ParentColor := false;
FAutoCompleteText := [cbactEndOfLineComplete, cbactSearchAscending]; FAutoCompleteText := [cbactEndOfLineComplete, cbactSearchAscending];
FAutoSelect := False;
FAutoSelected := False;
FCharCase := ecNormal;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------

43
lcl/include/customedit.inc
View File

@ -55,6 +55,8 @@ begin
SetInitialBounds(0,0,80,23); SetInitialBounds(0,0,80,23);
FEchoMode := emNormal; FEchoMode := emNormal;
BorderStyle := bsSingle; BorderStyle := bsSingle;
FAutoSelect := False;
FAutoSelected := False;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -348,7 +350,15 @@ end;
procedure TCustomEdit.KeyUp(var Key: Word; Shift: TShiftState); procedure TCustomEdit.KeyUp(var Key: Word; Shift: TShiftState);
begin begin
inherited KeyUp(Key, Shift); inherited KeyUp(Key, Shift);
if Key=VK_RETURN then EditingDone; if Key=VK_RETURN then
begin
EditingDone;
if FAutoSelect then
begin
SelectAll;
if (SelText = Text) then FAutoSelected := True;
end;//End if FAutoSelect
end;//End if Key=VK_RETURN
end; end;
procedure TCustomEdit.WMChar(var Message: TLMChar); procedure TCustomEdit.WMChar(var Message: TLMChar);
@ -363,6 +373,20 @@ begin
inherited WMChar(Message); inherited WMChar(Message);
end; end;
procedure TCustomEdit.MouseUp(Button: TMouseButton; Shift:TShiftState; X, Y: Integer);
begin
inherited MouseUp(Button, Shift, X, Y);
//AutoSelect when left mouse is clicked for the 1st time after having focus
if (Button = mbLeft) then
begin
if (FAutoSelect and not FAutoSelected) then
begin
SelectAll;
if (SelText = Text) then FAutoSelected := True;
end;//End if (FAutoSelect and not FAutoSelected)
end;//End if (Button = mbLeft)
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TCustomEdit.SetModified Method: TCustomEdit.SetModified
Params: Value to set FModified to Params: Value to set FModified to
@ -396,6 +420,23 @@ Begin
if Assigned(FOnChange) then FOnChange(Self); if Assigned(FOnChange) then FOnChange(Self);
end; end;
procedure TCustomEdit.DoEnter;
begin
//AutoSelect when DoEnter is fired by keyboard
if (FAutoSelect and not (csLButtonDown in ControlState)) then
begin
SelectAll;
if (SelText = Text) then FAutoSelected := True;
end;//End if FAutoSelect
inherited DoEnter;
end;
procedure TCustomEdit.DoExit;
begin
FAutoSelected := False;
inherited DoExit;
end;
procedure TCustomEdit.InitializeWnd; procedure TCustomEdit.InitializeWnd;
var var
ASelStart, ASelLength : integer; ASelStart, ASelLength : integer;

34
lcl/stdctrls.pp
View File

@ -36,6 +36,11 @@ uses
type type
{ TCustomEdit Options}
TEditCharCase = (ecNormal, ecUppercase, ecLowerCase);
TEchoMode = (emNormal, emNone, emPassword);
{ TScrollBar } { TScrollBar }
TScrollStyle = (ssNone, ssHorizontal, ssVertical, ssBoth, TScrollStyle = (ssNone, ssHorizontal, ssVertical, ssBoth,
@ -238,7 +243,10 @@ type
TCustomComboBox = class(TWinControl) TCustomComboBox = class(TWinControl)
private private
FCharCase: TEditCharCase;
FAutoCompleteText: TComboBoxAutoCompleteText; FAutoCompleteText: TComboBoxAutoCompleteText;
FAutoSelect: Boolean;
FAutoSelected: Boolean;
FAutoDropDown: Boolean; FAutoDropDown: Boolean;
FCanvas: TCanvas; FCanvas: TCanvas;
FDropDownCount: Integer; FDropDownCount: Integer;
@ -275,9 +283,12 @@ type
procedure UpdateSorted; procedure UpdateSorted;
procedure SetArrowKeysTraverseList(Value: Boolean); procedure SetArrowKeysTraverseList(Value: Boolean);
procedure WMChar(var Message: TLMChar); message LM_CHAR; procedure WMChar(var Message: TLMChar); message LM_CHAR;
procedure SetCharCase(eccCharCase: TEditCharCase);
protected protected
procedure InitializeWnd; override; procedure InitializeWnd; override;
procedure DestroyWnd; override; procedure DestroyWnd; override;
procedure DoEnter; override;
procedure DoExit; override;
procedure DrawItem(Index: Integer; ARect: TRect; procedure DrawItem(Index: Integer; ARect: TRect;
State: TOwnerDrawState); virtual; State: TOwnerDrawState); virtual;
procedure LMChanged(var Msg); message LM_CHANGED; procedure LMChanged(var Msg); message LM_CHANGED;
@ -308,6 +319,7 @@ type
procedure RealSetText(const AValue: TCaption); override; procedure RealSetText(const AValue: TCaption); override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyUp(var Key: Word; Shift: TShiftState); override; procedure KeyUp(var Key: Word; Shift: TShiftState); override;
procedure KeyPress(var Key: char); override;
procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X, Y: Integer); override; procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X, Y: Integer); override;
function SelectItem(const AnItem: String): Boolean; function SelectItem(const AnItem: String): Boolean;
@ -333,6 +345,7 @@ type
MaxHistoryCount: integer; SetAsText, CaseSensitive: boolean); MaxHistoryCount: integer; SetAsText, CaseSensitive: boolean);
procedure Clear; virtual; procedure Clear; virtual;
procedure ClearSelection; //override; procedure ClearSelection; //override;
property CharCase: TEditCharCase read FCharCase write SetCharCase;
property DroppedDown: Boolean read GetDroppedDown write SetDroppedDown; property DroppedDown: Boolean read GetDroppedDown write SetDroppedDown;
procedure MeasureItem(Index: Integer; var TheHeight: Integer); virtual; procedure MeasureItem(Index: Integer; var TheHeight: Integer); virtual;
procedure SelectAll; procedure SelectAll;
@ -341,6 +354,8 @@ type
read FAutoCompleteText write FAutoCompleteText; read FAutoCompleteText write FAutoCompleteText;
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 AutoSelected: Boolean read FAutoSelected write FAutoSelected;
property ArrowKeysTraverseList: Boolean read FArrowKeysTraverseList property ArrowKeysTraverseList: Boolean read FArrowKeysTraverseList
write SetArrowKeysTraverseList default True; write SetArrowKeysTraverseList default True;
property Canvas: TCanvas read FCanvas; property Canvas: TCanvas read FCanvas;
@ -367,7 +382,9 @@ type
property AutoComplete; property AutoComplete;
property AutoCompleteText; property AutoCompleteText;
property AutoDropDown; property AutoDropDown;
property AutoSelect;
property BorderSpacing; property BorderSpacing;
property CharCase;
property Ctl3D; property Ctl3D;
property DropDownCount; property DropDownCount;
property Enabled; property Enabled;
@ -548,6 +565,8 @@ type
property ClickOnSelChange; property ClickOnSelChange;
property Color; property Color;
property Constraints; property Constraints;
property DragCursor;
property DragMode;
property ExtendedSelect; property ExtendedSelect;
property Enabled; property Enabled;
property Font; property Font;
@ -588,15 +607,12 @@ type
end; end;
{ TCustomEdit }
TEditCharCase = (ecNormal, ecUppercase, ecLowerCase);
TEchoMode = (emNormal, emNone, emPassword);
{ TCustomEdit } { TCustomEdit }
TCustomEdit = class(TWinControl) TCustomEdit = class(TWinControl)
private private
FAutoSelect: Boolean;
FAutoSelected: Boolean;
FCharCase: TEditCharCase; FCharCase: TEditCharCase;
FEchoMode: TEchoMode; FEchoMode: TEchoMode;
FMaxLength: Integer; FMaxLength: Integer;
@ -618,6 +634,8 @@ type
procedure CreateWnd; override; procedure CreateWnd; override;
procedure TextChanged; override; procedure TextChanged; override;
procedure Change; dynamic; procedure Change; dynamic;
procedure DoEnter; override;
procedure DoExit; override;
function GetSelLength: integer; virtual; function GetSelLength: integer; virtual;
function GetSelStart: integer; virtual; function GetSelStart: integer; virtual;
function GetSelText: string; virtual; function GetSelText: string; virtual;
@ -630,6 +648,9 @@ type
function ChildClassAllowed(ChildClass: TClass): boolean; override; function ChildClassAllowed(ChildClass: TClass): boolean; override;
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;
property AutoSelect: Boolean read FAutoSelect write FAutoSelect default False;
property AutoSelected: Boolean read FAutoSelected write FAutoSelected;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
procedure Clear; procedure Clear;
@ -721,11 +742,14 @@ type
{ TEdit } { TEdit }
TEdit = class(TCustomEdit) TEdit = class(TCustomEdit)
public
property AutoSelected;
published published
property Action; property Action;
property Align; property Align;
property Anchors; property Anchors;
property AutoSize; property AutoSize;
property AutoSelect;
property BorderSpacing; property BorderSpacing;
property Color; property Color;
property Constraints; property Constraints;