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

[Stanlay Hanks]

Hi. Hab meinen Ursprüunglichen Source mit dem OnMouseMove noch etwas erweitert. Du müsstest ihn halt für dich anpassen. (unter Anderem können die Panels nicht gezeichnet werden, wenn der ausgangspunkt größer ist als der Endpunkt) Aber du sagtest ja, dass ist nicht das Problem.

Ich hätte das folgendermaßen gelöst:

Delphi-Quellcode:

var xm,ym : Integer;
begin
  IF IsMouseDown = true THEN
   begin
    With Form1.Canvas do
    begin
    Pen.Color := clbtnface;
    Pen.Style := pssolid;
    Rectangle(xk,yk,xm,ym);
    Brush.Color := clbtnface;
    Rectangle(0,0,Width,Height);
    Pen.Color := clblack;
    Pen.Style := psDot;
    Rectangle(xk,yk,x,y);
    end;
   end;
 xm := x;
 ym := y;
end;

Im Endeffekt mach ich nix anderes, als jedes mal einen gestrichelten Rahmen (psdot) gezeichnet und das Canvas wieder neu zu übermalen, so dass die alten Rahmen nicht mehr da sind. Funzt natürlich nur mit einfarbigem Hintergrund :wink:

Man liest sich, Stanlay :hi:

[cyberfreak]

Wie meinst du das mit Endpunkt größer als Ausgangspunkt? Bei was Rahmen? Oder Komponente?

[Stanlay Hanks]

Delphi-Quellcode:

Width := x-xk;
Height := y-yk;

Damit mein ich diese Zeilen. Is ja auch logisch. Wenn der Punkt, an dem du die Maus runtergrdrückt hast (xk,yk) kleiner is, als der Punkt an dem die Maus in dem Moment ist, wo du sie loslässt, dann würde das panel ja eine Minus Größe haben...Aber das könnte man ja noch anpassen (Wenn x kleiner als xs, dann mach es umgekehrt als vorher usw...)

Man liest sich, Stanlay :hi:

[scp]

Wenn man über das gesamte Form ein leeres Image legt und auf dessen Canvas den Rahmen zeichnet, dann bleiben auch evtl. nicht einfarbige Hintergründe und Bilder erhalten.

[himitsu]

Noch eine kleine Anmerkung zu Stanlay's Post.

Zitat:

Zitat von Stanlay

Funzt natürlich nur mit einfarbigem Hintergrund

Hast du schon ein mal ein bissel mit PenMode rumgespielt?
OH > TPenMode

Einfach mal in das OnPaint-Ereignis eine leeren Formulars setzen. :mrgreen:

Delphi-Quellcode:

Procedure TForm1.FormPaint(Sender: TObject);
  Procedure Z(P: Integer; PM: TPenMode);
    Begin
      Canvas.Pen.Mode := PM;
      Canvas.Rectangle(20, P, 100, P + 7);
      Canvas.Rectangle(120, P, 200, P + 7);
      Canvas.Rectangle(120, P, 200, P + 7);
    End;

  Var X: Integer;

  Begin
    Canvas.Pen.Mode := pmCopy;
    Canvas.Brush.Color := clBtnFace;
    Canvas.FillRect(Rect(0, 0, 220, 202));

    Canvas.Brush.Color := clGreen;
    For X := 1 to 13 do
      Canvas.FillRect(Rect(X * 15, 25, X * 15 + 8, 192));

    Canvas.Brush.Color := clBlue;
    Canvas.Pen.Color := clRed;
    Canvas.Rectangle(10, 10, 210, 17);
    Z(30, pmBlack);
    Z(40, pmWhite);
    Z(50, pmNop);
    Z(60, pmNot);          {x}
    Z(70, pmCopy);         {Standard}
    Z(80, pmNotCopy);
    Z(90, pmMergePenNot);
    Z(100, pmMaskPenNot);
    Z(110, pmMergeNotPen);
    Z(120, pmMaskNotPen);
    Z(130, pmMerge);
    Z(140, pmNotMerge);
    Z(150, pmMask);
    Z(160, pmNotMask);
    Z(170, pmXor);         {x}
    Z(180, pmNotXor);      {x}
  End;

[iamjoosy]

Hi, schau doch bitte mal bei Torry.net unter "TrectBox", ich denke das ist genau das was Du brauchst !
Fertige Komponente, die man verscheiben ziehen etc. kann.

HTH

[cyberfreak]

Danke für eure vielen Tips! Und die TRectBox kann ich nicht downloaden, da ich die Seite nicht aufrufen kann. Vielleicht könnte sie mir ja jemand schicken? Mail und alles steht ja unten! Bitte!
Und außerdem wäre mein Problem jetzt fast perfekt gelöst wenn ich noch wüsste, wie man den Rahmen schon beim erzeugen anzeigen kann. So z.B.: Bei onMouseMove soll sich der Rahmen jenachdem vergrößern, oder verkleinern. Wie man die Maus eben bewegt!

mfg
cyberfreak

[Stanlay Hanks]

Aber genau das macht der Rahmen doch, wenn du die Prozedur von mir und die dementsprechenden Ergänzungen von himitsu z.B. nimmst.

Man liest sich, Stanlay :hi:

[cyberfreak]

Ok, werde ich machen. Gibts eigentlich auch irgendwo eine Dokumentation, Auflistung, oder ähnliches mit sämtlichen Funktionen und Möglichkeiten von Delphi? So wie zum Beispiel in Java (programmiere ich nämlich auch ein bisschen) die Java Docs (Java Dokumentaion) falls das jemand kennt.

[Stanlay Hanks]

Ich weiß nicht, ob du sowas meinst, aber das Entwicklerhandbuch vom Handbuchsatz von Borland ist recht ausführlich und detailliert geschrieben...kommt ja auch direkt von der Quelle :wink:

Man liest sich, Stanlay :hi: