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

IDEIntf: object inspector: ussing OnGetItems

Browse Source 
git-svn-id: trunk@16313 -
This commit is contained in:
mattias 2008-08-30 21:15:27 +00:00
parent 2c13e3911b
commit 6aaa0102c7
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ideintf/objectinspector.pp
View File

@ -403,11 +403,7 @@ type
procedure ValueComboBoxMouseUp(Sender: TObject; Button: TMouseButton; procedure ValueComboBoxMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
procedure ValueComboBoxCloseUp(Sender: TObject); procedure ValueComboBoxCloseUp(Sender: TObject);
{$IFDEF UseOnGetItems}
procedure ValueComboBoxGetItems(Sender: TObject); procedure ValueComboBoxGetItems(Sender: TObject);
{$ELSE}
procedure ValueComboBoxDropDown(Sender: TObject);
{$ENDIF}
procedure ValueButtonClick(Sender: TObject); procedure ValueButtonClick(Sender: TObject);
procedure ValueComboBoxDrawItem(Control: TWinControl; Index: Integer; procedure ValueComboBoxDrawItem(Control: TWinControl; Index: Integer;
ARect: TRect; State: TOwnerDrawState); ARect: TRect; State: TOwnerDrawState);
@ -866,11 +862,7 @@ begin
OnKeyDown:=@ValueComboBoxKeyDown; OnKeyDown:=@ValueComboBoxKeyDown;
OnKeyUp:=@ValueComboBoxKeyUp; OnKeyUp:=@ValueComboBoxKeyUp;
OnMouseUp:=@ValueComboBoxMouseUp; OnMouseUp:=@ValueComboBoxMouseUp;
{$IFDEF UseOnGetItems}
OnGetItems:=@ValueComboBoxGetItems; OnGetItems:=@ValueComboBoxGetItems;
{$ELSE}
OnDropDown:=@ValueComboBoxDropDown;
{$ENDIF}
OnCloseUp:=@ValueComboBoxCloseUp; OnCloseUp:=@ValueComboBoxCloseUp;
OnDrawItem:=@ValueComboBoxDrawItem; OnDrawItem:=@ValueComboBoxDrawItem;
end; end;
@ -2643,11 +2635,7 @@ begin
SetRowValue; SetRowValue;
end; end;
{$IFDEF UseOnGetItems}
procedure TOICustomPropertyGrid.ValueComboBoxGetItems(Sender: TObject); procedure TOICustomPropertyGrid.ValueComboBoxGetItems(Sender: TObject);
{$ELSE}
procedure TOICustomPropertyGrid.ValueComboBoxDropDown(Sender: TObject);
{$ENDIF}
var var
CurRow: TOIPropertyGridRow; CurRow: TOIPropertyGridRow;
MaxItemWidth, CurItemWidth, i, Cnt: integer; MaxItemWidth, CurItemWidth, i, Cnt: integer;