Mehrere Formulare an Stringgridgröße anpassen

[Delphi-Laie]

Hallo Delphifreunde!

Ein Stringgrid an ein größenveränderliches Formular, in das es eingebettet ist (align:=alClient), anzupassen, wurde schon einige Male gefragt.

Mir geht es jetzt genau im den Gegensatz, nämlich, daß das übergeordnete Formular größenbezogen so angepaßt wird, daß es das (entsprechend seiner Einträge skalierte) Stringgrid exakt aufnimmt und auf einen Blick alles anzeigt, ohne jedoch größer als nötig zu sein (ggf. die Bildschirmabmessungen als Maximum nehmen, was unschwierig ist). Dazu fand ich jedoch nichts.

Mit der Abfrage, ob die Scrollbars bzw. -balken (des Stringgrids) existieren, ist eine - etwas langsame und vom Code her weder kurze noch elegante - Bastellösung möglich, die ich mir im Verlaufe der Zeit so schlecht und recht bis zur Zufriedenheit zurechtkonstruierte. Besonders unpraktisch wird das jedoch, wenn man mehrere Formulare auf diese Weise anpassen möchte: jedesmal diese anzupassenden Codebrocken. Deshalb wollte ich das mit einer Funktion realisieren, scheiterte aber.

Weiß jemand, ob es dafür eine Komponente oder sonstwas gibt? Müßte ja eine Komponente für ein Formular mit integriertem Stringgrid sein?! Keine Ahnung, ob und wie so etwas als funktionaler Automatismus realisiert werden könnte. Mit vorsichten Vererbungsversuchen (OOP ist für mich heute leider noch ein Buch mit "nur" noch sechs Siegeln) kam ich trotz audauernder Versuche nicht weiter.

[Hansa]

Du hast also irgendwelche Stringgrids mit unterschiedlicher Grösse (bzw. eher Breite) und das Formular soll sich daran anpassen oder wie ? Dann sage, ob das die Frage ist, oder präzisiere es etwas. Das wäre nämlich fast zu einfach.

Bevor ich das nicht weiss : Soll irgendwer sich damit beschäftigen, zumindest um die Zeit jetzt.

Stop, noch was : um wieviele Forms geht es ?

[hoika]

Hallo,

Zitat:

jedesmal diese anzupassenden Codebrocken. Deshalb wollte ich das mit einer Funktion realisieren, scheiterte aber.

hm ?

Delphi-Quellcode:

Unit FormTools;

XXX

procedure AdjustForm(theForm: TForm; theStringGrid: TStringGrid);
begin
  dein Code

Heiko

[Medium]

TForm.AutoSize := true -- gibts sogar schon im OI.

[Hansa]

Autosize, was nützt das ? ich sags gleich : Nix.

[Bummi]

Warum, sollte Autosize Dir nicht helfen??
In folgendem Beispiel gehe ich mal davon aus daß colwith und rowheigth immer gleich sind, ansonsten halt drüberlaufen und rechnen:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if StringGrid1.width<(StringGrid1.colcount*(StringGrid1.Defaultcolwidth + 1) + 4) then
  StringGrid1.width:=(StringGrid1.colcount*(StringGrid1.Defaultcolwidth + 1) + 4);

  if StringGrid1.Height<(StringGrid1.Rowcount*(StringGrid1.DefaultRowHeight + 1) + 4) then
  StringGrid1.Height:=(StringGrid1.Rowcount*(StringGrid1.DefaultRowHeight + 1) + 4)


end;

[Delphi-Laie]

Hallo hoika/Heiko! Wo hast Du das:

Zitat von hoika:

Delphi-Quellcode:

Unit FormTools;

XXX

procedure AdjustForm(theForm: TForm; theStringGrid: TStringGrid);
begin
  dein Code

her? In/ab welcher Delphiversion ist das zu haben?? Nicht einmal mein Turbodelphi kennt das. Das scheint aber genau das zu sein, was ich suche. Es gefiel mir von Anfang an auch am besten.

*******************

Autosize beim Forumular hilft übrigens nichts: Nicht nur, daß das Formular nicht mehr manuell zoombar ist, es ist natürlich auch nicht paßgenau, sondern zu klein: Sogar beide Scrollbalken des Stringgrids erscheinen. Keine Ahnung, was da "auto" gemacht wurde. Hineinprogrammierte Vorab-Intelligenz ist eben nicht immer so weitblickend, vorausschauend ausgelegt worden, daß sie später allen Anforderungen standhält.

******************

Hallo Bummi, auch Dir danke!

Zitat von Bummi:

In folgendem Beispiel gehe ich mal davon aus daß colwith und rowheigth immer gleich sind, ansonsten halt drüberlaufen und rechnen:

Nein, sind sie nicht, sondern immer verschieden. Deshalb wollte ich es flexibel haben.

Zitat von Bummi:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if StringGrid1.width<(StringGrid1.colcount*(StringGrid1.Defaultcolwidth + 1) + 4) then
  StringGrid1.width:=(StringGrid1.colcount*(StringGrid1.Defaultcolwidth + 1) + 4);

  if StringGrid1.Height<(StringGrid1.Rowcount*(StringGrid1.DefaultRowHeight + 1) + 4) then
  StringGrid1.Height:=(StringGrid1.Rowcount*(StringGrid1.DefaultRowHeight + 1) + 4)


end;

Die Breite und Höhe eines StringGrids zu berechnen und daran - nach viel Ermitteln und Probieren - die Formulargröße pixelgenau so anzupassen, daß das Stringgrid ohne Scrollbalken auskommt, ist letztlich - ich meine das jetzt nicht abwertend - auch wieder nur eine Bastellösung (von der ich auch eine habe). Auch hier müßten jedesmal die Codezeilen erneut in den Quelltext eingefügt und wieder die Bezeichner entsprechend angepaßt werden.

Deshalb wäre eine Routine (wie hoika angedeutet) prima, aber mit OOP scheint es kaum zu funktionieren; höchstens mit einer der Formularklasse übergeordneten Klasse, in der eine solche Routine eingebaut wird, erscheint das möglich, aber daß ich so etwas hinbekomme (sofern es überhaupt möglich ist), ist nahezu ausgeschlossen.

[Hansa]

Autosize gibts bei mir auch nicht. Was soll das denn nützen ? Ich erschlage die Breite des Stringgrids und die der Spalten mit einem Schlag.

[Medium]

@Hansa: Möglich, dass das in älteren Versionen noch nicht vorhanden ist. Es tut das, was ich in einem vorigen Beitrag bereits schrieb.

Zitat von Delphi-Laie:

Hallo hoika/Heiko! Wo hast Du das:
[...]
her?

Die Zeile "dein code" hätte ein entscheidender Hinweis sein können. Hoika wollte damit wohl sagen: Bau dir einfach eine eigene Methode, die ein beliebiges Formular und Grid entgegen nimmt, womit du diese eine Funktion für alle Formulare mit Grid verwenden könntest. Sowas spezielles wirst du kaum fertig finden...

Zitat von Delphi-Laie:

Autosize beim Forumular hilft übrigens nichts:[...]

Ich habe AutoSize auf Formularen in etlichen Projekten völlig ohne solche Probleme benutzt. Manchmal ist es eben auch die Art und Weise der Verwendung, die die Funktion stört. Zum Beispiel sollte es mehr als offensichtlich sein, dass man auf einem AutoSize-Formular keine unmittelbaren Children mit anderen Alignments als alNone, und ggf. alCustom haben sollte. Das wäre z.B. eine Stelle zum mal nachsehen - wir haben deinen Code ja nicht hier.

[Bummi]

Zitat:

Deshalb wäre eine Routine (wie hoika angedeutet) prima, aber mit OOP scheint es kaum zu funktionieren; höchstens mit einer der Formularklasse übergeordneten Klasse, in der eine solche Routine eingebaut wird, erscheint das möglich, aber daß ich so etwas hinbekomme (sofern es überhaupt möglich ist), ist nahezu ausgeschlossen.

Wenn Du so auf OOP stehst kannst Du entweder eine Klasse von TStringgrid ableiten und hier eine Property MachMichSoGrossDassIchKeineScrollbalkenbrauchenUnd ZiehMeinenParentMit:Boolean einbauen, spätestens hier muß Du aber wieder Code schreiben die Coulmnbreiten addieren, wenn Gitterlinen siohtbar sind deren Breite mit berechnen, das selbe für die Spalen und eine geeignete Stelle finden an der die Einstellugen bei Änderugen nachgezogen werden.

Oder Du hast schon in weiser Voraussicht Deine Formularen von einer Basisklasse abgeleitet (lässt sich auch nachrüsten) in der die Routine einmalig implementiert wird z.B. eine OnPaint Routine für Stringgrids

Und hier dann:
With TStringGrid(Sender) do .....

etc.