Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by eddy,
15. Mär 2006
Hallo marabu,
da ist von meiner Funktion also nur noch das übrig geblieben:
tc.Height := tc.DisplayRect.Top;
Gefällt mir wesentlich besser, obwohl ich nur schwer und im Nachhinein nachvollziehen kann, was der Hilfetext dazu bedeutet:
tc.DisplayRect.Top müßte wohl die Oberkante von dem Bereich (= Client-Bereich) sein, der unter den einzelnen Reitern nicht (!!!) angezeigt wird.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by eddy,
14. Mär 2006
Hallo Leute,
hätte nicht gedacht, daß dazu keiner was sagen kann.
Folgendes Unterprogramm (UP) löst das Problem vorerst:
procedure TForm.ChkTCHeight(tc : TTabControl);
var
rc : TRect;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by eddy,
13. Mär 2006
Hallo Leute,
ich verwende ein TabControl zur Anzeige geöffneter Dateien in einer Anwendung. MultiLine steht auf true,
Align auf alTop. Beim Test zeigte sich nun, daß sich Height nich automatisch zur Laufzeit ändert, wenn die einzelnen Tabs nicht mehr auf eine Zeile passen.
Wie kann ich feststellen, wie viele Zeilen zur Anzeige aller Tabs (deren Breite ja auch unterschiedlich ist)...