Search found 19 matches: ometa1

Return to advanced search

Re: Calculate total pages

... these steps are executed: Best regards, Otto    oDevice := DEVICE   aFiles  := oDevice:aMeta   hMeta   := oMeta1:hMeta    cUniqueID := cUniqueID()       CursorWait()       DeleteDC( oDevice:hDC)  ...
by Otto
Fri Nov 24, 2023 6:24 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Calculate total pages
Replies: 32
Views: 5508

Re: Preview Window size

... ::HScroll( GO_LEFT, GO_PAGE ) ; ON PAGERIGHT ::HScroll( GO_RIGHT, GO_PAGE ) ; VALID ( ::oWnd:oIcon := nil ,; ::oFont:End() ,; ::oCursor:End() ,; ::oMeta1:End() ,; ::oMeta2:End() ,; ::oDevice:End() ,; ::oHand:End() ,; If( Empty( ::oImageList ),, ( ::oImageList:End(), ::oImageList := nil ) ),; If( ...
by Silvio.Falconi
Tue Oct 15, 2019 7:09 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Preview Window size
Replies: 6
Views: 818

Re: Diseños con preview en tiempo de ejecución

Tienes que crear un objeto metafile: ::oMeta1 := TMetaFile():New( 0, 0, 0, 0,; ::oDevice:aMeta[ 1 ],; ::oWnd,; CLR_BLACK,; CLR_WHITE,; ::oDevice:nHorzRes(),; ::oDevice:nVertRes() ) que es el que visualiza los metafiles en el preview
by Antonio Linares
Fri Mar 11, 2016 7:25 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Diseños con preview en tiempo de ejecución
Replies: 4
Views: 563

Re: Control Botón de Impresión

Hola Leandro como dice el Maestro Antonio Linares Modifica la clase rpreview METHOD PrintPage() CLASS TPreview local hMeta := ::oMeta1:hMeta local oDlg, oRad, oPageIni, oPageEnd local nOption := 1, nFirst := 1, nLast := Len( ::oDevice:aMeta ) // DEVICE local oThis := Self local lCancel ...
by luisduque
Thu Sep 10, 2015 7:24 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Control Botón de Impresión
Replies: 8
Views: 1423

Re: several minor bugs FWH 13.07

Antonio, Lo del Factor del rpreview.prg nos lo arreglaste así en el método Setfactor de rpreview.prg ::oMeta1:SetZoomFactor( ::nZFactor, ::nZFactor * 2 ) if !::lZoom .and. ! lInit ::Zoom( .T. ) // A.L. 08 Oct 2007 endif if ::lZoom ::oWnd:oVScroll:SetRange( 1, VSCROLL_RANGE ...
by elvira
Fri Aug 23, 2013 2:24 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: several minor bugs FWH 13.07
Replies: 10
Views: 2311

tPreview iniciado al 100%

... el tamaño del visualizador, pero no me funciona con el vScroll... He intentado llamando el metodo SetFactor() desde ON INIT, pero no me reconoce ::oMeta1 y creo que la clase no crea un objeto al que pueda llamar??? Alguien sabe de alguna manera en que pueda hacer esto???
by Bayron
Sun Oct 30, 2011 3:27 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: tPreview iniciado al 100%
Replies: 0
Views: 299

Re: preview alpha 2

... CLASS TPreview DATA oWnd, oBar, oFont, oImageList DATA oDevice DATA oHand, oCursor DATA oMeta1, oMeta2, oSay, oFactor DATA oPage, oTwoPages, oZoom DATA oMenuZoom, oMenuTwoPages, oMenuUnZoom, oMenuOnePage DATA cResFile DATA aFactor, nPage, ...
by dobfivewin
Thu Jan 14, 2010 10:08 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: preview alpha 2
Replies: 2
Views: 2030

Re: GetPrintDC()

... GetResources(), 31 ) #define TXT_ZOOM_FACTOR ; LoadString( GetResources(), 32 ) #define MK_MBUTTON 16 static l2007 := .t. static oWnd, oBar, oMeta1, oMeta2,; oPage, oTwoPages, oZoom, oMenuZoom, oMenuTwoPages,; oMenuUnZoom, oMenuOnePage, oFactor, cResFile static aFactor static nPage, nZFactor ...
by jbrita
Tue Nov 24, 2009 11:29 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: GetPrintDC()
Replies: 4
Views: 2704

Re: Pequeño aporte al FORO clase RPREVIEW

... ) ; ON PAGELEFT ::HScroll( GO_LEFT, GO_PAGE ) ; ON PAGERIGHT ::HScroll( GO_RIGHT, GO_PAGE ) ; VALID ( ::oWnd:oIcon := nil ,; ::oFont:End() ,; ::oMeta1:End() ,; ::oMeta2:End() ,; ::oDevice:End() ,; ::oHand:End() ,; ::oWnd := nil ,; If( IsAppThemed() .and. ! l2007, ::oImageList:End(),),; ::lExit ...
by FranciscoA
Sun Aug 30, 2009 12:29 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Pequeño aporte al FORO clase RPREVIEW
Replies: 13
Views: 2535

Re: Modificación a Clase RPreview

METHOD SetFactor( nValue ) CLASS TPreview
local n, lInit := .f.

< other code >
n :- 1 + ( nValue - 1 ) * 0.1
::oMeta1:SetZoomFactor( n, 2 * n )
< other code >
return nil
by Willi Quintana
Wed Aug 26, 2009 3:11 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Modificación a Clase RPreview
Replies: 12
Views: 2359

Re: Preview desde Tprinter (para Antonio Linares)

... ) return nil endif msginfo("PME "+sTR(Len(aFiles))) ............... [color=#0000BF]Resto código paintmeta hasta .... endcase ::oMeta1:SetFocus() msginfo("PMS "+sTR(Len(aFiles))) return nil [/color] Aqui el valor de len(afiles) que es el mismo que ::oDevice:aMeta, es ...
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

... once tried to inset a HairCross into preview. I think with this code you could also make a grid. Regards, Otto HairCross Cursor is working: Insert oMeta1:bMMoved:={|y,x,flags|hairCross(oMeta1,y,x) } in FUNCTION RPreview( oDevice ) in rpreview.prg. func hairCross(oMeta1,y,x) nCount:=nCount+1 IF ...
by Otto
Wed Nov 19, 2008 1:19 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: GRID in RPREVIEW
Replies: 2
Views: 683

preview si quito msje de dobleclick solo asi funca

... y se ve mi listado solo la mitad del texto, si quiero hacerle doble clik a la hoja no me hace caso obviamente x que comente la linead del msje oMeta1:blDblClicked := {|nRow, nCol, nKeyFlags| SetOrg1(nCol, nRow, nKeyFlags)} si me voy al combo del zoom y elijo 1 se arregla todo uso fwh 2.6 sera ...
by artu0407
Mon Oct 06, 2008 9:50 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: preview si quito msje de dobleclick solo asi funca
Replies: 0
Views: 320

... sería modificar el método PaintMeta( lShow ) de la Clase TPreview, y añadirle ese parámetro lShow, para que al pasarle .F. no se llamase a: ::oMeta1:Refresh() No lo he probado, pero podría servir. Asi evitaríamos el primer pintado. Por favor pruébalo y nos comentas, gracias
by Antonio Linares
Thu Aug 21, 2008 6:46 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Nuevamente con RPREVIEW
Replies: 2
Views: 561

... TXT_FACTOR ; LoadString( GetResources(), 31 ) #define TXT_ZOOM_FACTOR ; LoadString( GetResources(), 32 ) #define MK_MBUTTON 16 static oWnd, oBar, oMeta1, oMeta2,; oPage, oTwoPages, oZoom, oMenuZoom, oMenuTwoPages,; oMenuUnZoom, oMenuOnePage, oFactor, cResFile static aFactor static nPage, nZFactor ...
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
Next

Return to advanced search