Makendarstellung 16:9

[richi]

Hallo zusammen,
habe Probleme mit Maskendarstellung unter Delphi 5 im Format 16:9. Entweder stimmt die Höhe oder die Breite nicht. Programme sind in der Auflösung 800 X 600 geschrieben. Hat jemand eine Lösung für mich ??

Gruß
rchi

[Geert Dade]

Guten Morgen Richi,

welcher Art sind Die Probleme?
Grundsätzlich kannst Du die Höhe, Breite jedes Controls - also auch einer Maske - explizit mit Width, Height setzen.
Außerdem hast Du die Möglichkeit, die Aufösung des aktuellen Bildschirms über "Screen" auszulesen und ggf. die Dimensionen einer Maske anzupassen.

Gruß,

Geert

[richi]

Hallo Geert,
bin momentan unterwegs, mache heute Abend ein Beispiel !!

Gruß
richi

[Bernhard Geyer]

Ich Tipp hier eher mal auf entsprechend unten/links alignte Control und große Schriftarten sowie ein größenveränterliches Formular.

Besser mit zusätzlichen Panels arbeiten die Right/Bottom aligned sind und dann dort die Buttons etc. ohne geändertes Alignment hineinlegen.

[richi]

Ich habe die Programme übernommen und muss sie auch weiter pflegen, der Sourcecode für diese Aktion lautet:

const bildH=600;
bildw=800;
procedure TForm1.scale;
var x,y:integer;
begin
scaled:=true;
x:=screen.width;
y:=screen.height;
if (y<>bildh) or (x<>bildw) then begin
form1.height:=(form1.clientheight * y div bildh) +
form1.height-form1.clientheight;
form1.width:=(form1.clientwidth * x div bildw) +
form1.width-form1.clientwidth;

Bei "scaleby(x,bildw)" stimmt die Breite jedoch die Höhe nicht. Je nach Auflösung wird entweder ein Teil der Maske abgeschnitten oder es wird eine Steuerungsleiste eingefügt, bei "scaleby(y,bildh)" ist es genau umgekehrt.
Die Vermutung vom Bernhard trifft schon zu.

Gruß
richi

[Bernhard Geyer]

Beispiel für entsprechend Alignter Button rechts unten.

[richi]

Danke, Bernhard !!! )

richi