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

win32: prevent combobox height resizing since windows combobox has fixed height (by Mattias instructions)

Browse Source 
git-svn-id: trunk@12638 -
This commit is contained in:
paul 2007-10-30 02:18:01 +00:00
parent c644f33dc3
commit a1e7edc076
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/win32/win32lclintf.inc
View File

@ -328,6 +328,11 @@ begin
begin
FixedHeight := true;
FixedWidth := true;
end
else
if SizeConstraints.Control is TCustomComboBox then
begin
FixedHeight := True; // win32 combo has fixed height
end;
if (FixedHeight or FixedWidth)

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

@ -83,6 +83,8 @@ type
const AParams: TCreateParams): HWND; override;
class procedure AdaptBounds(const AWinControl: TWinControl;
var Left, Top, Width, Height: integer; var SuppressMove: boolean); override;
class procedure GetPreferredSize(const AWinControl: TWinControl;
var PreferredWidth, PreferredHeight: integer; WithThemeSpace: Boolean); override;
class function GetSelStart(const ACustomComboBox: TCustomComboBox): integer; override;
class function GetSelLength(const ACustomComboBox: TCustomComboBox): integer; override;
class function GetItemIndex(const ACustomComboBox: TCustomComboBox): integer; override;
@ -768,6 +770,21 @@ begin
Height := StringList.ComboHeight;
end;
class procedure TWin32WSCustomComboBox.GetPreferredSize(
const AWinControl: TWinControl; var PreferredWidth, PreferredHeight: integer;
WithThemeSpace: Boolean);
begin
if not AWinControl.HandleAllocated then
begin
// any idea about?
PreferredHeight := 0;
end
else
begin
PreferredHeight := AWinControl.Height;
end;
end;
class function TWin32WSCustomComboBox.GetSelStart(const ACustomComboBox: TCustomComboBox): integer;
begin
SendMessage(ACustomComboBox.Handle, CB_GETEDITSEL, Windows.WPARAM(@Result), Windows.LPARAM(nil));