TStatusBarCanvas (Delphi)
Description
The following code uses ClientRect to find and draw a line from the upper left to the lower right of the current control. Select a TControl in the ListBox list. This example assumes that the current object is a descendant of TControl and has a public Canvas property.
Code
if (ListBox1.Items.Objects[Index] is TStatusBar) then
begin
myStatusBar:= (ListBox1.Items.Objects[Index] as TStatusBar);
with myStatusBar.ClientRect do
begin // Make sure you are using the canvas of the TControl, and not the from's canvas.
myStatusBar.Canvas.MoveTo(Left, Top);
myStatusBar.Canvas.LineTo(Right, Bottom);
end;
myStatusBar:= nil;
end;
Uses
- Vcl.ComCtrls.TCustomStatusBar.Canvas ( fr | de | ja )