DisplayHeight - de enig echte !

Alles over het toepassen van API en DLL's in Liberty BASIC

Moderator: anthonio

DisplayHeight - de enig echte !

Berichtdoor glpape » wo jun 08, 2011 5:28 pm

Laatst ben ik als m'n .bas files verloren. Ik moet vooral zoveel mogelijk op het forum blijven zetten want dat was een bron waar ik weer files terug kon vinden.
Al zoekende kom ik ook wel dingen tegen die ik een tijd niet gebruikt had en die wat minder voor in het geheugen zaten.

Zo bv de optie < GetWorkArea > in de functie "SystemParametersInfo". Geeft je het gedeelte van de desktop dat je kunt gebruiken; < DisplayHeight > van Liberty geeft je een venster dat gedeeltelijk achter de taskbar is verborgen.

Hier volgt de code . De variable cy bevat nu de echt bruikbare DisplayHeight. ulx en uly zijn altijd 0 en cx is hetzelfde als Liberty's DisplayWidth.
Je kunt makkelijk een functie maken die je cy geeft als hoogte voor je venster.

Code: Selecteer alles
REM   "SystemParametersInfo" can give the size of the workarea,
'           NOT including the area hidden by the taskbar.
'           060611.

calldll #user32, "GetActiveWindow", hmain as ulong

Struct RCT, ulx as long, uly as long, cx as long, cy as long

calldll #user32, "SystemParametersInfoA", _SPI_GETWORKAREA as long, _
            0 as long, RCT as struct, 0 as long, rtn as boolean

print : print "DeskTop Parameters :"
print
print space$(8); "ulx is : ", RCT.ulx.struct
print space$(8); "cx is : ",  RCT.cx.struct
print space$(8); "uly is : ", RCT.uly.struct
print space$(8); "cy is : ",  RCT.cy.struct        ' Count pixels Y
print
print space$(8); "DisplayWidth is :",  DisplayWidth
print space$(8); "DisplayHeight is:",  DisplayHeight


print : print : input "press  <Enter>  to close : "; aa
calldll #user32, "PostMessageA", hmain as ulong, _WM_CLOSE as long, _
                               0 as long, 0 as long, rtn as void  :  end



Vr groet,

George Pape.
glpape
 
Berichten: 83
Geregistreerd: za nov 08, 2008 5:32 pm

Re: DisplayHeight - de enig echte !

Berichtdoor tkpatric » za jun 11, 2011 8:17 am

Dankewel, komt goed van pas!
tkpatric
 
Berichten: 22
Geregistreerd: vr dec 29, 2006 8:52 pm


Keer terug naar API/DLL

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 2 gasten

cron