#include "FiveWin.ch"
function Main()
local oWnd, oTest1, oTest2
DEFINE WINDOW oWnd
@ 057,376 SAY oTest1 PROMPT 'Test' PIXEL
? oTest1:nHeight
@ 057,376 SAY oTest2 PROMPT 'Test' PIXEL SIZE 015,007
? oTest2:nHeight
ACTIVATE WINDOW oWnd
return nil
#xcommand @ <nRow>, <nCol> SAY [ <oSay> <label: PROMPT,VAR > ] <cText> ;
[ <pict: PICT, PICTURE> <cPict> ] ;
[ <dlg: OF,WINDOW,DIALOG > <oWnd> ] ;
[ FONT <oFont> ] ;
[ <lCenter: CENTERED, CENTER > ] ;
[ <lRight: RIGHT > ] ;
[ <lBorder: BORDER > [CLR <nClrBorder>] ] ;
[ [<relpix:RELATIVE>] <lPixel: PIXEL, PIXELS > ] ;
[ <color: COLOR,COLORS > <nClrText> [,<nClrBack> ] ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ <design: DESIGN > ] ;
[ <update: UPDATE > ] ;
[ <lShaded: SHADED, SHADOW > ] ;
[ <lBox: BOX > ] ;
[ <lRaised: RAISED > ] ;
[ <adj: ADJUST> ] ;
[ <lTrans: TRANSPARENT>];
[ <uni: UNICODE, ANSI> ] ;
[ <lVCenter: VCENTER> ] ;
[ CARGO <uCargo> ] ;
=> ;
[ <oSay> := ] TSay():New( <nRow>, <nCol>, <{cText}>,;
[<oWnd>], [<cPict>], <oFont>, <.lCenter.>, <.lRight.>, <.lBorder.>,;
<.lPixel.>, <nClrText>, <nClrBack>, <nWidth>, <nHeight>,;
<.design.>, <.update.>, <.lShaded.>, <.lBox.>, <.lRaised.>, <.adj.>,;
<.lTrans.>, [<(oSay)>], [Upper( Left( <"uni">, 1 ) ) == "U"], <.lVCenter.>, [<uCargo>], [<.relpix.>], <nClrBorder> ) ; [ <oSay>:SetSize( <nWidth>, <nHeight> ) ]
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 82 guests