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

MG: added OnDrawItem to OI

Browse Source 
git-svn-id: trunk@3462 -
This commit is contained in:
lazarus 2002-10-04 22:59:13 +00:00
parent 7394eb6f92
commit a9419b3a58
1 changed files with 67 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
designer/objectinspector.pp
View File

@ -207,7 +207,11 @@ type
procedure ValueComboBoxExit(Sender: TObject); procedure ValueComboBoxExit(Sender: TObject);
procedure ValueComboBoxChange(Sender: TObject); procedure ValueComboBoxChange(Sender: TObject);
procedure ValueComboBoxKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure ValueComboBoxKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure ValueComboBoxCloseUp(Sender: TObject);
procedure ValueComboBoxDropDown(Sender: TObject);
procedure ValueButtonClick(Sender: TObject); procedure ValueButtonClick(Sender: TObject);
procedure ValueComboBoxDrawItem(Control: TWinControl; Index: Integer;
ARect: TRect; State: TOwnerDrawState);
procedure WMVScroll(var Msg: TWMScroll); message WM_VSCROLL; procedure WMVScroll(var Msg: TWMScroll); message WM_VSCROLL;
procedure WMMouseMove(var Msg: TWMMouseMove); message WM_MOUSEMOVE; procedure WMMouseMove(var Msg: TWMMouseMove); message WM_MOUSEMOVE;
@ -397,6 +401,9 @@ begin
//OnChange:=@ValueComboBoxChange; the on change event is called even, //OnChange:=@ValueComboBoxChange; the on change event is called even,
// if the user is editing // if the user is editing
OnKeyDown:=@ValueComboBoxKeyDown; OnKeyDown:=@ValueComboBoxKeyDown;
OnDropDown:=@ValueComboBoxDropDown;
OnCloseUp:=@ValueComboBoxCloseUp;
OnDrawItem:=@ValueComboBoxDrawItem;
end; end;
ValueButton:=TButton.Create(Self); ValueButton:=TButton.Create(Self);
@ -1304,6 +1311,66 @@ begin
Result:=TOIPropertyGridRow(FRows[Index]); Result:=TOIPropertyGridRow(FRows[Index]);
end; end;
procedure TOIPropertyGrid.ValueComboBoxCloseUp(Sender: TObject);
begin
SetRowValue;
end;
procedure TOIPropertyGrid.ValueComboBoxDropDown(Sender: TObject);
var
CurRow: TOIPropertyGridRow;
MaxItemWidth, CurItemWidth, i, Cnt: integer;
ItemValue: string;
begin
if (FItemIndex>=0) and (FItemIndex<FRows.Count) then begin
CurRow:=Rows[FItemIndex];
MaxItemWidth:=ValueComboBox.Width;
Cnt:=ValueComboBox.Items.Count;
for i:=0 to Cnt-1 do begin
ItemValue:=ValueComboBox.Items[i];
CurItemWidth:=ValueComboBox.Canvas.TextWidth(ItemValue);
CurRow.Editor.ListMeasureWidth(ItemValue,i,ValueComboBox.Canvas,
CurItemWidth);
if MaxItemWidth<CurItemWidth then
MaxItemWidth:=CurItemWidth;
end;
ValueComboBox.ItemWidth:=MaxItemWidth;
end;
end;
procedure TOIPropertyGrid.ValueComboBoxDrawItem(Control: TWinControl;
Index: Integer; ARect: TRect; State: TOwnerDrawState);
var
CurRow: TOIPropertyGridRow;
ItemValue: string;
AState: TPropEditDrawState;
begin
if (FItemIndex>=0) and (FItemIndex<FRows.Count) then begin
CurRow:=Rows[FItemIndex];
if (Index>=0) and (Index<ValueComboBox.Items.Count) then
ItemValue:=ValueComboBox.Items[Index]
else
ItemValue:='';
AState:=[];
if odPainted in State then Include(AState,pedsPainted);
if odSelected in State then Include(AState,pedsSelected);
if odFocused in State then Include(AState,pedsFocused);
if odComboBoxEdit in State then
Include(AState,pedsInEdit)
else
Include(AState,pedsInComboList);
// clear background
with ValueComboBox.Canvas do begin
Brush.Color:=clWhite;
Pen.Color:=clBlack;
Font.Color:=Pen.Color;
FillRect(ARect);
end;
CurRow.Editor.ListDrawValue(ItemValue,Index,ValueComboBox.Canvas,ARect,
AState);
end;
end;
Procedure TOIPropertyGrid.HintTimer(sender : TObject); Procedure TOIPropertyGrid.HintTimer(sender : TObject);
var var