paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 12:58:15 +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
ValueEdit:=TEdit.Create(Self);
with ValueEdit do begin
with ValueEdit do
begin
Name:='ValueEdit';
Visible:=false;
Enabled:=false;
@ -848,7 +849,8 @@ begin
end;
ValueComboBox:=TComboBox.Create(Self);
with ValueComboBox do begin
with ValueComboBox do
begin
Name:='ValueComboBox';
Sorted:=true;
AutoSelect:=true;
@ -857,6 +859,7 @@ begin
Enabled:=false;
AutoSize:=false;
SetBounds(0,-30,Width,Height); // hidden
DropDownCount:=20;
Parent:=Self;
OnMouseDown := @ValueControlMouseDown;
OnMouseMove := @ValueControlMouseMove;
@ -873,7 +876,8 @@ begin
end;
ValueCheckBox:=TCheckBox.Create(Self);
with ValueCheckBox do begin
with ValueCheckBox do
begin
Name:='ValueCheckBox';
Visible:=false;
AutoSize:=false;
@ -888,7 +892,8 @@ begin
end;
ValueButton:=TSpeedButton.Create(Self);
with ValueButton do begin
with ValueButton do
begin
Name:='ValueButton';
Visible:=false;
Enabled:=false;