Deze keer wat undocumented features
FILEREQUEST( )
Verscholen in de Terminal library zit de functie FileRequest( ). Met deze functie kun je de Windows2000 Filedialog oproepen. De returnwaarde is de geselecteerde bestandsnaam als string.
cFile := FileRequest( "c:\","Titel","Program Files","*.PRG")
TWEE ARRAY FUNCTIES
Als je wilt weten hoe een array gedimensioneerd is, kan de functie aDim( ) nuttig zijn.
LOCAL aMyArray[25][10][3] AS ARRAY
? aDim( aMyArray ) // 3
Een andere handige functie geeft elk element een beginwaarde.
aMyArray := ArrayNew( 30 ) // even een arraytje maken
aMyArray := ARepl( 0,30 ) // elk element krijgt de waarde 0
PAASEI van VO
Binnen CA-VO kun je op de volgende wijze een paasei vinden.
Maak een applicatie aan en include de OLE library. Creeer een datawindow en kies uit het edit menu voor Insert OLE Control. Klik vervolgens op de OK knop, terwijl de CTRL en de SHIFT toets ingedrukt zijn. Nu weet je wie er allemaal in de loop der tijd zich met de ontwikkeling van CA-VO hebben beziggehouden. Tenminste, bij CA, want het legertje beta-testers heeft natuurlijk ook een fixse bijdrage geleverd
In VO is het mogelijk om een bitmap aan een brush toe te kennen. Niet verder vertellen hoor! Als je vervolgens die brush aan de backgroud property van een dialog window toekend, krijg je een !heftig! effect.
RESOURCE ED_Richard_Loves_VO Bitmap D:\CAVO25\BIN\POWVO.BMP
METHOD PostInit(oParent,uExtra) CLASS HelpAbout
LOCAL oBmp AS Bitmap
//Put your PostInit additions here
oBmp := Bitmap{ResourceID{"ED_Richard_Loves_VO",_GetInst()}}
SELF:background := brush{oBmp}
RETURN NIL
De Datawindow heeft geen Background property. Als je hetzelfde trucje wilt uithalen op een datawindow, moet je de brush toekennen aan de datawindow:Surface.De code komt er dan als volgt uit te zien:
METHOD PostInit(oWindow,iCtlID,oServer,uExtra) CLASS NewWindow1
LOCAL oBmp AS Bitmap
//Put your PostInit additions here
oBmp := Bitmap{ResourceID{"ED_Richard",_GetInst()}}
SELF:oSurface:Background := brush{ oBmp }
RETURN NIL