FWH 16.11 Texured Fonts

[karinha]

Master Nages, please review.

Maestro Nages, por favor revise.

https://forums.fivetechsoft.com/viewtopic.php?t=33217

Gracias, thanks.

Regards, saludos.

[karinha]

Resuelto,

Code: Select all | Expand

// https://forums.fivetechsoft.com/viewtopic.php?t=33217

// C:\FWH\SAMPLES\FONTTEXT.PRG

#include "fivewin.ch"

FUNCTION Main()

   LOCAL oWnd, oFont, aPalBmp, pBrush
   LOCAL cText    := "FWH1611" + CRLF + "VERSION" + CRLF + "BRUSHED" + CRLF + ;
                     "TEXT FONTS"

   DEFINE FONT oFont NAME "IMPACT" SIZE 0, - 100 bold UNDERLINE

   DEFINE WINDOW oWnd TITLE "FWH 16.11 BRUSHED FONTS"

   // ESTA FUNCAO FOI SUBSTITUIDA POR READIMAGE - Master Nages.
   // aPalBmp  := oWnd:ReadPalBmpEx( "c:\fwh1905\bitmaps\olga1.jpg", NIL, .T. )
   aPalBmp  := oWnd:ReadImage( "c:\fwh1905\bitmaps\olga1.jpg", NIL, .T. )

   pBrush   := GDIP_IMAGEBRUSH( aPalBmp[ 1 ] )

   oWnd:nHeight := 600
   oWnd:nWidth  := 760

   ACTIVATE WINDOW oWnd CENTERED ;
      ON PAINT oWnd:SayText( cText, NIL, "R", oFont, pBrush )

   GDIPLUSDELETEBRUSH( pBrush )

   PalBmpFree( aPalBmp )

   RELEASE FONT oFont

RETURN NIL

// FIN / END
 

Regards, saludos.