Test scroll

[Silvio]

Imust show a big Image
I must use vertical scroll
Have you an sample test to make it ?

Regards
Silvio

[E. Bartzokas]

Imust show a big Image
I must use vertical scroll
Have you an sample test to make it ?

Regards
Silvio

Sylivio,
Seems simle...
In the .RC file...

Code: Select all  Expand view

FISH DIALOG LOADONCALL MOVEABLE DISCARDABLE 9, 19, 178, 117
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Fishes DataBase"
BEGIN
   CONTROL "TBitmap", 110, "TBitmap", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 23, 7, 83, 55
   PUSHBUTTON "&Previous", 120, 5, 98, 43, 13
   PUSHBUTTON "&Next", 130, 66, 98, 43, 13
   PUSHBUTTON "&End", 2, 129, 98, 43, 13
   EDITTEXT 111, 124, 51, 40, 12
   EDITTEXT 112, 124, 69, 40, 12
END


In the .PRG file... (from TESTBMP.PRG modified by me)

Code: Select all  Expand view

Function DlgFish()

   local oDlg
   local n := 1
   local bmpFish
   local a, b

   a := Space(8)
   b := 0


   DEFINE DIALOG oDlg NAME "Fish"

   *        BITMAP
   REDEFINE bitmap bmpFish ID 110 OF oDlg NAME "Fish1" SCROLL  ;
      on click ;
      ( hf := GetFocus(),;
        SetFocus(bmpFish),;
      msginfo('Hello...'+CRLF+ "Your values are:"+CRLF+;
              'Variable a: '+ oa:ctext +CRLF+;
              'Variable b: '+ cvaltochar(ob:ctext)),;
        SetFocus(hf))


   bmpFish:bLDblClick = { | nRow, nCol, nFlags | ;
                          MsgInfo( "DblClick on the bitmap" ) }

   REDEFINE BUTTON ID 120 OF oDlg ;
      ACTION If( n > 1, bmpFish:SetBMP( "Fish" + AllTrim( Str( --n ) ) ), ;
                        Tone( 956, 2 ) )
   
   redefine get oa var a picture '@!' id 111 of oDlg

   redefine get ob var b picture '99999' id 112 of oDlg

   REDEFINE BUTTON ID 130 OF oDlg ;
      ACTION If( n < 6, bmpFish:SetBMP( "Fish" + AllTrim( Str( ++n ) ) ), ;
                        Tone( 956, 2 ) )


   ACTIVATE DIALOG oDlg CENTERED
   
return nil



[Silvio]

I sent you a message private. thank