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

object inspector: increase drop down limit of combobox

Browse Source 
git-svn-id: trunk@17042 -
This commit is contained in:
paul 2008-10-18 17:00:47 +00:00
parent 84f9c1b464
commit 1c96951044
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ideintf/objectinspector.pp
View File

@ -830,7 +830,8 @@ begin
// create sub components // create sub components
ValueEdit:=TEdit.Create(Self); ValueEdit:=TEdit.Create(Self);
with ValueEdit do begin with ValueEdit do
begin
Name:='ValueEdit'; Name:='ValueEdit';
Visible:=false; Visible:=false;
Enabled:=false; Enabled:=false;
@ -848,7 +849,8 @@ begin
end; end;
ValueComboBox:=TComboBox.Create(Self); ValueComboBox:=TComboBox.Create(Self);
with ValueComboBox do begin with ValueComboBox do
begin
Name:='ValueComboBox'; Name:='ValueComboBox';
Sorted:=true; Sorted:=true;
AutoSelect:=true; AutoSelect:=true;
@ -857,6 +859,7 @@ begin
Enabled:=false; Enabled:=false;
AutoSize:=false; AutoSize:=false;
SetBounds(0,-30,Width,Height); // hidden SetBounds(0,-30,Width,Height); // hidden
DropDownCount:=20;
Parent:=Self; Parent:=Self;
OnMouseDown := @ValueControlMouseDown; OnMouseDown := @ValueControlMouseDown;
OnMouseMove := @ValueControlMouseMove; OnMouseMove := @ValueControlMouseMove;
@ -873,7 +876,8 @@ begin
end; end;
ValueCheckBox:=TCheckBox.Create(Self); ValueCheckBox:=TCheckBox.Create(Self);
with ValueCheckBox do begin with ValueCheckBox do
begin
Name:='ValueCheckBox'; Name:='ValueCheckBox';
Visible:=false; Visible:=false;
AutoSize:=false; AutoSize:=false;
@ -888,7 +892,8 @@ begin
end; end;
ValueButton:=TSpeedButton.Create(Self); ValueButton:=TSpeedButton.Create(Self);
with ValueButton do begin with ValueButton do
begin
Name:='ValueButton'; Name:='ValueButton';
Visible:=false; Visible:=false;
Enabled:=false; Enabled:=false;