METHOD Edit(...) CLASS TDataRow
...
DEFINE DIALOG oDlg SIZE 800,500 PIXEL FONT oFont TITLE cTitle
oPanel := TScrollPanel():New( 20, 20, 200, 360, oDlg, .t. )
...
oDlg:bResized := { || DlgResize( oDlg, oPanel ) }
oDlg:bOnDisplayChange := { | o, n, w, h | AdjustToDisplay( o,n,w,h,oPanel ) }
...
oDlg:bInit := <||
oRec:PlaceControls( oPanel, ... )
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 90 guests