Zoomen des Inhaltes einer Scrollbox

[oki]

Hi Leute,

ich glaub ich bin am Ende meines Lateins. Folgende Aufgabenstellung:

Ich erstelle in einer Anwendung in einer Scrollbox ein Schema mittels eigener Komponenten (Nachfahren von TCustomControl) zur Laufzeit. In einer Scrollbox natürlich deshalb, weil das Schema größer werden kann als der Bildschirmbereich. Jetzt kann man zwar alles super platzieren, weil es durch die Scrollbox keine festen Begrenzungen gibt, aber die Sache wird bei großen Schematas natürlich etwas unübersichtlich. Praktisch ist dann ja eine Zoomfunktion. Immer wohl gemerkt, dass es nicht um ein Image oder Zeichnen auf den Canvas, sondern um Komponenten auf einer Scrollbox geht.

Nun dachte ich, dass kann man mit SetViewportExtEx lösen. Da tut sich aber gar nichts. Hier mal mein Code:

Delphi-Quellcode:

procedure TSeysolMain_Form.ToolButton4Click(Sender: TObject);
var OSize : TSize;
    ActiveSB : TRTGroupScrollBox;
    Res : Boolean;
    SBDC : HDC;
begin
  OSize.cx := 0;
  OSize.cy := 0;
  ActiveSB := GetScrollBox(self, PageControl1.ActivePage);  // meine aktive Scrollbox holen (eigene Funktion) 
  if Assigned(ActiveSB) then begin
    SBDC := GetDC(ActiveSB.Handle);
    // GetViewportExtEx(SBDC, OSize);
    SetMapMode(SBDC, MM_ISOTROPIC);
    SetWindowExtEx(SBDC, 4, 4, nil); // mal zum testen fest eingestellt
    SetViewportExtEx(SBDC, 100, 100, nil);
    Res := GetWindowExtEx(SBDC, OSize);
    if not Res then // mal schauen, was draus geworden ist
      MessageDlg(Format('Error Size: %d, %d', [OSize.cx, OSize.cy]), mtInformation, [mbOK], 0)
    else
      MessageDlg(Format('Size: %d, %d', [OSize.cx, OSize.cy]), mtInformation, [mbOK], 0);
  end;
end;

Ich hab zwischenzeitlich geprüft, ob die Funktionen ohne Fehler ausgeführt werden. Ist so, liefern True zurück (hab nur etwas aufgeräumt).

Ja, entweder ich bin total auf dem Holzweg und das geht alles überhaupt nicht mit SetViewportExtEx und Konsorten, oder ich mache nur etwas mit der Verwendung der Funktionen falsch. Ich geb aber auch zu, dass ich durch die Thematik SetViewportExtEx, SetWindowExtEx und SetScaleportExtEx noch nicht durchgestiegen bin. Was benutzt man was wofür?

Im Anhang mal ein Screenshot damit man sieht was ich zoomen will. Es jeht um den jeweils sichtbaren Bereich einer ausgewählten Scrollbox.

Tja, entweder ich hab ein Grundsatz- oder ein Teilpproblem. Sicher bin ich mir auf jeden Fall, dass ich ein Problem habe, denn es tut sich nichts.



Schon mal Dank für die Hilfe,

Guß oki

[oki]

Ähm Push

[tomsson74]

[Edit]Sorry, glaube habe das Thema verfehlt [/edit]

[oki]

Hallo tomsson74.

Erst mal Dank dür diene Antwort. Mein primäres Ziel ist es nicht alle Elemente meiner Scrollbox mit einem Scaling an anderer Stelle auszugeben/zu zeichnen, sondern den Inhalt der Scrollbox selber zu zoomen. Im besten Fall bis alles enthaltene so klein ist, bis die Scrollbalken nicht mehr angezeigt werden. Sollte das nicht funzen, so würde ich mich auch mit einem Übersichtsfenster begnügen, dass den gesamten Inhalt der Scrollbox (auch nicht sichtbaren Bereich) in einem Image anzeigt. Ich würde dann im Image den sichtbaren Ausschnitt umrahmen.

Jestzt zu deinem Code. Erst mal Dank. Einige Sachen sind schon etwas klarer geworden. Ich hab aber noch nicht raus bekommen, was du in deiner ItemList für Komponenten speicherst. Du machst da einen Cast auf TGraphicElement. Was ist das?

Gruß oki

roter Kasten! nicht so schlimm, da ich mich damit noch gar nicht auskenne hilft im Moment fast alles.

[stahli]

Hi Oki,

schau mal, ob Dich das weiterbringt...

Wenn alle Stricke reißen, ich habe mal so eine Funktion geschrieben, die den kompletten Bereich einer Scrollbox in ein Bitmap schreibt. Der sichbare Bereich wurde "durchgeblättert" und die sichtbaren Ausschnitte zu einem Bild zusammengesetzt. Ich könnte das mal raussuchen (wenn ich es noch finde).


stahli

[oki]

Hallo stahli,

Dank für deinen Tipp. Das ist schon mal der richtige Weg. Ich benute dann zwar die Methode ScaleConrols, damit meine Scrollbox da bleibt wo sie ist, aber das ist Wurscht. Ich meld mich auch jetzt erst, weil ich da erst mal testen wollte.

Mein Problem ist aktuell nur, dass da einiges durcheinander geht. Das liegt sicher zum einen daran, das die Paint-Methoden meiner Controls prüfen, ob alles dargestellt werden kann. Wenn nicht, vergrößern sie automatisch das Control. Da geht ne Menge den Bach runter. Meine Verbinder besitzen zusätzlich eine Point-Liste ihrer Eckpunkte. Die wird durch die Methode leider nicht verändert. Wie sollte sie auch.

Im Grundsatz macht die Procedure aber das was ich wollte. Ich steh mir halt im Moment selber auf den Füßen rum mit meinen Controls. Aktuell weis ich noch nicht so genau, ob ich das hin bekomme, aber ich versuche es zumindest. Sollte es nicht klappen, so meld ich mich noch mal bezüglich deines Codeangebotes.

Dank dafür

Im Anhang mal das Ergebnis des Zoomens, wie es jetzt aussieht. Grusel

Dank und Gruß oki

[oki]

Das mit dem ScaleControls ist natürlich Unsinn. Scaleby ist schon richtig. Mit allen Standard-Controls sollte das auch ordentlich aussehen und nicht wie bei mir.

Wenn ich das wirklich hinbekommen will, dann muss ich da aber noch ordentlich Hausaufgaben machen bei meinen Controls.

Gruß oki

[stahli]

Hi,

erst mal Respekt für Dein Projekt, das sieht schon nicht schlecht aus

Ich habe in meinem Projekt meine Turniersoftware etwas Ähnliches in Bezug auf größenänderbare Controls in einer Scrollbox umgesetzt.

Wenn Du nicht Standardcontrols verwendest (Edits etc) - oder diese nur auf eigene Controls drauf setzt - taugt das vielleicht auch als Ansatz.

Grundsätzlich habe ich eínen "Designer" von TScrollBox abgeleitet.
Der erhält ein virtuelles Raster und die Eigenschaften StyleMode und StyleSize.
Die Controls sind spezielle Komponenten, die der Designer kennt und die über eine XPos und YPos verfügen (die die Position im Raster bezeichnen).
Wird StyleSize vom Designer geändert, ändert der seine Rasterabstände und veranlasst die Controls, sich daran neu auszurichten und zu zeichnen. Je nach DesignMode und DesignSize können sich die Controls ggf. anders zeichnen bzw. ihre SubControls anders ausrichten.

Vorteil: Die Inhalte der Controls können an die jeweilige Größe angepasst werden. Bei kleiner Spieledarstellung lasse ich z.B. die Spielernamen weg oder kürze irgendwelche Informationen. Bei größerer Darstellung werden mehr Informationen dargestellt. Es wird also nichts gezoomt sondern die Größe der Controls "automatisch" an die Designereinstellungen angepasst.
Weiterhin kann die Darstellung und Funktion der Controls durch die Eigenschaft DesignMode beeinflußt werden. Z.B. werden im DesignMode "construct" Hilfslinien gezeichnet und Anfasser für Größenänderungen verwaltet.

Nachteil: Ziemliche Bastelei und ggf. jede Menge unterschiedliche Darstellungsvarianten. Spezielle Abstimmungen zwischen Designer und Controls erforderlich.


Stahli

[oki]

Hi stahli,
erst mal Dank für dein Lob. Ist auch ein ganz schöner Brocken geworden für nebenbei gemacht. ich habe genau das Problem:

Zitat von stahli:

Nachteil: Ziemliche Bastelei und ggf. jede Menge unterschiedliche Darstellungsvarianten. Spezielle Abstimmungen zwischen Designer und Controls erforderlich.

Ich habe meine Controls auf GDI+ umgestellt und zeichne fast alles selber. Das natürlich OOP. Sonst hat man ja eh keine Chance. Leider ist es aber so, dass ich meine Gates (in denen die Ein- und Ausgangswerte angezeigt werden) in der Höhe auf Basis der Schriftgröße berechne. Da steckt das erste Problem. Ich ermittel also beim Zeichnen, wie groß ein Gate ist, dann wie viele Gates ich habe und daraus die minimale Höhe des Controls (plus Titel wenn eingeblende etc.). Beim verkleinern werden jetzt die Control aber eben nicht proportional kleiner, sondern immer etwas größer als soll. Da steckt das erste Problem. Beim Vergrößern stört das nicht hab ich gemerkt. Ich brauch aber leider den umgekehrten Weg.
Das Problem bei meinen Connectoren (Verbinder mit Pfeil) ist mir klar, da muss ich die Koordinaten selber umrechnen. mal schauen, ob Scaleby virtual ist.

Dein Projekt schau ich mir nachher mal an. Im Anhang noch ein Beispiel beim Vergrößern. Da siehts gut aus.

Gruß oki

[stahli]

mal so in´s Blaue:
Und wenn Du bei der Verkleinerung auf die Höhenkorrektur einfach verzichtest?
Lesen kann man dann ja eh nichts mehr und dann wird ein kleiner Teil der Informationen eben noch abgeschnitten.
Zum Nachvollziehen der Struktur könnte das ja reichen (außer für mich - aber ich verstehe das auch nicht bei großer Darstellung )

Stahli