Venster zonder knoppen

Geef hier je beste Liberty BASIC tips door. (Hier geen hulp vragen)

Moderators: anthonio, Abcott

Venster zonder knoppen

Berichtdoor Gordon » za jun 30, 2007 2:53 pm

Hier is een voorbeeld uit een Frans Liberty BASIC forum
http://lbasic.pleug.com/forum/index.php


Code: Selecteer alles
nomainwin

WindowWidth = 200
WindowHeight = 100

UpperLeftX=int((DisplayWidth/2)-(WindowWidth/2))
UpperLeftY=int((DisplayHeight/2)-(WindowHeight/2))

stylebits #1, _DS_CENTER, _WS_SYSMENU, 0, 0

button #1.close, "&Fermer", [Quitter],UL, WindowWidth/4, WindowHeight/4, 100, 25
open "Fenêtre sans bouton" for dialog as #1
#1 "trapclose [Quitter]"
wait

[Quitter]
close #1
end



Gordon.
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Berichtdoor anthonio » za jun 30, 2007 3:42 pm

handig om te weten.
je kan ook gewoon window_popup gebruiken maar dan moet je wel zelf de knoppen erbij zetten.

Code: Selecteer alles
nomainwin

WindowWidth = 200
WindowHeight = 100

UpperLeftX=int((DisplayWidth/2)-(WindowWidth/2))
UpperLeftY=int((DisplayHeight/2)-(WindowHeight/2))

BackgroundColor$ = "black"

button #1.close, "&Fermer", [Quitter],UL, WindowWidth/4, WindowHeight/4, 100, 25
open "Fenêtre sans bouton" for window_popup as #1
#1 "trapclose [Quitter]"
wait

[Quitter]
close #1
end
Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm


Keer terug naar Tips en informatie

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron