FiveTech Software tech support forums

mantonio_08,

la sentencia:
#ifdef
#endif

Se usa para que cuando generes un Ejecutable o Libreria se tomen los codigos que corresponda a Clipper, xHarbour, Harbour, xBase segun el caso, determinas que se incluye cuando compiles con las herramientas mencionadas.

mantonio_08 wrote:..

mAntonio, aun no he probado lo que me dijistes ya que solo es ESTETICA en el sistema, apenas lo pruebo te lo comento, gracias, saludos...

Mantonio; tal parece que te vas tener que resignar a ponerlo. Porque probe el siguiente código y no funciona    DEFINE ICON oIco RESNAME "nada"   DEFINE WINDOW oWChld MDICHILD    ;          TITLE "Tabla de " ...

Mantonio, prueba de esta forma:

Code: Select all  Expand view  RUN

DEFINE ICON oIcon RESOURCE "ICONSIS"

DEFINE WINDOW oWndc MDICHILD ;
       OF oWndMain

       oWndc:SetIcon( oIcon )
 

Carlos.

Hola

Estoy de acuerdo con mantonio,

mantonio, mira el link abaixo , es la ultima version de Timprime y funciona para versiones + recentes de FW. William http://forums.fivetechsupport.com/viewtopic.php?f=6&t=16326&p=84537&hilit=timprime#p84537 Yo ...

mantonio, mira el link abaixo , es la ultima version de Timprime y funciona para versiones + recentes de FW.

William

viewtopic.php?f=6&t=16326&p=84537&hilit=timprime#p84537

Mantonio, DEFINE BRUSH oBrush FILE ltrim(RUTA+'\tapiz\mar1.bmp') Ventanaprin:bPainted := {|hDC| PalBmpDraw( hDC, 40, 0, oBrush:hBitmap,, Ventanaprin:nWidth, Ventanaprin:nHeight,, .T.) }  ...

Mantonio,

Code: Select all  Expand view  RUN

local oBrush1, oBrush2

DEFINE BRUSH oBrush1 FILENAME "test1.bmp"

DEFINE BRUSH oBrush2 FILENAME "test2.bmp"

DEFINE WINDOW oWnd BRUSH oBrush1

...

oWnd:SetBrush( oBrush2 )
oWnd:Refresh()
 

Mantonio,

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=15033&p=78042&hilit=cambiar+brush#p78042DEFINE%20WINDOW%20oWnd%20BRUSH%20oBrush

Mantonio,
Yo apenas estoy apenas aprendiendo a programar, pero talvez funcionaria:

oBrush:cBmpFile := new.bmp

Hola mantonio:

mantonio_08 wrote:tengo la siguiente duda.. como obtengo las cordenadas de la pantalla dnd se pinta,, una ventana...

oWnd:nTop, oWnd:nLeft

Un abrazo.

I tried to use ribbon modification of Mantonio_88 create a circular button at the left of the ribbon ::oBtnCircle := TBtnBmp():New( 2.3, 01, 50, 50,,, ::cImageCircle1,; ::cImageCircle2,,; self,,, .F., .F.,,,, NIL, !.T.,, .T.,, ::cImageCircle4, .F., ) ::oBtnCircle:bAction := {|| ::miacion(),::oBtnCir...

Mantonio,

Puedes proporcionar un ejemplo que muestre el error de pintado ? gracias

Mantonio,

De momento nada nuevo. Sigue siendo un misterio...