Search found 7 matches: holdres

Return to advanced search

METHOD PrintPage() CLASS TPreview

... nFirst .or. nLast > Len( ::oDevice:aMeta ), ; // DEVICE ( MsgBeep(),.F. ), .T.) OF oDlg oPageIni:Disable() oPageFin:Disable() SetResources( hOldRes ) ACTIVATE DIALOG oDlg ON INIT Msginfo( "H0LA" ) // Sale SOLO LA PRIMERA VEZ ? "SE MUESTRA" Decir que es una mezcla de CUI ...
by thefull
Mon Feb 27, 2012 5:31 pm
 
Forum: Bugs report & fixes / Informe de errores y arreglos
Topic: METHOD PrintPage() CLASS TPreview
Replies: 0
Views: 636

Re: DEBUG en FW

Carles wrote:Marcelo,

Impresion todavia no esta finalizada

Alem da impressao esta dando erro
so funciona se eu retirar a linha o:oSplit:AdjClient() na funcao STATIC FUNCTION SetupBar( o )


aqui tenho que comentar
* o:oSplit:AdjClient()

SetResources( hOldRes )

o:oDlg:Show()

RETU NIL
by marca
Thu May 13, 2010 5:05 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: DEBUG en FW
Replies: 68
Views: 20187

Re: preview alpha 2

... METHOD BuildWindow() CLASS TPreview local oIcon, cTitle := "FiveWin Printing Preview", oCursor local hOldRes := GetResources(), oThis := Self local cPrinter DEFAULT ::oWndMain := WndMain() #ifdef __CLIPPER__ ::cResFile := "Preview.dll" #else ...
by dobfivewin
Thu Jan 14, 2010 10:08 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: preview alpha 2
Replies: 2
Views: 2030

Re: GetPrintDC()

... //----------------------------------------------------------------------------// function RPreview( oDevice ) local aFiles := oDevice:aMeta local hOldRes := GetResources() local oSay local nFor,oBtn local oWndMain := WndMain(), oIcon, oCursor, oMenu, oBrush, oFont local l97Look := oWndMain != ...
by jbrita
Tue Nov 24, 2009 11:29 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: GetPrintDC()
Replies: 4
Views: 2704

Re: Preview desde Tprinter (para Antonio Linares)

... len(afiles) que es el mismo que ::oDevice:aMeta, es 4, tanto a la entrada como a la salida, pero aqui..... METHOD NextPage() CLASS TPreview local hOldRes := GetResources() local oDevice := ::oDevice local aFiles := oDevice:aMeta // DEVICE msginfo("NEX "+STR(Len(aFiles))) el valor ya ...
by Pedro
Sun Aug 09, 2009 11:37 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Preview desde Tprinter (para Antonio Linares) SOLUCIONADO
Replies: 10
Views: 1533

Re: ¿Cómo enviar a Excel reporte con TPrinter?

... lUser, lPreview,, lModal, lSelection ) Endif Return Self METHOD Activate() CLASS TMPrinter Local oPagina Local hActWnd := GetActiveWindow() ::hOldRes := GetResources() #ifdef __CLIPPER__ SET RESOURCES TO "preview.dll" #else SET RESOURCES TO "prev32.dll" #endif If GetResources() ...
by ManolinM2008
Fri Jun 19, 2009 12:02 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: ¿Cómo enviar a Excel reporte con TPrinter?
Replies: 14
Views: 6025

... //----------------------------------------------------------------------------// function RPreview( oDevice ) local aFiles := oDevice:aMeta local hOldRes := GetResources() local oSay local nFor local oWndMain := WndMain(), oIcon, oCursor, oMenu, oBrush, oFont local l97Look := oWndMain != nil .and. ...
by Manuel Valdenebro
Thu Feb 28, 2008 4:30 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: RPREVIEW modificada por Manuel Valdenebro ?
Replies: 8
Views: 3361

Return to advanced search

cron