FiveTech Software tech support forums

... ] ; [ <readonly: READONLY, NO MODIFY> ] ; [ VALID <uValid> ] ; [ ON CHANGE <uChange> ] ; [ <lDesign: DESIGN> ] ; [ <lNoBorder: NO BORDER, NOBORDER> ] ; [ <lNoVScroll: NO VSCROLL> ] ; => ; [ <oGet> := ] TMultiGet():New( sVis(<nRow>), sSir(<nCol>), ...

... New string DATA hPalette (<----- New String CLASSDATA lRegistered AS LOGICAL METHOD New( nTop, nLeft, nWidth, nHeight, cResName, cBmpFile, lNoBorder,; oWnd, bLClicked, bRClicked, lScroll, lStretch, oCursor,; cMsg, lUpdate, bWhen, lPixel, bValid, lDesign ) CONSTRUCTOR ************************************ ...

TImage():New( nTop, nLeft, nWidth, nHeight, cResName, cBmpFile, lNoBorder, oWnd, bLClicked, bRClicked, lScroll, lStretch, oCursor,; cMsg, lUpdate, bWhen, lPixel, bValid, lDesign ) lStretch:=.T. Thanks, but I need it in a different way. I need a new Handle ...

TImage():New( nTop, nLeft, nWidth, nHeight, cResName, cBmpFile, lNoBorder, oWnd, bLClicked, bRClicked, lScroll, lStretch, oCursor,;
cMsg, lUpdate, bWhen, lPixel, bValid, lDesign )

lStretch:=.T.

Message not found: TGET:_LNOBORDER,neither control.prg,windows.prg

You modifyed tget.prg ?

Thanks!
Shuming Wang

Please try
GET ... NOBORDER
or
oGet:lNoBorder := .t.

I normally use

oGet:lNoBorder := .not. ( IsAppThemed() .and. IsThemeActive() )

... , bValid , nClrFore , nClrBack , oFont , lDesign,; oCursor , lPixel , cMsg , lUpdate , bWhen , lCenter,; lRight , bChanged, lReadOnly, lPassword, lNoBorder, nHelpID,; lSpinner, bUp , bDown , bMin , bMax , aItems ) CONSTRUCTOR METHOD ReDefine( nID , bSetGet , oWnd , nHelpId , cPict, bValid ,; nClrFore, ...

... .design., oCursor, .pixel., cMsg, .update., {uWhen},.lCenter., .lRight.,{|nKey, nFlags, Self| <uChange>\}, .readonly., .pass., .lNoBorder., nHelpId ) oGets[j] := TGet():New( val(acos[j6]), val(acos[j6+1]), GynLocalBlock( aGets, j ) ,oWndr, val(acos[j6+2]), val(acos[j6+3]), , ...

... cPict, bValid,; nClrFore, nClrBack, oFont, lDesign, oCursor, lPixel,; cMsg, lUpdate, bWhen, lCenter, lRight, bChanged,; lReadOnly, lPassword, lNoBorder, nHelpId,; lSpinner, bUp, bDown, bMin, bMax ) CONSTRUCTOR METHOD Assign() INLINE ::oGet:Assign() regards Eugeniusz