S
Sterntaler
Unregistered / Unconfirmed
GUEST, unregistred user!
[
]procedure TForm2.ListBox1MeasureItem(Control: TWidgetControl;
Index: Integer
var Height: Integer);
begin
// Height 是 TForm2 属性还是 var 参数?
Height := 18 + ListBox1 . Canvas . TextHeight (
(ListBox1 . Items . Objects [ Index ] as TTextInfo ) . Text )
end;
]procedure TForm2.ListBox1MeasureItem(Control: TWidgetControl;Index: Integer
var Height: Integer);
begin
// Height 是 TForm2 属性还是 var 参数?
Height := 18 + ListBox1 . Canvas . TextHeight (
(ListBox1 . Items . Objects [ Index ] as TTextInfo ) . Text )
end;