/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Proceliinjen forsvinder
Fra : Sven Storm


Dato : 05-06-01 11:21

Hej

Når jeg med ChangeResolution(800,600) skifter min skærms opløsning, forsvinder proceslinjen totalt i bunden af skærmen.

Nogen der har et bud på, hvordan jeg undgår det? Eller hvordan jeg får den tilbage igen?

Mvh
Sven


Procedure ChangeResolution(Width: integer; Height : integer);
var
a: boolean;
i: integer;
DevM: TDEVMODE;
begin
I:=0;
with DevM do begin
repeat
a:= EnumDisplaySettings(PChar(0),i,DevM);
I:=i+1;
until (a=false);
end;
DevM.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
DevM.dmPelsWidth:=Width;
devM.dmPelsHeight := Height;
ChangeDisplaySettings(DevM,0);
end;




 
 
Rasmus Klitgaard-Nie~ (05-06-2001)
Kommentar
Fra : Rasmus Klitgaard-Nie~


Dato : 05-06-01 21:16

Sven Storm wrote:
>
> Hej
>
> Når jeg med ChangeResolution(800,600) skifter min skærms opløsning, forsvinder proceslinjen totalt i bunden af skærmen.
>
> Nogen der har et bud på, hvordan jeg undgår det? Eller hvordan jeg får den tilbage igen?
>
Kan det være at proceslinien skal have besked om at størrelsen er
ændret?

> Mvh
> Sven
>
> Procedure ChangeResolution(Width: integer; Height : integer);
> var
> a: boolean;
> i: integer;
> DevM: TDEVMODE;
> begin
> I:=0;
> with DevM do begin
> repeat
> a:= EnumDisplaySettings(PChar(0),i,DevM);
> I:=i+1;
> until (a=false);
> end;
> DevM.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
> DevM.dmPelsWidth:=Width;
> devM.dmPelsHeight := Height;
> ChangeDisplaySettings(DevM,0);
> end;


--
>o ********* PINKY! aka. Rasmus Klitgaard-Nielsen *********
<()> **** Mad Programmer - Commodore Freak - ABP regular ****
^^ "Can't sing. Can't dance. Can handle a sword a little."
-- Victor's resume (Terry Pratchett, Moving Pictures)

Claus Chrsitiansen (05-06-2001)
Kommentar
Fra : Claus Chrsitiansen


Dato : 05-06-01 22:14


"Sven Storm" <sven.storm@skolekom.dk> wrote in message
news:9fibvq$mle$1@news.net.uni-c.dk...
> Hej
>
> Når jeg med ChangeResolution(800,600) skifter min skærms opløsning,
forsvinder proceslinjen totalt i bunden af skærmen.
>
> Nogen der har et bud på, hvordan jeg undgår det? Eller hvordan jeg får den
tilbage igen?
>
Prøv med:

hTaskBar := FindWindow('Shell_TrayWnd', nil);
showwindow(hTaskBar, sw_show);

Claus
--
Claus Christiansen, <cch@unipeople.dk>

Pythia: http://www.pythia.dk/
Personal: http://www.bigfoot.com/~kruc
============================================-------------------------
"Computers are useless. They can only give you answers."
-- Pablo Picasso (1881-1973)



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste