On this dialog U can see I can select a combobox and can click with the mouse into a bitmap control and change the bitmap
To call these resource dialog's controls I use a function :
FUNCTION AssegnaBitmaps( aBmps, aData, oDlg )
Local nY, nX, nID
nY := 1
nX := 1
nID := 100
REDEFINE BITMAP aBmps[ 1, 1 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 1, 1, TRUE )
REDEFINE BITMAP aBmps[ 1, 2 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 1, 2, TRUE )
REDEFINE BITMAP aBmps[ 1, 3 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 1, 3, TRUE )
REDEFINE BITMAP aBmps[ 1, 4 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 1, 4, TRUE )
REDEFINE BITMAP aBmps[ 1, 5 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 1, 5, TRUE )
REDEFINE BITMAP aBmps[ 1, 6 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 1, 6, TRUE )
REDEFINE BITMAP aBmps[ 1, 7 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 1, 7, TRUE )
REDEFINE BITMAP aBmps[ 1, 8 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 1, 8, TRUE )
REDEFINE BITMAP aBmps[ 1, 9 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 1, 9, TRUE )
REDEFINE BITMAP aBmps[ 1, 10] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 1,10, TRUE )
REDEFINE BITMAP aBmps[ 1, 11] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 1,11, TRUE )
REDEFINE BITMAP aBmps[ 1, 12] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 1,12, TRUE )
REDEFINE BITMAP aBmps[ 1, 13] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 1,13, TRUE )
REDEFINE BITMAP aBmps[ 1, 14] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 1,14, TRUE )
REDEFINE BITMAP aBmps[ 1, 15] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 1,15, TRUE )
REDEFINE BITMAP aBmps[ 1, 16] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 1,16, TRUE )
REDEFINE BITMAP aBmps[ 2, 1 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 2, 1, TRUE )
REDEFINE BITMAP aBmps[ 2, 2 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 2, 2, TRUE )
REDEFINE BITMAP aBmps[ 2, 3 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 2, 3, TRUE )
REDEFINE BITMAP aBmps[ 2, 4 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 2, 4, TRUE )
REDEFINE BITMAP aBmps[ 2, 5 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 2, 5, TRUE )
REDEFINE BITMAP aBmps[ 2, 6 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 2, 6, TRUE )
REDEFINE BITMAP aBmps[ 2, 7 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 2, 7, TRUE )
REDEFINE BITMAP aBmps[ 2, 8 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 2, 8, TRUE )
REDEFINE BITMAP aBmps[ 2, 9 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 2, 9, TRUE )
REDEFINE BITMAP aBmps[ 2, 10] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 2,10, TRUE )
REDEFINE BITMAP aBmps[ 2, 11] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 2,11, TRUE )
REDEFINE BITMAP aBmps[ 2, 12] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 2,12, TRUE )
REDEFINE BITMAP aBmps[ 2, 13] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 2,13, TRUE )
REDEFINE BITMAP aBmps[ 2, 14] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 2,14, TRUE )
REDEFINE BITMAP aBmps[ 2, 15] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 2,15, TRUE )
REDEFINE BITMAP aBmps[ 2, 16] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 2,16, TRUE )
REDEFINE BITMAP aBmps[ 3, 1 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 3, 1, TRUE )
REDEFINE BITMAP aBmps[ 3, 2 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 3, 2, TRUE )
REDEFINE BITMAP aBmps[ 3, 3 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 3, 3, TRUE )
REDEFINE BITMAP aBmps[ 3, 4 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 3, 4, TRUE )
REDEFINE BITMAP aBmps[ 3, 5 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 3, 5, TRUE )
REDEFINE BITMAP aBmps[ 3, 6 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 3, 6, TRUE )
REDEFINE BITMAP aBmps[ 3, 7 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 3, 7, TRUE )
REDEFINE BITMAP aBmps[ 3, 8 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 3, 8, TRUE )
REDEFINE BITMAP aBmps[ 3, 9 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 3, 9, TRUE )
REDEFINE BITMAP aBmps[ 3, 10] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 3,10, TRUE )
REDEFINE BITMAP aBmps[ 3, 11] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 3,11, TRUE )
REDEFINE BITMAP aBmps[ 3, 12] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 3,12, TRUE )
REDEFINE BITMAP aBmps[ 3, 13] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 3,13, TRUE )
REDEFINE BITMAP aBmps[ 3, 14] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 3,14, TRUE )
REDEFINE BITMAP aBmps[ 3, 15] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 3,15, TRUE )
REDEFINE BITMAP aBmps[ 3, 16] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 3,16, TRUE )
REDEFINE BITMAP aBmps[ 4, 1 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 4, 1, TRUE )
REDEFINE BITMAP aBmps[ 4, 2 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 4, 2, TRUE )
REDEFINE BITMAP aBmps[ 4, 3 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 4, 3, TRUE )
REDEFINE BITMAP aBmps[ 4, 4 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 4, 4, TRUE )
REDEFINE BITMAP aBmps[ 4, 5 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 4, 5, TRUE )
REDEFINE BITMAP aBmps[ 4, 6 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 4, 6, TRUE )
REDEFINE BITMAP aBmps[ 4, 7 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 4, 7, TRUE )
REDEFINE BITMAP aBmps[ 4, 8 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 4, 8, TRUE )
REDEFINE BITMAP aBmps[ 4, 9 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 4, 9, TRUE )
REDEFINE BITMAP aBmps[ 4, 10] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 4,10, TRUE )
REDEFINE BITMAP aBmps[ 4, 11] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 4,11, TRUE )
REDEFINE BITMAP aBmps[ 4, 12] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 4,12, TRUE )
REDEFINE BITMAP aBmps[ 4, 13] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 4,13, TRUE )
REDEFINE BITMAP aBmps[ 4, 14] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 4,14, TRUE )
REDEFINE BITMAP aBmps[ 4, 15] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 4,15, TRUE )
REDEFINE BITMAP aBmps[ 4, 16] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 4,16, TRUE )
REDEFINE BITMAP aBmps[ 5, 1 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 5, 1, TRUE )
REDEFINE BITMAP aBmps[ 5, 2 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 5, 2, TRUE )
REDEFINE BITMAP aBmps[ 5, 3 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 5, 3, TRUE )
REDEFINE BITMAP aBmps[ 5, 4 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 5, 4, TRUE )
REDEFINE BITMAP aBmps[ 5, 5 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 5, 5, TRUE )
REDEFINE BITMAP aBmps[ 5, 6 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 5, 6, TRUE )
REDEFINE BITMAP aBmps[ 5, 7 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 5, 7, TRUE )
REDEFINE BITMAP aBmps[ 5, 8 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 5, 8, TRUE )
REDEFINE BITMAP aBmps[ 5, 9 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 5, 9, TRUE )
REDEFINE BITMAP aBmps[ 5, 10] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 5,10, TRUE )
REDEFINE BITMAP aBmps[ 5, 11] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 5,11, TRUE )
REDEFINE BITMAP aBmps[ 5, 12] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 5,12, TRUE )
REDEFINE BITMAP aBmps[ 5, 13] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 5,13, TRUE )
REDEFINE BITMAP aBmps[ 5, 14] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 5,14, TRUE )
REDEFINE BITMAP aBmps[ 5, 15] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 5,15, TRUE )
REDEFINE BITMAP aBmps[ 5, 16] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 5,16, TRUE )
REDEFINE BITMAP aBmps[ 6, 1 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 6, 1, TRUE )
REDEFINE BITMAP aBmps[ 6, 2 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 6, 2, TRUE )
REDEFINE BITMAP aBmps[ 6, 3 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 6, 3, TRUE )
REDEFINE BITMAP aBmps[ 6, 4 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 6, 4, TRUE )
REDEFINE BITMAP aBmps[ 6, 5 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 6, 5, TRUE )
REDEFINE BITMAP aBmps[ 6, 6 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 6, 6, TRUE )
REDEFINE BITMAP aBmps[ 6, 7 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 6, 7, TRUE )
REDEFINE BITMAP aBmps[ 6, 8 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 6, 8, TRUE )
REDEFINE BITMAP aBmps[ 6, 9 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 6, 9, TRUE )
REDEFINE BITMAP aBmps[ 6, 10] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 6,10, TRUE )
REDEFINE BITMAP aBmps[ 6, 11] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 6,11, TRUE )
REDEFINE BITMAP aBmps[ 6, 12] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 6,12, TRUE )
REDEFINE BITMAP aBmps[ 6, 13] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 6,13, TRUE )
REDEFINE BITMAP aBmps[ 6, 14] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 6,14, TRUE )
REDEFINE BITMAP aBmps[ 6, 15] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 6,15, TRUE )
REDEFINE BITMAP aBmps[ 6, 16] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 6,16, TRUE )
REDEFINE BITMAP aBmps[ 7, 1 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 7, 1, TRUE )
REDEFINE BITMAP aBmps[ 7, 2 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 7, 2, TRUE )
REDEFINE BITMAP aBmps[ 7, 3 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 7, 3, TRUE )
REDEFINE BITMAP aBmps[ 7, 4 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 7, 4, TRUE )
REDEFINE BITMAP aBmps[ 7, 5 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 7, 5, TRUE )
REDEFINE BITMAP aBmps[ 7, 6 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 7, 6, TRUE )
REDEFINE BITMAP aBmps[ 7, 7 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 7, 7, TRUE )
REDEFINE BITMAP aBmps[ 7, 8 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 7, 8, TRUE )
REDEFINE BITMAP aBmps[ 7, 9 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 7, 9, TRUE )
REDEFINE BITMAP aBmps[ 7, 10] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 7,10, TRUE )
REDEFINE BITMAP aBmps[ 7, 11] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 7,11, TRUE )
REDEFINE BITMAP aBmps[ 7, 12] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 7,12, TRUE )
REDEFINE BITMAP aBmps[ 7, 13] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 7,13, TRUE )
REDEFINE BITMAP aBmps[ 7, 14] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 7,14, TRUE )
REDEFINE BITMAP aBmps[ 7, 15] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 7,15, TRUE )
REDEFINE BITMAP aBmps[ 7, 16] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 7,16, TRUE )
REDEFINE BITMAP aBmps[ 8, 1 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 8, 1, TRUE )
REDEFINE BITMAP aBmps[ 8, 2 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 8, 2, TRUE )
REDEFINE BITMAP aBmps[ 8, 3 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 8, 3, TRUE )
REDEFINE BITMAP aBmps[ 8, 4 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 8, 4, TRUE )
REDEFINE BITMAP aBmps[ 8, 5 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 8, 5, TRUE )
REDEFINE BITMAP aBmps[ 8, 6 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 8, 6, TRUE )
REDEFINE BITMAP aBmps[ 8, 7 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 8, 7, TRUE )
REDEFINE BITMAP aBmps[ 8, 8 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 8, 8, TRUE )
REDEFINE BITMAP aBmps[ 8, 9 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 8, 9, TRUE )
REDEFINE BITMAP aBmps[ 8, 10] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 8,10, TRUE )
REDEFINE BITMAP aBmps[ 8, 11] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 8,11, TRUE )
REDEFINE BITMAP aBmps[ 8, 12] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 8,12, TRUE )
REDEFINE BITMAP aBmps[ 8, 13] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 8,13, TRUE )
REDEFINE BITMAP aBmps[ 8, 14] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 8,14, TRUE )
REDEFINE BITMAP aBmps[ 8, 15] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 8,15, TRUE )
REDEFINE BITMAP aBmps[ 8, 16] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 8,16, TRUE )
REDEFINE BITMAP aBmps[ 9, 1 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 9, 1, TRUE )
REDEFINE BITMAP aBmps[ 9, 2 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 9, 2, TRUE )
REDEFINE BITMAP aBmps[ 9, 3 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 9, 3, TRUE )
REDEFINE BITMAP aBmps[ 9, 4 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 9, 4, TRUE )
REDEFINE BITMAP aBmps[ 9, 5 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 9, 5, TRUE )
REDEFINE BITMAP aBmps[ 9, 6 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 9, 6, TRUE )
REDEFINE BITMAP aBmps[ 9, 7 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 9, 7, TRUE )
REDEFINE BITMAP aBmps[ 9, 8 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 9, 8, TRUE )
REDEFINE BITMAP aBmps[ 9, 9 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 9, 9, TRUE )
REDEFINE BITMAP aBmps[ 9, 10] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 9,10, TRUE )
REDEFINE BITMAP aBmps[ 9, 11] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 9,11, TRUE )
REDEFINE BITMAP aBmps[ 9, 12] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 9,12, TRUE )
REDEFINE BITMAP aBmps[ 9, 13] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 9,13, TRUE )
REDEFINE BITMAP aBmps[ 9, 14] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 9,14, TRUE )
REDEFINE BITMAP aBmps[ 9, 15] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 9,15, TRUE )
REDEFINE BITMAP aBmps[ 9, 16] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 9,16, TRUE )
REDEFINE BITMAP aBmps[ 10, 1 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 10, 1, TRUE )
REDEFINE BITMAP aBmps[ 10, 2 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 10, 2, TRUE )
REDEFINE BITMAP aBmps[ 10, 3 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 10, 3, TRUE )
REDEFINE BITMAP aBmps[ 10, 4 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 10, 4, TRUE )
REDEFINE BITMAP aBmps[ 10, 5 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 10, 5, TRUE )
REDEFINE BITMAP aBmps[ 10, 6 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 10, 6, TRUE )
REDEFINE BITMAP aBmps[ 10, 7 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 10, 7, TRUE )
REDEFINE BITMAP aBmps[ 10, 8 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 10, 8, TRUE )
REDEFINE BITMAP aBmps[ 10, 9 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 10, 9, TRUE )
REDEFINE BITMAP aBmps[ 10, 10] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 10,10, TRUE )
REDEFINE BITMAP aBmps[ 10, 11] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 10,11, TRUE )
REDEFINE BITMAP aBmps[ 10, 12] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 10,12, TRUE )
REDEFINE BITMAP aBmps[ 10, 13] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 10,13, TRUE )
REDEFINE BITMAP aBmps[ 10, 14] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 10,14, TRUE )
REDEFINE BITMAP aBmps[ 10, 15] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 10,15, TRUE )
REDEFINE BITMAP aBmps[ 10, 16] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 10,16, TRUE )
REDEFINE BITMAP aBmps[ 11, 1 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 11, 1, TRUE )
REDEFINE BITMAP aBmps[ 11, 2 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 11, 2, TRUE )
REDEFINE BITMAP aBmps[ 11, 3 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 11, 3, TRUE )
REDEFINE BITMAP aBmps[ 11, 4 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 11, 4, TRUE )
REDEFINE BITMAP aBmps[ 11, 5 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 11, 5, TRUE )
REDEFINE BITMAP aBmps[ 11, 6 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 11, 6, TRUE )
REDEFINE BITMAP aBmps[ 11, 7 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 11, 7, TRUE )
REDEFINE BITMAP aBmps[ 11, 8 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 11, 8, TRUE )
REDEFINE BITMAP aBmps[ 11, 9 ] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 11, 9, TRUE )
REDEFINE BITMAP aBmps[ 11, 10] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 11,10, TRUE )
REDEFINE BITMAP aBmps[ 11, 11] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 11,11, TRUE )
REDEFINE BITMAP aBmps[ 11, 12] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 11,12, TRUE )
REDEFINE BITMAP aBmps[ 11, 13] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 11,13, TRUE )
REDEFINE BITMAP aBmps[ 11, 14] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 11,14, TRUE )
REDEFINE BITMAP aBmps[ 11, 15] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 11,15, TRUE )
REDEFINE BITMAP aBmps[ 11, 16] RESOURCE "VUOTO" ID nID++ OF oDlg ON LEFT CLICK SettaBmp( aBmps, aData, 11,16, TRUE )
For nY := 1 to TOTY
For nX := 1 To TOTX
aBmps[nY,nX]:lTransparent := TRUE
NExt nX
Next nY
Return NIL
But I must use only 16x11 controls and My friend want create a beach BIG more
and I thinked to create a function to create in authometic a beach also until 50x30
- Code: Select all Expand view
FUNCTION AssegnaBitmaps_NEW ( aBmps, aData, oDlg )
Local nY, nX
lOCAL nRow:=100
Local nCol:=0
nY := 1
nX := 1
For nY := 1 to TOTY
For nX := 1 To TOTX
* NOBORDER
@ nrow, ncol BITMAP aBmps[ nY, nX ] RESOURCE "VACIO" OF oDlg ;
SIZE 100,100 PIXEL ;
ON LEFT CLICK SettaBmp( aBmps, aData, nY, nX, TRUE )
ncol:=ncol+100
Next nX
nCol := 1
nrow:=nRow+100
Next nY
For nY := 1 to TOTY
For nX := 1 To TOTX
aBmps[nY,nX]:lTransparent := TRUE
NExt nX
Next nY
Return NIL
It run and create many controls
when I click on each controls it give me always the same value
and the error is on this function at this line :
IF aData[nY,nX] # "X"- Code: Select all Expand view
FUNCTION SettaBmp( aBmps, aData, nY, nX, lFlag )
IF nItem == 5
IF aData[nY,nX] == "I"
lInizio := FALSE
EndIF
IF aData[nY,nX] == "S"
luscita := FALSE
EndIF
aBmps[nY,nX]:SetBmp( "VACIO" )
aData[nY,nX] := "X"
EndIF
IF aData[nY,nX] # "X"
MsgStop( "Questa casella è già occupata!","Verificare" )
Return NIL
EndIF
IF nItem == 1
aBmps[nY,nX]:SetBmp( BRENDA )
aData[nY,nX] := "I"
lInizio := TRUE
Return NIL
EndIF
IF nItem == 2
aBmps[nY,nX]:SetBmp( "PASSERELLA" )
aData[nY,nX] := "M"
Return NIL
EndIF
IF nItem == 3
aBmps[nY,nX]:SetBmp( "HAWAYANO" )
aData[nY,nX] := "E"
Return NIL
EndIF
IF nItem == 4
aBmps[nY,nX]:SetBmp( "CABINA" )
aData[nY,nX] := "S"
luscita := TRUE
EndIF
*/
Return NIL
I wish modify this source and not re- create a new program if it is possible....
I want understand why it make error
I insert a codeblock also
For nY := 1 to TOTY
For nX := 1 To TOTX
aBmps[nY,nX]:lTransparent := TRUE
aBmps[nY,nX]:bLClicked := {|nx,ny| SettaBmp( aBmps, aData, nY, nX, TRUE )} NExt nX
Next nY
but It give me another value
and then to control the codeblock I insert a command on settabmp function to see what it make
? nX,nY,aData[1,1], valtoprg (aBmps[1,1]:bLClicked)
it show me this :
25
18
X
{|| Alert( 'Non Persistentable Block.' ) }
what's mean 'Non Persistentable Block ?????
If you found asolution U're great
thanks in advance