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

[cyberfreak]

Ja, es ist nur so, dass ich kein Handbuch habe. Ich hab nur ne Demo von Delphi 7 Enterprise Edition, von ner Buch-CD runter ("Jetzt lerne ich Delphi" vom Markt+Technik-Verlag) Ich dachte, da vielleicht eher an etwas zum downloaden, oder etwas das Online ist.

[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;

[iamjoosy]

Ok, hier nochmal das mit TRectBox:

www.torry.nettorry.net

Da bei QuickSearch (Rechts oben) TrectBox eingeben und schon ist man da !

[cyberfreak]

ja, Torry's Seite geht schon, nur die Diprode.irgendwas geht nicht, aber mir ist ja jetzt aufgefallen, dass man das ja direkt auf Torry.net downloaden kann

[cyberfreak]

Ähm, BasicMaster war dsa jetzt alles an Quellcode?

[Basic-Master]

nee, da fehlen natürlich noch das entsprechende event in mousemove.. hatte bis jetzt nur noch keine gelegenheit damit anzufangen :roll:

[cyberfreak]

Aha! Könntest du (BasicMaster) mich vielleicht in deiner ICQ-Liste zulassen, dann würde ich nicht immer Rätselraten brauchen ob du online bist oder nicht!

[Keldorn]

Hallo

ich habe vor einem ähnlichen Problem gestanden. Ich wollte in einer Scrollbox einen Rahmen zeichnen. Mein Problem war nicht der Rahmen, sondern daß der Rahmen über den Komponenten der Scrollbox liegt.

Ich habs dann so gelöst (siehe Test-projekt im Anhang). Der Code ist etwas umfangreicher, da ich die Scrollbox auch noch beim Rahmenziehen scrollen will.

Mfg Frank

[cyberfreak]

Hi Keldorn, danke für das Zeug. Aber ich hab grad kein Delphi hier. Könntest du mir vielleicht ne EXE kompilieren und anhängen?

[Keldorn]

klar, der Rahmen ist aber nur in der Scrollbox aktiv.