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

win32: restore not only combobox text but also cursor position and selection after items clear

Browse Source 
git-svn-id: trunk@22301 -
This commit is contained in:
paul 2009-10-27 02:15:35 +00:00
parent 170f532285
commit 18a0946b92
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/win32/win32listsl.inc
View File

@ -423,13 +423,22 @@ end;
procedure TWin32ComboBoxStringList.Clear; procedure TWin32ComboBoxStringList.Clear;
var var
SaveText: String; SaveText: String;
SavePos, SaveLen: Integer;
begin begin
if not TCustomComboBox(FSender).ReadOnly then if not TCustomComboBox(FSender).ReadOnly then
begin
SaveText := TCustomComboBox(FSender).Text; SaveText := TCustomComboBox(FSender).Text;
SavePos := TCustomComboBox(FSender).SelStart;
SaveLen := TCustomComboBox(FSender).SelLength;
end;
inherited; inherited;
UpdateComboHeight; UpdateComboHeight;
if not TCustomComboBox(FSender).ReadOnly then if not TCustomComboBox(FSender).ReadOnly then
begin
TCustomComboBox(FSender).Text := SaveText; TCustomComboBox(FSender).Text := SaveText;
TCustomComboBox(FSender).SelStart := SavePos;
TCustomComboBox(FSender).SelLength := SaveLen;
end;
end; end;
procedure TWin32ComboBoxStringList.Delete(Index: integer); procedure TWin32ComboBoxStringList.Delete(Index: integer);