fasi Posted November 2, 2007 Report Share Posted November 2, 2007 Como puedo mostrar un hoja A4 (TMETAFILE) dentro de un dialogo con su tamaño real en cm y/o pixels y la posibilidad de hacer zoom in-out sobre ella Quote Link to comment Share on other sites More sharing options...
fasi Posted November 2, 2007 Author Report Share Posted November 2, 2007 Como puedo mostrar un hoja A4 (TMETAFILE) dentro de un dialogo con su tamaño real en cm y/o pixels y la posibilidad de hacer zoom in-out sobre ella Quote Link to comment Share on other sites More sharing options...
alex2002 Posted November 2, 2007 Report Share Posted November 2, 2007 Olá, a Vprinter faz isso. Você poderia ver com o Vagner Wirts (do fórum) pra ver como ele faz isso. Outro exemplo é a própria TxtPreview que vem com a TdosPrn. Que usa a fGET para visualizar o conteúdo na tela. // By Google Hello, The Vprinter does this. You could do with Vagner Wirts (of the forum) would see how he does that. Another example is the very TxtPreview that comes with TdosPrn. Who uses the fGET to view content on the screen. // Um abraço, Alexandre Pereira fwh 2.6, xharbour, .99.6, MyMake msn: alexpdasilva6@hotmail.com atualmente em Rondônia ps. A tecnologia fez a gente ficar poliglota. hehehehe Editado por - alex2002 on 02/11/2007 15:57:16 Quote Link to comment Share on other sites More sharing options...
fasi Posted November 2, 2007 Author Report Share Posted November 2, 2007 I must not create a printer document!! I want only create a HOja A4 into a window to design on it I need it for a Glassware Quote Link to comment Share on other sites More sharing options...
fasi Posted November 2, 2007 Author Report Share Posted November 2, 2007 #include "fivewin.ch" Function Main() Local oDevice oDevice := TPrinter():New( ,.f.,.t. ) VRD(oDevice) return nil Function VRD(oDevice) Local oBar Local oWnd Public oFoglio DEFINE WINDOW oWnd COLOR CLR_BLACK, CLR_HGRAY TITLE "Visual Designer" VSCROLL HSCROLL DEFINE BUTTONBAR oBar OF oWnd DEFINE BUTTON OF oBar oFoglio := TMetafile():New( 0, 0, 0, 0, , oWnd,CLR_BLACK,CLR_WHITE, oDevice:nHorzRes(),oDevice:nVertRes() ) ACTIVATE WINDOW oWnd ; return nil why not run ? Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.