Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: canvas.rahmen.aufziehen.laufzeit = wie.aufziehen.entwick

    Delphi
    by Stanlay Hanks, 17. Nov 2003
  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:
• Forum: Multimedia

  Re: canvas.rahmen.aufziehen.laufzeit = wie.aufziehen.entwick

    Delphi
    by Stanlay Hanks, 17. Nov 2003
  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:
• Forum: Multimedia

  Re: canvas.rahmen.aufziehen.laufzeit = wie.aufziehen.entwick

    Delphi
    by Stanlay Hanks, 16. Nov 2003
  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,...
• Forum: Multimedia

  Re: canvas.rahmen.aufziehen.laufzeit = wie.aufziehen.entwick

    Delphi
    by Stanlay Hanks, 16. Nov 2003
  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:
  
  var xm,ym : Integer;
  begin
  IF IsMouseDown = true THEN
  begin
  With...
• Forum: Multimedia

  Re: canvas.rahmen.aufziehen.laufzeit = wie.aufziehen.entwick

    Delphi
    by Stanlay Hanks, 16. Nov 2003
  Achso! Dann war ich ja vollkommen falsch...
  Dann probier mal folgendes:
  
  var IsMouseDown : Boolean;
  PanelNr : Integer = 0;
  xk,yk : Integer;
  
  procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  begin
• Forum: Multimedia

  Re: canvas.rahmen.aufziehen.laufzeit = wie.aufziehen.entwick

    Delphi
    by Stanlay Hanks, 16. Nov 2003
  Hallo und herzlich willkommen in der DP! :hello:
  Ich verstehe leider nicht ganz, was du genau meinst.
  Möchtest du nur einen Rahmen um dein Formular zeichnen? Dann schreib einfach ins OnPaint deines Forms
  
  Canvas.Brush.Style := bsClear; //Macht das Recheck durchsichtig
  Canvas.Rectangle(0,0,Width,Height) //Zeichnet ein Rechteck mit den Maßen des Forms.
  
  Falls du was anderes gemeint hast,...