Canvas Scrollbar machen

[Jazzman_Marburg]

Hhhmmm...
Also in einem älteren Thread fand ich folgende Antwort (von Bummi) auf ein ähnliche Anfrage:

Zitat:

AW: wie in Tcustomcontrol auf Scrollen reagieren??
31. Dez 2010, 10:15
Die Klasse etwas aufbohren:

Delphi-Quellcode:

published
     property OnScrollHorz: TNotifyEvent read FOnScrollHorz write FOnScrollHorz;
     property OnScrollVert: TNotifyEvent read FOnScrollVert write FOnScrollVert;
     property OnWheel: TMyWheelEvent read FOnWheel write FOnWheel;

Das hört sich ziemlich gut an -- allein mir fehlt da noch etwas Verständnis, bzw. bin mir nicht sicher wie das in meine Klasse einzubauen ist. Wenn der damalige Autor das hier noch etwas kommentieren würde ? Das wäre klasse!

Danke & Gruß
Jazzman

[Bummi]

Wie willst Du scollen?
Mit einem "Hand"-Cursor verschieben, über "Buttons" oder gemalte Scollbars?
Letztlich musst Du die Events die Dich interessieren versorgen, in o.g. Beispiel reichst Du Eventhandler nach außen um von dort weiterzumachen.
Du kannst auch alles in Deiner Komponente abfackeln und dort entweder im OnPaint bei allen Malroutinen ein FStartX , FStartY aufzuadieren(oder abzuziehen) oder Du lässt die Routinen wie sie sind und manipulierst das Canvas direkt, hat den Vorteil daß Du Zoom und Rotation auch gleich mit anbieten kannst.

Der Anhang zeigt wie das gehen könnte

Delphi-Quellcode:

Procedure ResetCanvas(ACanvas:TCanvas);
begin
   SetCanvasZoomAndRotation(ACanvas , 1, 0, 0,0);
end;

Procedure SetCanvasZoomAndRotation(ACanvas:TCanvas;Zoom:Double;Angle:Double;CenterpointX,CenterpointY:Double);
var
    form : tagXFORM;
    Winkel:Double;

begin
      Winkel := Grad2Rad(Angle);
      SetGraphicsMode(ACanvas.Handle, GM_ADVANCED);
      SetMapMode(ACanvas.Handle,MM_ANISOTROPIC);
      form.eM11 := Zoom * cos( Winkel);
      form.eM12 := Zoom *Sin( Winkel)  ;
      form.eM21 := Zoom * (-sin( Winkel));
      form.eM22 := Zoom * cos( Winkel) ;
      form.eDx := CenterpointX;
      form.eDy := CenterpointY;
      SetWorldTransform(ACanvas.Handle,form);
end;

[Jazzman_Marburg]

Hallo Bummi!

Vielen Dank für Deine Reaktion!

>Wie willst Du scollen?
>Mit einem "Hand"-Cursor verschieben, über "Buttons" oder gemalte Scollbars?

Ich denke es geht um die gemalten Scrollbars: Mein Problem ist, dass wenn der Verwender meiner Klasse mir ein PNG übergibt, welches größer als mein Canvas ist, ich es zwar darstelle, aber eben nur abgeschnitten. Wenn man nun die Form re-sized (z.B. die Höhe vergrößert), dann sieht man natürlich mehr vom Image, da das re-Size Event zu einem Neu-Malen führt.
Mein Verständnis Problem ist:
Wie bekomme ich mit, dass das mir (der Klasse) übergebene Image größer ist als mein Canvas, und wie blende ich dann die nötigen Scrollbars ein, so dass der User in meinem Canvas scrollen kann.
Der erste Teil der Frage läßt sich ja außerhaleb der Klasse einfach damit beantworten, dass ich die Größe des übergebenen Images mit meiner aktuellen Canvas Größe vergleiche -- aber wenn ich es nur innerhalb meiner Klasse betrachte: Wie kriegt mein Canvas mit, dass es etwas darstellt, dass größer ist als es selbst? Und dann erst kommt das Problem, wie ich dann die geeigneten Scroolbars anzeige.

Sorry, klingt wahrscheinlich umständlicher als es vermutlich ist.
Vielen Dank für Deine Mühe!

Gruß
Jazzman

[Jazzman_Marburg]

Ein Gedanke schießt mir gerade selber durch den Kopf:

Müßte man das Problem der Scrollbars nicht von der anderen Seite her aufziehen:
Wenn ich mein Canvas größer mache als die Main-Form, müßte dann nicht die Main-Form automatisch Scrollbars einblenden?

Also: nicht meine Klasse hat Scrollbars für den Fall das das übergeben Image größer als das Canvas ist, sondern ich passe mein Canvas der Größe des Images an, und die Main-Form (wie auch immer durch meine Klasse informiert) blendet die entsprecheden Scrollbars ein?

Oder habe ich das Problem damit nicht erschlagen, oder nur verlagert?

Herrjeh...

Danke fürs mitgrübeln!

Gruß

[alfold]

Eigentlich ganz einfach. Du kannst die Form selbst benutzten und das Bild dort einfügen. Oder Du nimmst halt die Scrollbox komponente und fügst das Bild dort ein. Beide haben, wenn der Inhalt grösser ist als die zu zeichnende Fläsche, die Möglichkeit die Scrollelemente automatisch einzublenden. Beide haben ebend auch ein Canvas. Somit brauchst du auch nichts berechen wie gross nun Dein bild ist.

Wenn ich Dich richtig verstanden habe?

€: HIER kam gerade ein Beispiel wie man an image in die scrollbox einfügt
Und nichts anderes musst Du auch machen. Schon hast du die Scrollelemente.

Gruss alfold

[Bummi]

Wenn Dein Bild ein definiertes Image ist und nicht ("beliebig") groß werden kann, wie z.B. die Darstellung einer Anlage in verschiedenen Auflösungen, bietet sich der von Dir oder von alfold genannte Ansatz an.