Fuld skærm?

Hvordan laver man fuld skærm, dvs. hvor man ikke kan se Windows-statuslinie, eller noget andet? Man skal heller ikke kunne se kanten af Formen...

Sådan lidt li'som de gamle mario-spil til pc.

Der er 70 UP's til den der giver mig det "rigtige" svar, hurtigst og nemmest!!

Ses nok, ik' :-)

Prøv at sætte formens BorderStyle til bsNone, og WindowState til wsMaximized.

Hvordan laver man fuld skærm, dvs. hvor man ikke kan se Windows-statuslinie, eller noget andet? Man skal heller ikke kunne se kanten af Formen...

Sådan lidt li'som de gamle mario-spil til pc.

Der er 70 UP's til den der giver mig det "rigtige" svar, hurtigst og nemmest!!

Ses nok, ik' :-)

Sæt Windowsstate til "wsmaximized" og Borderstyle til "bsnone"!

nlf :-)

Som de ovennævnte besvarrelser skal du sætte borderstyle til BSNone, og Windowsstate til WSMaximized, Når vi så kommer til skærmopløsningen så har jeg kigget lidt i min private kodekasse og funktionaliteten taler næsten for sig selv

procedure Set_screen_resolution(Screen_Width, Screen_Height, Color_dept : integer);
var
Modes : Array[0..255] of TDevMode;
I : Byte;
ModeNum : LongInt;
DM : TDevMode;
Res : String;
OK : Bool;
Newmode : TDevMode;
begin
ModeNum := 0;
EnumDisplaySettings(Nil, ModeNum, DM);
Modes[ModeNum] := DM; // Add to array
Ok := True;
While Ok do
Begin
Inc(ModeNum);
Ok := EnumDisplaySettings(Nil, ModeNum, DM);
Modes[ModeNum] := DM; // Add to array
End;

For I := 0 to ModeNum-1 do
Begin
Res := (Format('%d %d %d',
[TDevMode(Modes[I]).dmPelsWidth,
TDevMode(Modes[I]).dmPelsHeight,
TDevMode(Modes[I]).dmBitsPerPel]));
If Res = inttostr(Screen_Width) + ' ' + inttostr(Screen_Height) + ' ' + inttostr(Color_Dept) then
begin
NewMode := TDevMode(Modes[I]);
NewMode.dmDisplayFrequency := 0;
NewMode.dmDisplayFlags :=
DM_BITSPERPEL AND
DM_PELSWIDTH AND
DM_PELSHEIGHT AND
DM_DISPLAYFLAGS;
ChangeDisplaySettings(NewMode, CDS_UPDATEREGISTRY);
end;

End;
end;

Hvordan laver man fuld skærm, dvs. hvor man ikke kan se Windows-statuslinie, eller noget andet? Man skal heller ikke kunne se kanten af Formen...

Sådan lidt li'som de gamle mario-spil til pc.

Der er 70 UP's til den der giver mig det "rigtige" svar, hurtigst og nemmest!!

Ses nok, ik' :-)

Ønsker du også at ændre opløsning?