Auflösungsprob

Marco D. · Verfasst: Mo 16.05.05 18:06

ich arbeite zuhause mit 1280*1024 und auf nem andren Computer is mein app so groß dass es über den bildschirmrand hinausgeht. Gibt es eube Möglichkeit das programmfenster irgendwie zu skalieren damit es raufpasst und die buttons auch nicht mehr so riesig sind?

mfg koller

MrFox · Verfasst: Mo 16.05.05 18:57

Du kannst beim Programmstart das Hauptformular auf Bildschirmgröße Skalieren:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Height := Screen.Height;
Form1.Width := Screen.Width;
Form1.left := 0;
Form1.Top := 0;
end;

Wobei "Form1" natürlich durch das betreffende Formular ersetzt werden muss.

Die Komponente TScreen kann einem bei solchen Sachen oft helfen...einfach in der Delphi-Hilfe nachschlagen!

Moderiert von Tino: Code- durch Delphi-Tags ersetzt.

Alstar · Beiträge: 827

Doll. Aber das bringt ihm ja nicht viel. Er will ja das Formular skalieren und nicht einfach nur die Größe ändern.

Ich weiß nicht, ob hier die Eigenschaft "PrintScale" des jeweiligen Formulars funktioniert.

Alstar

MrFox · Verfasst: Mo 16.05.05 19:50

Alstar hat folgendes geschrieben:

Ich weiß nicht, ob hier die Eigenschaft "PrintScale" des jeweiligen Formulars funktioniert.
Alstar

Wieder mal ist es der Druck auf die Taste F1, der uns versichert, dass "PrintScale" etwas mit dem Ausdrucken von Formularen zu tun hat.

Mir sind die Eigenschaften "Scaled" und "PixelsPerInch" aufgefallen...

Marco D. · Verfasst: Mo 16.05.05 20:14 Titel: Auflösung

Danke Jungs aber der letze user (ich weiß gerade den namen nicht sorry) hat Recht. Dass mit height:=screen.height hätte ich selbst hingekriegt. Es soll alles runterskaliert werden, dass das Programmfenster genauso aussieht wie bei mir zuhause. nur dass auf dem anderen pc ne kleinere auflösung ist. Ausserdem sind dort die Buttons und die schrift der labels so riesig das sieht abscheulich aus.

Wäre nett wenn ihr mir da weiterhelfen würdet weil ich sonst mein ganzes programm (ich arbeite seit August 04 daran) im eimer wäre.

danke!

mfg Koller

alias5000 · Verfasst: Mo 16.05.05 20:21

Und wenn du die Form maximierst?

_________________
Programmers never die, they just GOSUB without RETURN

Ehemaliges Mitglied Erhaltene Danke: 1

schonmal ausprobiert die auflösung auf deinem rechner zu ändern und daraufhin die größen und positionen der objekte zu verändern? die einstellungen kannste ja ggf. bei programmstart laden, ist natürlich viel schreibarbeit.

Marco D. · Verfasst: Di 17.05.05 10:18 Titel: auflösung

gute idee! aber welche Auflösungen sind denn momentan und in Zukunft so die gängigsten. Nennt bitte mal eure und vielleicht ein paar mehr.

Ehemaliges Mitglied Erhaltene Danke: 1

hm, also ich benutze 1280:1024, aber ich denke 800:600 kann man auf jeden Fall voraussetzen, oder sogar 1024:768

retnyg · Verfasst: Di 17.05.05 12:30

hier delphi.blue-aura.co....showthread.php?t=101 gibts ne scale-routine.

_________________
es gibt leute, die sind genetisch nicht zum programmieren geschaffen.
in der regel haben diese leute die regel...

Blackheart · Beiträge: 164 ME D3Prof.-D6Standard

Probier mal das, hat bei mir bis jetzt funktioniert.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.FormShow(Sender: TObject);
const breite=800; // Hier Angeben in Welcher Auflösung du Programmiert hast
  hoehe=600;
var schrift: integer;
begin
  schrift := pixelsperinch-96;
  if screen.width>breite then begin
    if schrift>0 then
     ScaleBy(round(((screen.width/breite)*100)-((screen.width/breite-1)*100)),100)
    else
     ScaleBy(round(((screen.width/breite)*100)),100);
  end
  else begin
    if screen.width=breite then
      ScaleBy(round(((screen.width/breite)*100)-schrift),100)
    else begin
      if schrift>0 then
       ScaleBy(round((100-(breite/screen.width-1)*100)-(breite/screen.width-1)*100),100)
      else
       ScaleBy(round((100-(breite/screen.width-1)*100)),100);
    end;
  end;
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme