/* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
 */ 
  
 #include "minigui.ch" 
  
 ///////////////////////////////////////////////////////////////////// 
 FUNCTION Main() 
    LOCAL cTitle := 'Icon associated with the file type' 
    LOCAL nY := 30, nX := 20 
    
       DEFINE WINDOW Form_File       ; 
              At 0, 0                ; 
              WIDTH 500              ; 
              HEIGHT 350             ; 
              ICON "1MAIN"           ; 
              TITLE cTitle           ; 
              MAIN                   ; 
              NOSIZE                 ; 
              FONT 'Tahoma' SIZE 12   
  
            @ nY, nX LABEL Label_Clear WIDTH 460 HEIGHT 100 BACKCOLOR WHITE 
  
            @ nY, nX+5 FRAME Frame_File       ; 
              CAPTION " File info "           ; 
              WIDTH 450 HEIGHT 95             ;          
              FONTCOLOR RED BACKCOLOR WHITE  
  
            @ nY+35,nX+20 IMAGE Image_File PICTURE 'TEST' WIDTH 32 HEIGHT 32 
            @ nY+42,nX+60 LABEL Label_File VALUE 'test file'  WIDTH 400 HEIGHT 20 BACKCOLOR WHITE 
  
            @ nY+35,nX+20 BUTTON BTN_EXE ICON '' EXTRACT 0  WIDTH 36 HEIGHT 36  INVISIBLE  
  
            @ 200, 60 BUTTONEX Button_Copy ; 
              WIDTH 180 HEIGHT 80          ; 
              CAPTION 'Select to file'     ; 
              NOHOTLIGHT                   ; 
              UPPERTEXT LEFTTEXT NOXPSTYLE ; 
              FONTCOLOR WHITE BOLD         ; 
              BACKCOLOR { 35,179, 15}      ; 
              ACTION MyGetFile()  
               
  
            @ 200, 260 BUTTONEX Button_Exit; 
              WIDTH 180 HEIGHT 80          ; 
              ICON "iExit"                 ; 
              CAPTION 'Exit'               ; 
              NOHOTLIGHT                   ; 
              UPPERTEXT LEFTTEXT NOXPSTYLE ; 
              FONTCOLOR WHITE BOLD         ; 
              BACKCOLOR {254, 73, 83}      ; 
              ACTION Form_File.Release() 
  
       END WINDOW 
  
            ico:=ICON_EXEREAD(hb_ArgV(0)) 
            SetImageControl ( "Form_File", "Image_File", BmpFromIcon( ico ) ) 
  
       DEFINE BKGBRUSH Brush_1 PATTERN IN Form_File BITMAP WALL 
  
       CENTER WINDOW Form_File 
       ACTIVATE WINDOW Form_File 
  
    RETURN NIL 
  
 ///////////////////////////////////////////////////////////////////// 
 // ЏаЁЄаҐЇЁвм д ©«л Є ЇЁбм¬г 
 PROCEDURE MyGetFile()  
    LOCAL aFiles, cFile, bmpPict 
    LOCAL nIndex, ico, hBmp  
      
    aFiles := GetFile( { {"‚ᥠ䠩«л", "*.*"}, ;  
       {"’ҐЄбвл Їа®Ја ¬¬", "*.prg;*.ch"}, {"‚ᥠ䠩«л MSOFFICE", "*.doc;*.rtf;*.docx;*.odt;*.xls;" } }, ;  
       "‚лЎҐаЁвҐ д ©«л", GetCurrentFolder() , .T. )  
  
    IF LEN( aFiles )  > 0 
       cFile  := aFiles[1] 
       Form_File.Label_File.Value := alltrim( cFile ) 
  
          nIndex := 0  
          ico := EXTRACTASSICON( 0, cFile , @nIndex ) 
          hBmp := BmpFromIcon( ico )    // нв® ў®§ўа в •…Ќ„‹Ђ bmp 
  
          SetImageControl ( "Form_File", "Image_File", hBmp ) 
  
    ENDIF 
  
 RETURN  
 ///////////////////////////////////////////////////////////////////////////// 
 *-----------------------------------------------------------------------------* 
 Static Procedure SetImageControl (cFormName, cControlImageName, hBitmap) 
 *-----------------------------------------------------------------------------* 
 Local hWnd, k 
  
 k := GetControlIndex (cControlImageName, cFormName) 
  
 IF k > 0 
    IF _HMG_aControlBrushHandle [k] <> 0 
        DeleteObject (_HMG_aControlBrushHandle [k]) 
    ENDIF 
    _HMG_aControlBrushHandle [k] := hBitmap 
  
    hWnd := GetControlHandle (cControlImageName, cFormName) 
  
    #define STM_SETIMAGE 0x0172 
    #define IMAGE_BITMAP 0 
  
    SendMessage (hWnd, STM_SETIMAGE, IMAGE_BITMAP, hBitmap) 
  
    #undef IMAGE_BITMAP 
    #undef STM_SETIMAGE 
 ENDIF 
  
 Return 
  
  
 #pragma BEGINDUMP 
  
 #include "hbapi.h" 
 #include "windows.h" 
 #include <shellapi.h> 
  
 extern HBITMAP Icon2Bmp( HICON hIcon ); 
  
 HB_FUNC( EXTRACTASSICON ) 
 { 
 HICON hIcon; 
 LONG hInstance = hb_parnl( 1 ); 
 char * lpIconPath = ( char * ) hb_parc( 2 ); 
 WORD lpiIcon = hb_parnl( 3 ); 
  
 hIcon = ExtractAssociatedIcon( 
 ( HINSTANCE ) hInstance, 
 lpIconPath, 
 &lpiIcon ); 
  
 hb_stornl( lpiIcon, 3 ); 
 hb_retnl( ( LONG ) hIcon ); 
  
 } 
  
 HB_FUNC( ICON_EXEREAD ) 
 { 
 SHFILEINFO sfi; 
  
 ZeroMemory(&sfi, sizeof(SHFILEINFO)); 
  
 SHGetFileInfo(hb_parc(1), 0, &sfi, sizeof(SHFILEINFO), SHGFI_ICON ); 
  
 hb_retnl( ( LONG ) sfi.hIcon ); 
  
 } 
  
 HB_FUNC( BMPFROMICON ) 
 { 
 HICON hIcon = ( HICON ) hb_parnl( 1 ); 
  
 hb_retnl( ( LONG ) Icon2Bmp( hIcon ) ); 
 } 
  
 #pragma ENDDUMP