Still trouble Transparent say in dialogs

[Richard Chidiak]

Antonio

Say strings are not correcty drawn when transparent clause is used on dialogs. this is an old problem

In the sample below, the say string is truncated with the transparent and adjust , it should be on 2 lines if we remove all reference to transparent

can tou please check with and without Transparent to see the problem ?

Thanks

FWH 9.01

Richard

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()
LOCAL ODLG,OSAY,OGET1

DEFINE DIALOG ODLG RESOURCE "TEST" TRANSPARENT
REDEFINE SAY OSAY  ID 401 OF ODLG  TRANSPARENT ADJUST
REDEFINE GET OGET1 ID 201 OF ODLG

ACTIVATE DIALOG ODLG CENTERED
return nil

TEST DIALOG 2, 12, 144, 91
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX
FONT 12, "Tahoma"
{
EDITTEXT 201, 53, 2, 67, 18
DEFPUSHBUTTON "&OK", IDOK, 1, 62, 35, 24
PUSHBUTTON "Cancel", IDCANCEL, 106, 64, 36, 24
CTEXT "L1 AND LINE2", 401, 2, 1, 42, 21, SS_CENTER | WS_BORDER | WS_GROUP
}



[byte-one]

Richard, please add this new fixsays to your code!
ANTONIO, this problem with the wordbreak should also from you adapted!

Code: Select all  Expand view

//*****************************************************
#PRAGMA BEGINDUMP

#include <WinTen.h>
#include <windows.h>
#include <ClipApi.h>

//typedef int (FAR WINAPI *FARPROC)();


void WindowBoxBlack( HDC hDC, RECT * pRect );

LRESULT static CALLBACK LabelProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam )
{
   if( uMsg == WM_ERASEBKGND )
   {
      return 1;
   }

   else if( uMsg == WM_UPDATEUISTATE ) // SAYs were erased when pressing ALT
   {
      LONG lResult = CallWindowProc( ( FARPROC ) GetProp( hWnd, "__FWTRANS" ), hWnd, uMsg, wParam, lParam );
      InvalidateRect( hWnd, NULL, TRUE );
      return lResult;
   }

   else if( uMsg == WM_PAINT )
   {
      PAINTSTRUCT ps;
      char text[ 256 ];
      RECT rct;
      HDC hDC = BeginPaint( hWnd, &ps );
      HGDIOBJ hOldFont;

      GetWindowText( hWnd, text, 255 );
      GetClientRect( hWnd, &rct );
      SetBkMode( hDC, TRANSPARENT );
      SelectObject( hDC, GetStockObject( DEFAULT_GUI_FONT ) );

      SendMessage( GetParent( hWnd ), WM_CTLCOLORSTATIC, ( WPARAM ) hDC, ( LPARAM ) hWnd );
      hOldFont = SelectObject( hDC, ( HGDIOBJ ) SendMessage( hWnd, WM_GETFONT, 0, 0 ) );

      if( ( GetWindowLong( hWnd, GWL_STYLE ) & SS_BLACKFRAME ) ==   SS_BLACKFRAME )
      {
         RECT rct;

         GetClientRect( hWnd, &rct );
         WindowBoxBlack( hDC, &rct );
      }

      else if( GetWindowLong( hWnd, GWL_STYLE ) & SS_CENTER   )
         DrawText( hDC, text, lstrlen( text ), &rct,  DT_CENTER | DT_WORDBREAK );

      else if( GetWindowLong( hWnd, GWL_STYLE ) & SS_RIGHT   )
         DrawText( hDC, text, lstrlen( text ), &rct,  DT_RIGHT | DT_WORDBREAK );

      else if( GetWindowLong( hWnd, GWL_STYLE ) & SS_LEFTNOWORDWRAP   )
         DrawText( hDC, text, lstrlen( text ), &rct,  DT_LEFT );

      else
         DrawText( hDC, text, lstrlen( text ), &rct,  DT_LEFT | DT_WORDBREAK );

      SelectObject( hDC, hOldFont );

      EndPaint( hWnd, &ps );

      return 0;
   }
   else
      return CallWindowProc( ( FARPROC ) GetProp( hWnd, "__FWTRANS" ), hWnd, uMsg, wParam, lParam );
}


HARBOUR HB_FUN_FIXSAYS()
{
   HWND hDlg = ( HWND ) _parnl( 1 );
   HWND hCtrl = GetWindow( hDlg, GW_CHILD );
   char className[ 64 ];
   WNDPROC pLabelProc = NULL;

   while( hCtrl != NULL )
   {
      GetClassName( hCtrl, className, sizeof( className ) );

      if( ! lstrcmp( "Static", className ) && ! ( ( GetWindowLong( hCtrl, GWL_STYLE ) & SS_ICON ) == SS_ICON ) )
      {
            if( GetWindowLong( hCtrl, GWL_WNDPROC ) != ( LONG ) LabelProc )
            {
               pLabelProc = ( WNDPROC ) SetWindowLong( hCtrl, GWL_WNDPROC,
                                                       ( LONG ) LabelProc );
               SetProp( hCtrl, "__FWTRANS", ( HANDLE ) pLabelProc );
            }
      }
      hCtrl = GetWindow( hCtrl, GW_HWNDNEXT );
   }
}

#PRAGMA ENDDUMP

[Richard Chidiak]

Thanks Gunther

I am still missing the define for WM_UPDATEUISTATE

Can you post it here ?

TIA

Richard

[Richard Chidiak]

i found it searching the forum

Antonio , can you commit this fix in further release ?

Thanks

[Antonio Linares]

Günther, Richard,

Yes, we are going to include it in next FWH build.

Some minor changes to get it properly compiled:

Code: Select all  Expand view

#PRAGMA BEGINDUMP

#include <hbapi.h>
#include <windows.h>

void WindowBoxBlack( HDC hDC, RECT * pRect );

LRESULT static CALLBACK LabelProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam )
{
   if( uMsg == WM_ERASEBKGND )
   {
      return 1;
   }

   else if( uMsg == WM_UPDATEUISTATE ) // SAYs were erased when pressing ALT
   {
      LONG lResult = CallWindowProc( ( WNDPROC ) GetProp( hWnd, "__FWTRANS" ), hWnd, uMsg, wParam, lParam );
      InvalidateRect( hWnd, NULL, TRUE );
      return lResult;
   }

   else if( uMsg == WM_PAINT )
   {
      PAINTSTRUCT ps;
      char text[ 256 ];
      RECT rct;
      HDC hDC = BeginPaint( hWnd, &ps );
      HGDIOBJ hOldFont;

      GetWindowText( hWnd, text, 255 );
      GetClientRect( hWnd, &rct );
      SetBkMode( hDC, TRANSPARENT );
      SelectObject( hDC, GetStockObject( DEFAULT_GUI_FONT ) );

      SendMessage( GetParent( hWnd ), WM_CTLCOLORSTATIC, ( WPARAM ) hDC, ( LPARAM ) hWnd );
      hOldFont = SelectObject( hDC, ( HGDIOBJ ) SendMessage( hWnd, WM_GETFONT, 0, 0 ) );

      if( ( GetWindowLong( hWnd, GWL_STYLE ) & SS_BLACKFRAME ) ==   SS_BLACKFRAME )
      {
         RECT rct;

         GetClientRect( hWnd, &rct );
         WindowBoxBlack( hDC, &rct );
      }

      else if( GetWindowLong( hWnd, GWL_STYLE ) & SS_CENTER   )
         DrawText( hDC, text, lstrlen( text ), &rct,  DT_CENTER | DT_WORDBREAK );

      else if( GetWindowLong( hWnd, GWL_STYLE ) & SS_RIGHT   )
         DrawText( hDC, text, lstrlen( text ), &rct,  DT_RIGHT | DT_WORDBREAK );

      else if( GetWindowLong( hWnd, GWL_STYLE ) & SS_LEFTNOWORDWRAP   )
         DrawText( hDC, text, lstrlen( text ), &rct,  DT_LEFT );

      else
         DrawText( hDC, text, lstrlen( text ), &rct,  DT_LEFT | DT_WORDBREAK );

      SelectObject( hDC, hOldFont );

      EndPaint( hWnd, &ps );

      return 0;
   }
   else
      return CallWindowProc( ( WNDPROC ) GetProp( hWnd, "__FWTRANS" ), hWnd, uMsg, wParam, lParam );
}


HB_FUNC( FIXSAYS )
{
   HWND hDlg = ( HWND ) hb_parnl( 1 );
   HWND hCtrl = GetWindow( hDlg, GW_CHILD );
   char className[ 64 ];
   WNDPROC pLabelProc;

   while( hCtrl != NULL )
   {
      GetClassName( hCtrl, className, sizeof( className ) );

      if( ! lstrcmp( "Static", className ) && ! ( ( GetWindowLong( hCtrl, GWL_STYLE ) & SS_ICON ) == SS_ICON ) )
      {
            if( GetWindowLong( hCtrl, GWL_WNDPROC ) != ( LONG ) LabelProc )
            {
               pLabelProc = ( WNDPROC ) SetWindowLong( hCtrl, GWL_WNDPROC,
                                                       ( LONG ) LabelProc );
               SetProp( hCtrl, "__FWTRANS", ( HANDLE ) pLabelProc );
            }
      }
      hCtrl = GetWindow( hCtrl, GW_HWNDNEXT );
   }
}

#PRAGMA ENDDUMP


[E. Bartzokas]

Hi all,

I have recently utilized the provided C code, to give my programs a new look and feel, and I managed to do it!
Thanks for the transparency to all involved persons.

My problem is one and only, which if I manage to resolve, it will make me happy, and will get off my shoulders
a whole lot of work...

Here's the situation...

In most of my dialogs I use Static says with and without a border (all of them created by resource).
1. Those which have no border, do not bother me, but those with borders most of the time (99%), have a
background color. Those without a border are most of the time black text colored.

How can I modify the (I guess just one line of code), to avoid giving the transparency effect to those
Static controls, which have a WS_BORDER clause ?

I will say Many Thanks to anyone who can provide me this solution.

Kind regards to all fellow-programmers.

Evans Bartzokas

[Antonio Linares]

Evans,

In the above C code, please modify this line:

Code: Select all  Expand view

if( ! lstrcmp( "Static", className ) && ! ( ( GetWindowLong( hCtrl, GWL_STYLE ) & SS_ICON ) == SS_ICON ) && ! ( ( GetWindowLong( hCtrl, GWL_STYLE ) & WS_BORDER ) == WS_BORDER ) )