Bildschirmauflösung steuern?

[C64-Flo]

Nun gut... jetzt wird mein Bildschirm schwarz beim Programmstart, nach mehrmaligem hektischen alt+strg+entf-gedrücke, ist mein PC neu hochgefahren :gruebel:


das ist mein Quellcode für die ´start´-unit (create):

Code:

procedure TForm4.FormCreate(Sender: TObject);
const
   screenwidthdev  = 1280;
   ScreenHeightDev =  960;
var
  HTaskbar: HWND;
  x,y:integer;

begin
        {screenresolution}

   scaled := true;
   screenwidth:= Screen.width;
   screenheigth:= Screen.Height;
   if(y <> ScreenHeightDev) or (x <> ScreenwidthDev) then
     begin
        form4.Height := (form4.ClientHeight* y div ScreenHeightDev) +
                                form4.Height- form4.ClientHeight;
        form4.Width  := (form4.ClientWidth * x div ScreenWidthDev)  +
                                form4.Height - form4.ClientHeight;
        scaleBy(x,Screenwidthdev);
     end;


    // Find handle of TASKBAR
    HTaskBar := FindWindow('Shell_TrayWnd', nil);

    // Disable the taskbar
    EnableWindow(HTaskBar, False);
    // Hide the taskbar
    ShowWindow(HTaskbar, SW_HIDE);
      BorderStyle := bsNone;

      Left        := 0;
      Top         := 0;
      Height      := Screen.Height;
      Width       := Screen.Width;
form4.color:=clblack;
end;

hmmm....

[C64-Flo]

oh ich bin soooo blöd...


Danke jungs!!

es funzt jetzt!

[kiar]

nochmal zum verständnis.

diese code mußt du in die formcreate einfügen von dem formular, welches du anpassen willst.dabei sollten die const im implemation teil deklariert werden. desweiteren solltest du im create bereich dann auch nicht mehr mir width und heigth spielen.

bei mir funktioniert der code einwandfrei.

raik

[kiar]

woran lag es denn?

[Luckie]

Ich hoffe den teil:

Delphi-Quellcode:

    // Find handle of TASKBAR 
    HTaskBar := FindWindow('Shell_TrayWnd', nil); 

    // Disable the taskbar 
    EnableWindow(HTaskBar, False); 
    // Hide the taskbar 
    ShowWindow(HTaskbar, SW_HIDE); 
      BorderStyle := bsNone; 

      Left        := 0; 
      Top         := 0; 
      Height      := Screen.Height; 
      Width       := Screen.Width;

Hast du wieder rausgenommen. Oder hast du einen Grund den Computer für den Benutzer nahezu unbedienbar zu machen?

[MathiasSimmack]

Zitat:

Zitat von Luckie

Ich hoffe den teil: [...] Hast du wieder rausgenommen. Oder hast du einen Grund den Computer für den Benutzer nahezu unbedienbar zu machen?

Warum? Das Startmenü bekommt man entweder mit der [Win]-Taste oder [Strg]+[Esc] zu Gesicht, und mit [Alt]+[Tab] kann man nach wie vor zwischen den Anwendungen wechseln. Und notfalls schreiben wir uns ein Mini-Tool, das nichts weiter macht als solche Spielereien wieder aufzuheben. ;)

[C64-Flo]

Ich hatte nur ein paar variablen falsch benannt, DARAN lags, Kiar.

(anstatt dein x,y hatte ich screenheigth/screenwidth genommen, weite runten aber nicht verändert...fertig)

:lol:


Nur ein bisserl mies ist:

Mein Programm umfasst ca.40 Forms/Units......

Muss ich da jetzt für JEDE einzelne Form diesen code in das formcreate packen??


:wiejetzt:

[kiar]

mache in einer unit eine eigene procedure und rufe diese im create der jeweiligen form auf.

raik