FiveTech Software tech support forums

Dear Michel,

Do you use this ? Maybe you wrote ON MOVE by mistake:

ACTIVATE DIALOG ArcLeg RESIZE16 NOWAIT ON MOVE ArcLeg:Move(aRect[1],aRect[4],,,.T.)

or

ACTIVATE DIALOG ArcLeg RESIZE16 NOWAIT ON INIT ArcLeg:Move(aRect[1],aRect[4],,,.T.)

Dear Detlef,

Please modify this line in tget.prg this way:

FW_SayText( ::hDC, If( Empty( Eval( ::bSetGet ) ), "", Transform( Eval( ::bSetGet ), ::cPicture ) ), aRect, "R", ::oFont, ::nClrText )

now it works as you need

From Whatnew * TWindow Method SayText( cText, aRect, cAlign, oFont, nClrText, nClrBack, lBorder ) Applies to all derived classes like dialogs and controls To be used in o:bPainted. function FW_SayText( hDC or oWnd, cText, aRect, cAlign, oFont, nClrText, ...

...     := oStruc:itemIDitemAction := oStruc:itemActionitemState  := oStruc:itemStatehwndItem   := oStruc:hwndItemhDC        := oStruc:hDCaRect      := oStruc:aRectitemData   := oStruc:itemData each Element of Combobox have to be “paint” by “your” CODE you get a hDC and and aRect to “paint” ...

... ) = "__itemSetObj( {{CTLTYPE, 3}, {CTLID, 109}, {ITEMID, 0}, {ITEMACTION, 1}, {ITEMSTATE, 4096}, {HWNDITEM, 1770774}, {HDC, 1157698194}, {ARECT, {3, 3, 35, 70}}, {ITEMDATA, `ęƒ}}, {{TDRAWITEMSTRUCT,}} )" nPointer = 1373540 it seems to have what is need for Ownerdraw ComboBox ... now ...

Method oWnd:DrawImage( cPngFile, aRect ) works. Is it possible to read from bitmap not all the picture, but only the required fragment ?

oWnd:bPainted := { || oWnd:DrawImage( cPngFile, aRect )

hi Antonio,

Antonio Linares wrote:In FWH you have function GetWndRect( hWnd ) --> aRect

Yes ... just a Sample for Xbase++ and HMG Syntax

i want to use "as much old Code" as possible so i like to know how under FiveWin, thx

Dear Jimmy,

In FWH you have function GetWndRect( hWnd ) --> aRect

...  // refill area of Polygon     hBrush1 := CreateSolidBrush( nColor )     hOld1:= SelectObject( hBrush1 )     aRect:= { aPoints [1][1], aPoints [2][1], aPoints [3][1], aPoints [4][1]  }  ...

... or CreateWindowExW() depending on whether the application is ANSI or Unicode. We can use simplified functions of FWH: GetClientArea( hWnd ) --> aRect oWnd:GetCliRect() --> oRect

... or CreateWindowExW() depending on whether the application is ANSI or Unicode. We can use simplified functions of FWH: GetClientArea( hWnd ) --> aRect oWnd:GetCliRect() --> oRect

... for Vertical ( default ) .F. for Horizontal "RING" for ring gradient We can fill parts of window/dialog/control with FillRectEx( hDC, aRect, aGrad ) We can also define gradient brush and assign to a window DEFINE BRUSH oBrush GRADIENT aGrad Brushes get automatically resized when window ...

... Nuevo ejemplo: \samples\testmult.prg * Print/Display Rich Text - Desde esta versión, los métodos/comandos existentes oWnd:SayText( cText, aRect, ... ) oPrn:SayText( cText, aRect, ... ) @ r,c PRINT TO oPrn TEXT cText SIZE w,h INCHES/CM/MM mostrará automáticamente RichText en caso de que ...

... command works. New sample: \samples\testmult.prg * Print/Display Rich Text - From this version, the existing methods/commands oWnd:SayText( cText, aRect, ... ) oPrn:SayText( cText, aRect, ... ) @ r,c PRINT TO oPrn TEXT cText SIZE w,h INCHES/CM/MM will automatically display RichText in case the ...