canvas.rahmen.aufziehen.laufzeit = wie.aufziehen.entwicklung

[Basic-Master]

er will die gleiche bzw. ne ähnliche funktion wie das mit dem designen von kompos in delphi der fall ist, hier die procedure um die punkte da zu zeichnen:

Delphi-Quellcode:

procedure zeichnen(obj:twincontrol);
var h:hwnd;
    canvas:tcanvas;
begin
h := getdc(obj.Handle);
if h = 0 then exit;
canvas := tcanvas.Create;
canvas.Handle := h;
canvas.Pen.Color := clblack;
canvas.Brush.Color := clblack;
canvas.Rectangle(0,0, 6, 6);
canvas.Rectangle(obj.Width div 2, 0, obj.Width div 2 + 6, 6);
canvas.Rectangle(obj.Width - 6, 0, obj.Width, 6);
canvas.Rectangle(0, obj.Height - 6, 6, obj.Height);
canvas.Rectangle(obj.Width div 2, obj.Height - 6, obj.Width div 2 + 6, obj.Height);
canvas.Rectangle(obj.Width - 6, obj.Height - 6, obj.Width, obj.Height);
end;