/ 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
Delphi -> lysavis/præsentation
Fra : Olav M.J. Christians~


Dato : 02-04-05 09:34

Hej der,

Går og leger lidt med tanken om at lave en simpel lysavis til et lille
projekt. Har arbejdet en del med Delphi før, men er nok en smule rusten.

Hvad er den nemmeste måde at gøre det på, når jeg fra et almindeligt
Window(ed) program vil overtage hele skærmen og skrive til den? Altså
ligesom f.eks. Powerpoint. Det er ikke de vildt avancerede ting jeg
nødvendigvis vil lave - bare lidt tekst vil være fint.

M.v.h.
Olav



 
 
Harald (02-04-2005)
Kommentar
Fra : Harald


Dato : 02-04-05 09:52

"Olav M.J. Christiansen" <omjcingenspamtak@jydholm.dk> skrev i en meddelelse
news:424e590a$0$711$edfadb0f@dread16.news.tele.dk...
> Hej der,
>
> Går og leger lidt med tanken om at lave en simpel lysavis til et lille
> projekt. Har arbejdet en del med Delphi før, men er nok en smule rusten.
>
> Hvad er den nemmeste måde at gøre det på, når jeg fra et almindeligt
> Window(ed) program vil overtage hele skærmen og skrive til den? Altså
> ligesom f.eks. Powerpoint. Det er ikke de vildt avancerede ting jeg
> nødvendigvis vil lave - bare lidt tekst vil være fint.

Sæt formens BorderStyle=nsNone og i OnCreate sætter du:

Self.Top:=0;
Self.Left:=0;
Self.Width:=Screen.DesktopWidth;
Self.Height:=Screen.DesktopHeight;

Mvh
HK



Olav M.J. Christians~ (02-04-2005)
Kommentar
Fra : Olav M.J. Christians~


Dato : 02-04-05 10:24

"Harald" <nomail@noname.dk> skrev i en meddelelse
news:424e5d3c$0$164$edfadb0f@dtext01.news.tele.dk...

> Sæt formens BorderStyle=nsNone og i OnCreate sætter du:
>
> Self.Top:=0;
> Self.Left:=0;
> Self.Width:=Screen.DesktopWidth;
> Self.Height:=Screen.DesktopHeight;

Genialt. Lige hvad jeg skulle bruge. Mange tak.

Olav



Niels Martin Hansen (02-04-2005)
Kommentar
Fra : Niels Martin Hansen


Dato : 02-04-05 15:42

Harald wrote:
> Sæt formens BorderStyle=nsNone og i OnCreate sætter du:
>
> Self.Top:=0;
> Self.Left:=0;
> Self.Width:=Screen.DesktopWidth;
> Self.Height:=Screen.DesktopHeight;

Bemærk at det ikke nødvendigvis vil fungere korrekt på multimonitor
systemer! Hvis man har sat Windows op med flere skærme kan det godt lade
sig gøre at desktop "starter" i andre koordinater end (0, 0), og hvis
den ikke gør det, er der også stor sandsynlighed for at man med
DesktopWidth og ditto Height vil få et vindue der strækker sig ud over
hvad der er synligt på nogen skærme.

Det er formentlig en bedre ide at bruge ScreenWidtth og ScreenHeight, og
stadig bevare Left og Top som 0. Så burde man få et vindue det dækker
kun den primære skærm og ikke andre.

Generelt er der mange ting man skal passe på med i multimonitor
opsætninger, men det simpleste man kan gøre er fofmentlig helt at
undlade at antage noget om hvad der er "lovlige" koordinater for vinduer
og lignende.

/Niels

Søg
Reklame
Statistik
Spørgsmål : 177579
Tips : 31968
Nyheder : 719565
Indlæg : 6409075
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste