TEXTOUT() function cannot use some predefined fonts?

[codemaker]

I have a situation where the dialog is covered by the BMP and from then on I am writting on this BMP practically when I want some text on it.
The activation code looks like this:

Code: Select all  Expand view

ACTIVATE DIALOG oDlgMain CENTERED ;
    ON PAINT ( DrawBitmap( oDlgmain:hDC, oBmp2, 0, 0, 0,0,SRCAND ),;    // Draws a bitmap on dialog
                         SetBkMode( oDlgMain:hDC, 1 ),;                   // writting mode TRANSPARENT
                        SetTextColor( oDlgMain:hDC, CLR_RED),;       // Color of written tect
                        TEXTOUT(oDlgMain:hDC,20,40,"YEAR 20"+WebYear,50) )   // The text
 

Before that I define the dialog like this:

Code: Select all  Expand view

DEFINE FONT oMainFont NAME "ARIAL" SIZE 0,30 BOLD   //24 BOLD
DEFINE DIALOG oDlgMain FROM 0,0 TO 608,808 PIXEL STYLE WS_POPUP FONT oMainFont 
 

What happens is that the function TEXTOUT() uses some font other than I want - oMainFont.
Is there a way I can force this function to use the desired font? I thought when I defined dialog with a font "oMainFont" everything on this dialog will be written in that font. All controls on this dialog uses the desired font, but the TEXTOUT() doesn't.
Is there I way to force the "oMainFont" to be used by TEXTOUT() function?

[MaxP]

You can try this

Code: Select all  Expand view

CTIVATE DIALOG oDlgMain CENTERED ;
    ON PAINT ( DrawBitmap( oDlgmain:hDC, oBmp2, 0, 0, 0,0,SRCAND ),;    // Draws a bitmap on dialog
                         SetBkMode( oDlgMain:hDC, 1 ),;                   // writting mode TRANSPARENT
                        SetTextColor( oDlgMain:hDC, CLR_RED),;       // Color of written tect                        
                        SelectObject( oDlgMain:hDC, oMainFont :hFont )
                        TEXTOUT(oDlgMain:hDC,20,40,"YEAR 20"+WebYear,50) )   // The text
 

Best Regards

[MaxP]

I stand corrected

Code: Select all  Expand view

ACTIVATE DIALOG oDlgMain CENTERED ;
    ON PAINT ( DrawBitmap( oDlgmain:hDC, oBmp2, 0, 0, 0,0,SRCAND ),;    // Draws a bitmap on dialog
                         SetBkMode( oDlgMain:hDC, 1 ),;                   // writting mode TRANSPARENT
                        SetTextColor( oDlgMain:hDC, CLR_RED),;       // Color of written tect                        
                        SelectObject( oDlgMain:hDC, oMainFont:hFont ), ;   // Set current font
                        TEXTOUT(oDlgMain:hDC,20,40,"YEAR 20"+WebYear,50) )   // The text
 

Best Regards

[codemaker]

Thank you MaxP
It works perfect!

[codemaker]

Ok, now I have another quuestion:

If I use TEXTOUT() to write some text and is transparent, how can I erase this text and write another text on the same position?
If I just write another text over the g, it will write over the previous one and I will end up with garbage on the screen?

Is there a way to erase the first text and write another at the same position? Something like XOR in some languages which erases the text if I repeat the same text again.

[Antonio Linares]

Boris,

before calling TextOut() you may call SetBkMode( oDlgMain:hDC, 1 ) // 1 stands for TRANSPARENT

http://msdn.microsoft.com/en-us/library/windows/desktop/dd162965(v=vs.85).aspx

Also, it is a very good practice to save and restore the GDI objects that we select, i.e.:

hOldFOnt := SelectObject( oDlgMain:hDC, oMainFont:hFont )
...
SelectObject( oDlgMain:hDC, hOldFont )

[codemaker]

Thanks Antonio.
But I am afraid I do not understand how can I do the following:

1. Have a bitmap on dialog. - This I can do
2. Write some TRANSPARENT text on some position - This I can do also
- What I cannot do:
3. Write another TRANSPARENT text on the same position (over the previous) but not having TWO texts visible! The old text should be erased somehow.

For example I am building some setup program. User selects the disk where the setup will copy the files.
When user selects one disk, the text will show the amount of space
When user selects another disk, the text should show another number, the amount of free space of this new disk
I need to erase the previous amount before I write new disk space amount.

[ukoenig]

I think, a better solution would be, using TTitle.
There You have many design-/style-options like :
3D-text, optional border, textcolor or brush, text-shadow,
a optional extra info-image animated with action, textstyle-change at runtime ...
I can complete the sample, if You like it.

changing values and different text-styles at runtime :



Best regards
Uwe

[codemaker]

Yes Uwe, I would appreciate some sample very much...
I never used TTitle, to be honest, I was not even aware it exists.

Thanks in advance for some small sample, I don't want to take too much of your time.

Boris

[ukoenig]

Boris,
does Your used FWH-release include TTitle ?
If Yes, In the meantime You can have a look at : \samples\Testtitl.prg
Maybe You like the first TRANSPARENT BASE sample with border and 3D-text.
My extended version :



Class TTitle added :

April 2010
==========

* New: Class TTitleText to use in class TTITLE, create an object with the properties of the text added to TTITLE
* New: Class TTitleImg to use in class TTITLE, create an object with properties of the image added to TTITLE

displaying the text, class TTitle uses :

TextOut( ::hDC,;
nRow + nRowSha, ;
nCol + nColSha, ;
::aText[ n, TI_TEXT ], ;
Len( ::aText[ n, TI_TEXT ] ) )

Best Regards
Uwe

[Antonio Linares]

Boris,

If you have a bitmap and paint a text of top of it, in order to erase the text and paint another one, simply refresh the bitmap:

oBmp:Refresh()
paint the new text on it

[codemaker]

Brilliant ideas are always simple
But ... (always a but) my problem is that I have also some other elements drawn on this bitmap (get, combobox and other texts, so I need to redraw everything after I redraw a bitmap....
It might cause some flickering.
Will give it a try anyway

@Uwe
Thanks Uwe, I will try tText class

[codemaker]

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

[ukoenig]

Boris,

with the titlepainter, it will be very easy,
to create any style with any combination of window and dialog You like.
Define dialog-size and title-position and size.
Create a standalone EXE-file of Your design.
With the different PAINTERS, You can define / create the Backgrounds and other settings :
( still some work to do )



Change styles at runtime :



Some results :



Best Regards
Uwe

[codemaker]

Uwe,

where can I find this TitlePainter?