fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added new properties Top, Left, Height and Width.

Browse Source
This commit is contained in:
Antonio Linares
2001-09-05 04:43:16 +00:00
parent 26e0311f07
commit 5a1f62c3b4
1 changed files with 15 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
harbour/contrib/hgf/win32/tform.prg
View File

@@ -75,12 +75,23 @@ CLASS TForm FROM TPersistent
METHOD HandleEvent( nMsg, nParam1, nParam2 )
METHOD ShowModal()
METHOD Caption() INLINE WinGetText( ::hWnd ) PROPERTY
ACCESS Caption() INLINE WinGetText( ::hWnd ) PROPERTY
ASSIGN Caption( cNewCaption ) INLINE ;
WinSetWindowText( ::hWnd, cNewCaption )
METHOD Menu() INLINE ::oMainMenu PROPERTY
ACCESS Top() INLINE WinGetTop( ::hWnd ) PROPERTY
ASSIGN Top( nNewTop ) INLINE WinSetTop( ::hWnd, nNewTop )
ACCESS Left() INLINE WinGetLeft( ::hWnd ) PROPERTY
ASSIGN Left( nNewLeft ) INLINE WinSetLeft( ::hWnd, nNewLeft )
ACCESS Height() INLINE WinGetHeight( ::hWnd ) PROPERTY
ASSIGN Height( nNewHeight ) INLINE WinSetHeight( ::hWnd, nNewHeight )
ACCESS Width() INLINE WinGetWidth( ::hWnd ) PROPERTY
ASSIGN Width( nNewWidth ) INLINE WinSetWidth( ::hWnd, nNewWidth )
ACCESS Menu() INLINE ::oMainMenu PROPERTY
ASSIGN Menu( oNewMenu )
ENDCLASS
@@ -134,7 +145,7 @@ return nil
METHOD ShowModal() CLASS TForm
HB_PM_ShowModal( ::hWnd )
HB_FormShowModal( ::hWnd )
return nil