Canvas Scrollbar machen

[Jazzman_Marburg]

Hallo -- ich bin's nochmal!

Ich bräuchte nochmal ein wenig Hilfe bei meiner Zeichenpapier-Klasse...
Die Zeichenpapier-Klasse stellt im wesentlichen ein kariertes Blatt zur Verfügung mit Achsenkreuz (für Funktionen) oder Rechteckmuster damit man darauf zeichnen kann. Die Klasse ist von TCustomControl abgeleitet und bietet nach Außen ein Canvas auf welches der Aufrufer zeichnen kann. Das ist alles soweit ok.
Jetzt habe ich das Problem, wenn der Aufrufer meiner Klasse ein Image (bmp oder png) dem Canvas zur Darstellung übergibt, dass mein zur Verfügung gestelltes Canvas nicht scrollbar ist (und damit das Image nicht komplett sichtbar).
Mein Frage: Was müßte ich meinem Zeichenpapier beibringen, damit sein Canvas scrollbar wird?

Hoffe das Anliegen ist helbwegs verständlich dargestellt.

Vielen Dank für alle Idee/Kommentare.
Gruß
Jazzman

[alfold]

Evtl Dein Zeichenpapier auf eine Scrollbox einfügen. Oder gleich dieses canvas dafür nehmen. So als Vorschlag!

gruss alfold

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