FiveTech Software tech support forums

Silvio,

oTitle:SetPos( nTop, nLeft )

I must change the position on bresize of a dialog

this image is on a TTitle control

I tried with oImagetitle:nLeft:=oTitle:nWidth-120

but it make error because there is not nleft valriable on ttitle image and I not found a right variable on class

How I can resolve it ?

Ya logre quitarlos, Así:

ON ENDPAGE ( oReporte:oHeader := TrLine():New({}) , oReporte:oTitle := TrLine():New({}) )

Pero el detalle que después de la primera hoja, el espacio que ocupaba el encabezado
el listado no lo ocupa, queda vacío sin ocupar.

Alguien sabrá como corregirlo ?

Uwe,

Could you please provide us a self contained example to review how you are doing it ? thanks

Try with oTitle:End()

Method Destroy() just frees the used resources.

... The SAME title painted on a folderpage from CODE , works fine. http://www.pflegeplus.com/IMAGES/Foldertitle1.jpg REDEFINE TITLE oTitle1 ID 120 OF oFld:aDialogs[2] UPDATEoTitle1:lBorder :=.T.oTitle1:lRound :=.T.oTitle1:nShadow := 0oTitle1:lTransparent := .F. oTitle1:aGrdBack ...

... there is a needed factor of 2.02 The Width and Height is calculated and defined in the created EXE / PRG. sample : @ nTTop, nTLeft TITLE oTitle SIZE nTWidth / 2.02, nTHeight / 2.02 of oDlgMain TRANSPARENT BORDER BASE The position of nTTop and nTLeft is defined with a right mouseclick ...

Tried.
Works as expected. I can dynamically change the oTitle text when needed, just changing the content of "cString" variable and apply it to oTitle:

cString := "Some new string"
oTitle:aText[1][3] := cString
oTitle:Refresh()

Thanks to all

... I still need to detect TTitle-width and height from RESOURCE to do the calculations for text- and Image-adjustments. aRect := GETCLIENTRECT( oTitle:hWnd ) returns 0 at startup I used ( before showing a new selection ) : oTitle:lBase := .F. oTitle:aGrdBack := {} oTitle:aGrdBase := {} oTitle:lBorder ...

Hola Daniel,

En samples\invoices.prg nos gustaría tener los titles totalmente planos, como el nuevo Look 2013 de Office.

He estado probando a poner oTitle:nShadowIntensity = 0 pero nada.

Una manita por favor!!!.

Muy agradecida.

... need the TTitle-resource-height and width , because of some needed calculations for text- and image-position. I tested : aRect := GetClientRect( oTitle1:hWnd ) but get only result 0 for aRect[3] .and. aRect[4] ( at STARTUP !!! ) Changes at runtime, it returns the needed values. function TITLE_SET ...

Uwe, I have not tested it myself, but basically you have to define oTitle:bMMoved = { | nX, nY | CheckArea( nX, nY ) } and if the mouse is in the area where you want to change the cursor, simply do oTitle:oCursor = oHandCursor and previously DEFINE CURSOR ...

... hacer es usar el tTitle de FWH, pero al crearlo en PellesC, el estilo que queda es 0x000000 y no me muestra nada. lo tengo asi: REDEFINE TITLE oTitle ID 222 of oDlgN SHADOW TEXT "Prueba " oTitle:lBorder:=.T. oTitle:aGrdBack = { { 1, nRGB( 129, 130, 138 ), nRGB( 59, 60, 62 ) } } No ...

Lo he resuelto así:
if(oReport:nPage>1, oReport:oTitle:=TrLine():New({{||""}}, oReport,) ,) //oTitle solo en 1a. pag
Saludos.

Hola.
Tengo un reporte de nomina que consume 35 o mas hojas tam carta horizontal. El cliente quiere que el oTitle solo aparezca en la primer pagina (para ahorrar papel).
He probado con oReport:oTitle := nil, oReport:aTitle:={{||""}} sin resultados.
¿Alguien tiene un ejemplito?
Saludos.

Uwe,

I think it should be enough to do a:

oTitle:hBackBrush = nil
oTitle:Refresh()

but the problem is that hBackBrush is declared as PROTECTED, so the above may fail, unless you remove PROTECTED from such DATA.