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

win32: implementing combobox readonly property

Browse Source 
git-svn-id: branches/comboboxreadonly@63238 -
This commit is contained in:
dmitry 2020-05-28 12:54:25 +00:00
parent bc8507e6b6
commit dbeeed9c09
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/win32/win32wsstdctrls.pp
View File

@ -99,6 +99,7 @@ type
class procedure SetItemIndex(const ACustomComboBox: TCustomComboBox; NewIndex: integer); override;
class procedure SetMaxLength(const ACustomComboBox: TCustomComboBox; NewLength: integer); override;
class procedure SetStyle(const ACustomComboBox: TCustomComboBox; NewStyle: TComboBoxStyle); override;
class procedure SetReadOnly(const ACustomComboBox: TCustomComboBox; NewReadOnly: boolean); override;
class function GetItems(const ACustomComboBox: TCustomComboBox): TStrings; override;
class procedure Sort(const ACustomComboBox: TCustomComboBox; AList: TStrings; IsSorted: boolean); override;
@ -1058,6 +1059,20 @@ begin
RecreateWnd(ACustomComboBox);
end;
class procedure TWin32WSCustomComboBox.SetReadOnly(const ACustomComboBox: TCustomComboBox;
NewReadOnly: boolean);
var
Info: TComboboxInfo;
begin
if not ACustomComboBox.HandleAllocated then
Exit;
Info.cbSize := SizeOf(Info);
Win32Extra.GetComboBoxInfo(ACustomComboBox.Handle, @Info);
if (info.hwndItem<>0) and (info.hwndItem<>INVALID_HANDLE_VALUE) then
SendMessage(info.hwndItem, EM_SETREADONLY, WParam(NewReadOnly), 0);
end;
class function TWin32WSCustomComboBox.GetItemIndex(const ACustomComboBox: TCustomComboBox): integer;
begin
Result := SendMessage(ACustomComboBox.Handle, CB_GETCURSEL, 0, 0);