Plaatsen van StaticText

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

Moderators: anthonio, Abcott

Plaatsen van StaticText

Berichtdoor glpape » vr jul 08, 2011 4:24 pm

Het territorium dat je toekent aan statictext is normaal niet zichtbaar op het scherm; jammer want je wilt het zo klein mogelijk houden zodat het niet in botsing komt met de andere controls.
Je kunt het met stylebits tijdelijk een border geven, handig bij het programmeren.
_WS_BORDER is een Window Style.

Hier een voorbeeld. Ik laat ook meteen _SS_SUNKEN zien, omdat ik het zelf erg aardig vindt. Dit is een Static Style. Er zijn er meer, en ze komen bijna allemaal aan bod een de 9 Stylebits tutorials van Janet Terra op de Liberty Basic Programmer's Encyclopaedia. Aflevering 4 gaat over statictext: http://lbpe.wikispaces.com/Stylebits+-+Statictext .

Code: Selecteer alles
nomainwin
Call SetWdwC 0, 0, 440, 330

s1$ = "_SS_SUNKEN"

stylebits  #W.s1, _SS_SUNKEN or _SS_CENTER or _SS_CENTERIMAGE, 0, 0, 0
statictext #W.s1, s1$, 250, 40, 115, 35

s2$ = "Statictext in Liberty Basic is MULTLINE with WORD-WRAPPING enabled."
s2$ = s2$; chr$(10); chr$(10); "En dit is _WS_BORDER."

stylebits  #W.s2, _WS_BORDER, 0, 0, 0
statictext #W.s2, s2$, 80, 140, 175, 85


open "" for window as #W
#W "trapclose [qq]"
#W.s1 "!font Arial 10"
#W.s2 "!font Arial 10"


wait
[qq]  close #W  :  end



Sub SetWdwC a,b,c,d                        ' Centers window with 0 for both first params
UpperLeftX = ((DisplayWidth - c)/2) + a    ' Adjust horiz pos, neg values move window left
UpperLeftY = ((DisplayHeight - d)/2) + b   ' Adjust vert pos, neg values move window up
WindowWidth = c
WindowHeight = d
End Sub

_SS_CENTER  en   _SS_CENTERIMAGE  centreren de text horizontaal en vertikaal.

Vr groet,

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

Keer terug naar Tips en informatie

Wie is er online

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

cron