hIcon := LoadIcon( GetResources(), cResIcoName )
FW_SaveHIconToIco( hIcon, "name.ico" )
FW_SaveImage( BmpResourceName, "name.bmp" )
FW_SaveImage( BmpResourceName, "name.png" )
BOOKSICO ICON "..\icons\books.ico"
CHARTICO ICON "..\icons\chart.ico"
USERSICO ICON "..\icons\users.ico"
SEA BITMAP "..\bitmaps\sea.bmp"
OLGA 10 "..\bitmaps\olga1.jpg"
#include "fivewin.ch"
function Main()
local oWnd, oIco, oBar, oBtn
DEFINE ICON oIco RESOURCE "BOOKSICO"
DEFINE WINDOW oWnd ICON oIco SIZE 600,400 PIXEL
DEFINE BUTTONBAR oBar SIZE 140,30 2007
DEFINE BUTTON OF oBar PROMPT "OLGA.JPG->PNG" CENTER ACTION ( ;
FW_SaveImage( "OLGA", "olga.png" ), XImage( "olga.png" ) )
DEFINE BUTTON OF oBar PROMPT "SEA.BMP->JPG" CENTER ACTION ( ;
FW_SaveImage( "SEA", "sea.jpg", 100 ), XImage( "sea.jpg" ) )
DEFINE BUTTON OF oBar PROMPT "SAVE-ICO" CENTER ACTION ( ;
FW_SaveHIconToIco( LoadIcon( GetResources(), "BOOKSICO" ), "books2.ico" ), ;
XImage( "books2.ico" ) )
ACTIVATE WINDOW oWnd CENTERED
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 84 guests