Update of /cvsroot/win32forth/win32forth/apps/ProMgr
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23478/apps/ProMgr
Modified Files:
ProjectManager.f
Log Message:
- Changed the TreeViewControl to use the control class as the base class.
- Moved some methods from the ProjectTreeViewControl into the TreeViewControl class.
- Changed the TreeViewControl to use SendMessage:self and SendMessage:selfdrop
- AutoSize: method added to the control and the child-window class.
Index: ProjectManager.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/ProjectManager.f,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** ProjectManager.f 11 Jan 2006 17:45:19 -0000 1.12
--- ProjectManager.f 11 Jun 2006 07:37:26 -0000 1.13
***************
*** 428,472 ****
:Object TheProject <super TreeViewControl
- : SendMessage ( lParam wParam message -- result ) hWnd Call SendMessage ;
- : SendMessageDrop ( lParam wParam message -- ) SendMessage drop ;
-
- :M InsertItem: ( -- hItem ) tvins 0 TVM_INSERTITEM SendMessage ;M
- :M SetImageList: ( himl iImage -- ) TVM_SETIMAGELIST SendMessageDrop ;M
- :M DeleteItem: ( hItem -- f ) 0 TVM_DELETEITEM SendMessage ;M
- :M SetItem: ( -- ) tvitem 0 TVM_SETITEM SendMessageDrop ;M
- :M Expand: ( hItem f -- ) TVM_EXPAND SendMessageDrop ;M
- \ :M ToggleExpandItem: ( hItem -- ) TVE_TOGGLE Expand: self ;M
- :M CollapseReset: ( hItem -- ) TVE_COLLAPSERESET TVE_COLLAPSE or Expand: self ;M
- :M GetItemRect: ( hItem -- f ) ItemRect ! ItemRect true TVM_GETITEMRECT SendMessage ;M
- :M SelectItem: ( hItem -- ) TVGN_CARET TVM_SELECTITEM SendMessageDrop ;M
- :M GetNextItem: ( hItem -- h ) TVM_GETNEXTITEM SendMessage ;M
- :M GetRoot: ( -- hItem ) 0 TVGN_ROOT GetNextItem: self ;M
- :M GetChild: ( hItem -- hItem ) TVGN_CHILD GetNextItem: self ;M
- :M GetParentItem: ( hItem -- hItem ) TVGN_PARENT GetNextItem: self ;M
- :M GetNext: ( hItem -- hItem ) TVGN_NEXT GetNextItem: self ;M
- :M GetPrevious: ( hItem -- hItem ) TVGN_PREVIOUS GetNextItem: self ;M
- int maxwidth
- : ItemWidthMax ( hItem -- hItem )
- dup GetItemRect: self IF right: ItemRect maxwidth max to maxwidth THEN ;
-
- :M GetMaxWidth: ( -- n )
- 0 to MaxWidth
- GetRoot: self
- ItemWidthMax
- GetChild: self
- Begin dup dup
- While
- ItemWidthMax
- GetChild: self
- Begin dup
- While
- ItemWidthMax
- GetNext: self
- Repeat drop
- GetNext: self
- Repeat drop drop
- MaxWidth
- ;M
-
File ProjectFile
load-bitmap imagelist "treeimages.bmp"
--- 428,431 ----
***************
*** 974,978 ****
0 0 GetSize: self Move: HtmlBox
then ;
!
: Start-BinaryBox ( -- )
GetHandle: BinaryBox 0=
--- 933,937 ----
0 0 GetSize: self Move: HtmlBox
then ;
!
: Start-BinaryBox ( -- )
GetHandle: BinaryBox 0=
***************
*** 1047,1051 ****
:M Close: ( -- )
Close-Viewers ;M
!
;Object
--- 1006,1010 ----
:M Close: ( -- )
Close-Viewers ;M
!
;Object
***************
*** 1259,1263 ****
ProjectManager SaveSettings
false promgr-started
! SaveRecentFiles
SaveRecentFiles
MenuHandle: CurrentMenu ?dup
--- 1218,1222 ----
ProjectManager SaveSettings
false promgr-started
! SaveRecentFiles
SaveRecentFiles
MenuHandle: CurrentMenu ?dup
|
