#include "FiveWin.ch"
function Main()
local oDlg, oScrollPanel
DEFINE DIALOG oDlg SIZE 520, 520 COLOR "W/RB"
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ( oScrollPanel := TScrollPanel():New( 20, 20, 500, 500, oDlg ),;
oScrollPanel:SetColor( "W/B" ),;
BuildPanel( oScrollPanel ), .T. )
return nil
function BuildPanel( oScrollPanel )
local cName := Space( 20 ), cSurName := Space( 20 )
@ 2, 2 GET cName OF oScrollPanel
@ 5, 2 GET cSurName OF oScrollPanel
oScrollPanel:SetRange()
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 33 guests