FiveTech Software tech support forums

... LA PREGUNTA DEL MILLON en la clase twindow en el metodo new hay esta linea:: #ifdef __CLIPPER__ if oIcon != nil ::SendMsg( WM_SETICON, 0, oIcon:hIcon ) endif #endif esto quiere decir que ::SendMsg( WM_SETICON, 0, oIcon:hIcon ) solo se ejecutara si oIcon no es un nil.. lo que no entiendo es pq ...

en la clase TWindow

en metodo NEW, se encuentra esta linea.

#ifdef __CLIPPER__
if oIcon != nil
::SendMsg( WM_SETICON, 0, oIcon:hIcon )
endif
#endif

a que se refiere el Ifdef --- y porque

... + 1); wcex.lpszMenuName = 0; wcex.style = CS_HREDRAW | CS_VREDRAW; wcex.lpfnWndProc = DefWindowProc; wcex.hInstance = hInst; wcex.hIcon = LoadIcon(0, (LPCTSTR)IDI_APPLICATION); wcex.hCursor = LoadCursor(NULL, IDC_ARROW); wcex.lpszClassName = WndClass00; RegisterClassEx(&wcex); ...

... you first should convert Icon to Bitmap, i dont remember, but i think you can not use TYPE_IMAGE for this you can use the converted handle ( hicon to hbitmap ) and add in aBitmaps ( Column Bitmaps array ) with AddBmpHandle i show a sample... (include BmpFromIcon function ) #include "fivewin.ch"#include ...

... if lAnd( ::nStyle, WS_HSCROLL ) DEFINE SCROLLBAR ::oHScroll HORIZONTAL OF Self endif if ::oIcon != nil SendMessage( ::hWnd, WM_SETICON, 0, ::oIcon:hIcon ) endif if ::bInit != nil FixSay(::hWnd) lResult = Eval( ::bInit, Self ) if ValType( lResult ) == "L" .and. ! lResult lFocus = .f. endif ...

... oWnd : Window that the tray icon is linked cIcon : Specified path + file to get the icon nIcon : Icon number from file(use 0 for default icon) hIcon : 32bit handle of the icon cCaption : ToolTip to show bLClicked : Block to execute when Left Clicked bRClicked : Block to execute when Right Clicked ...

... is only shown the first time. Maybe the solution is to call again these functions: c = GetNotifyIconData( ::oWnd:hWnd, 1, WM_TASKBAR, oIcon:hIcon, "text of the tooltip", "The Title" ) ::lSuccess = Shell_NotifyIcon( If( lAdd, NIM_ADD, NIM_MODIFY ), @c )

... i need to do now ??? Antonio onde yo tengo que usar los codigos abaixo c := oTray:cBuffer c = GetNotifyIconData( ::oWnd:hWnd, 1, WM_TASKBAR, oIcon:hIcon, "text of the tooltip", "The Title" ) ::lSuccess = Shell_NotifyIcon( If( lAdd, NIM_ADD, NIM_MODIFY ), @c ) oTray:cBuffer := c se tu poder me add ...

... to properly compile the C source code. Also, place this line here: c := oTray:cBuffer c = GetNotifyIconData( ::oWnd:hWnd, 1, WM_TASKBAR, oIcon:hIcon, "text of the tooltip", "The Title" ) ::lSuccess = Shell_NotifyIcon( If( lAdd, NIM_ADD, NIM_MODIFY ), @c ) oTray:cBuffer := c

... oDlg:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oBmp:hBitmap ) } oIcono3:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oIcono3:hIcon ) } // oVentana:bPainted := { | hDC | InstertBmp( hDC , oBmp3 , oVentana ) } REDEFINE GET oGet VAR CCVENVA picture "999999" ID 102 OF oDlg; COLOR ...

... oDlg:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oBmp:hBitmap ) } oIcono3:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oIcono3:hIcon ) } // oVentana:bPainted := { | hDC | InstertBmp( hDC , oBmp3 , oVentana ) } REDEFINE GET oGet VAR CCVENVA picture "999999" ID 102 OF oDlg; COLOR ...

... oDlg:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oBmp:hBitmap ) } oIcono3:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oIcono3:hIcon ) } // oVentana:bPainted := { | hDC | InstertBmp( hDC , oBmp3 , oVentana ) } REDEFINE GET oGet VAR CCVENVA picture "999999" ID 102 OF oDlg; COLOR ...

... nWidth := ::nWidth(), nHeight := ::nHeight() local nRow := 10, nCol := 10 local n := 1, nIcons := Int( nWidth / 50 ) * Int( nHeight / 50 ) local hIcon := ExtractIcon( "user.exe", 0 ) local oFont, cText DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -8 UNDERLINE SelectObject( ::hDC, oFont:hFont ...

... Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long Tried with: DLL32 FUNCTION MsgAbout(hDC AS LONG, cTx1 AS LPSTR, cTx2 AS LPSTR, hIco AS LONG) AS LONG PASCAL FROM "ShellAboutA" ...

... "oIcon" ) DEFINE ICON oIco FILENAME oIcon else DEFINE ICON oIco RESOURCE oIcon endif else oIco = oIcon endif return ILAddIcon( ::hImageList, oIco:hIcon )