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

win32: fix calling of SetText for TCombobox (issue #0024591)

Browse Source 
git-svn-id: trunk@41710 -
This commit is contained in:
paul 2013-06-14 02:36:30 +00:00
parent 87b70e8023
commit 1ff1a2384f
3 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32callback.inc
View File

@ -614,7 +614,7 @@ var
Index := ItemIndex; Index := ItemIndex;
// Index might be -1, if current text is not in the list. // Index might be -1, if current text is not in the list.
if (Index>=0) then if (Index>=0) then
TWin32WSCustomComboBox.SetText(ComboBox, Items[Index]); TWin32WSWinControl.SetText(ComboBox, Items[Index]);
end; end;
end; end;

1
lcl/interfaces/win32/win32int.pp
View File

@ -243,6 +243,7 @@ uses
WsControls, WsControls,
Win32Proc, Win32Proc,
Win32WSFactory, Win32WSFactory,
Win32WSControls,
Win32WSButtons, Win32WSButtons,
Win32WSMenus, Win32WSMenus,
Win32WSStdCtrls, Win32WSStdCtrls,

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

@ -374,7 +374,7 @@ begin
// restore text in edit box // restore text in edit box
UpdateComboHeight; UpdateComboHeight;
TWin32WSCustomComboBox.SetText(FSender, EditText); TWin32WSWinControl.SetText(FSender, EditText);
if EditText = '' then if EditText = '' then
lItemIndex := -1 lItemIndex := -1
else else