zoomplus.bas

Powerbasic 对GDI 的操作 很漂亮的代码!

'+--------------------------------------------------------------------------+
'|                                ZoomPlus                                  |
'|                                                                          |
'|         Load large image using the GDImage zoom control feature.         |
'|                                                                          |
'+--------------------------------------------------------------------------+
'|                                                                          |
'|                         Author Patrice TERRIER                           |
'|                                                                          |
'|                           copyright (c) 2007                             |
'|                                                                          |
'|                Patrice Terrier http://www.zapsolution.com                |
'|                                                                          |
'+--------------------------------------------------------------------------+
'|                  Project started on : 08-07-2006 (MM-DD-YYYY)            |
'|                        Last revised : 04-11-2007 (MM-DD-YYYY)            |
'+--------------------------------------------------------------------------+

#COMPILE EXE "ZoomPlus.exe"

'-----------------------------------------------------------------
' Equates:  136
'-----------------------------------------------------------------
%CF_BITMAP                                      = 2
%WINAPI                                         = 1
%TRUE                                           = 1
%FALSE                                          = 0
%NULL                                           = 0
%WM_USER                                        = &H400
%LF_FACESIZE                                    = 32
%ERROR_ALREADY_EXISTS                           = 183
%HEAP_ZERO_MEMORY                               = &H00000008
%LR_LOADFROMFILE                                = &H0010
%DFC_BUTTON                                     = 4
%DFCS_BUTTONPUSH                                = &H0010
%DFCS_HOT                                       = &H00001000
%DFCS_FLAT                                      = &H00004000
%MAX_PATH                                       = 260  ' max. length of full pathname
%OUT_DEFAULT_PRECIS                             = 0
%DEFAULT_QUALITY                                = 0
%DEFAULT_PITCH                                  = 0
%DEFAULT_CHARSET                                = 1
%FF_DONTCARE                                    = 0    ' Don't care or don't know.
%TRANSPARENT                                    = 1
%NULL_BRUSH                                     = 5
%ANSI_VAR_FONT                                  = 12
%BDR_RAISEDOUTER                                = &H0001
%BDR_SUNKENOUTER                                = &H0002
%BDR_RAISEDINNER                                = &H0004
%BDR_SUNKENINNER                                = &H0008
%EDGE_RAISED                                    = %BDR_RAISEDOUTER OR %BDR_RAISEDINNER
%EDGE_SUNKEN                                    = %BDR_SUNKENOUTER OR %BDR_SUNKENINNER
%BF_LEFT                                        = &H0001
%BF_TOP                                         = &H0002
%BF_RIGHT                                       = &H0004
%BF_BOTTOM                                      = &H0008
%BF_RECT                                        = %BF_LEFT OR %BF_TOP OR %BF_RIGHT OR %BF_BOTTOM
%BF_MIDDLE                                      = &H00000800  '* Fill in the middle
%BF_SOFT                                        = &H00001000  '* For softer buttons
%BF_FLAT                                        = &H00004000  '* For flat rather than 3D borders
%SW_RESTORE                                     = 9
%VK_RETURN                                      = &H0D
%VK_SPACE                                       = &H20
%GWL_STYLE                                      = -16
%WM_CREATE                                      = &H1
%WM_DESTROY                                     = &H2
%WM_SIZE                                        = &H5
%WM_SETFOCUS                                    = &H7
%WM_KILLFOCUS                                   = &H8
%WM_ENABLE                                      = &HA
%WM_PAINT                                       = &HF
%WM_CLOSE                                       = &H10
%WM_ERASEBKGND                                  = &H14
%WM_SETCURSOR                                   = &H20
%WM_GETMINMAXINFO                               = &H24
%WM_SETFONT                                     = &H30
%WM_NOTIFY                                      = &H4E
%WM_GETDLGCODE                                  = &H087
%WM_KEYDOWN                                     = &H100
%WM_KEYUP                                       = &H101
%WM_CHAR                                        = &H102
%WM_COMMAND                                     = &H111
%WM_TIMER                                       = &H113
%WM_CTLCOLORSTATIC                              = &H138
%WM_MOUSEMOVE                                   = &H200
%WM_LBUTTONDOWN                                 = &H201
%WM_LBUTTONUP                                   = &H202
%WM_LBUTTONDBLCLK                               = &H203
%WM_MOVING                                      = &H216
%WM_MOUSELEAVE                                  = &H2A3
%WM_VSCROLL                                     = &H115
%SIZE_MINIMIZED                                 = 1
%TME_LEAVE                                      = &H00000002
%WS_OVERLAPPED                                  = &H0
%WS_POPUP                                       = &H80000000
%WS_CHILD                                       = &H40000000
%WS_VISIBLE                                     = &H10000000
%WS_CLIPSIBLINGS                                = &H04000000
%WS_CLIPCHILDREN                                = &H02000000
%WS_CAPTION                                     = &H00C00000  ' WS_BORDER OR WS_DLGFRAME
%WS_VSCROLL                                     = &H00200000
%WS_HSCROLL                                     = &H00100000
%WS_SYSMENU                                     = &H00080000
%WS_EX_TOOLWINDOW                               = &H00000080
%WS_THICKFRAME                                  = &H00040000
%WS_BORDER                                      = &H00800000
%WS_GROUP                                       = &H00020000
%WS_TABSTOP                                     = &H00010000
%WS_MINIMIZEBOX                                 = &H00020000
%WS_MAXIMIZEBOX                                 = &H00010000
%WS_OVERLAPPEDWINDOW                            = %WS_OVERLAPPED OR %WS_CAPTION OR %WS_SYSMENU OR %WS_THICKFRAME OR %WS_MINIMIZEBOX OR %WS_MAXIMIZEBOX
%WS_EX_TRANSPARENT                              = &H00000020
%WS_EX_WINDOWEDGE                               = &H00000100
%WS_EX_STATICEDGE                               = &H00020000
%WS_EX_APPWINDOW                                = &H00040000
%CS_VREDRAW                                     = &H1
%CS_HREDRAW                                     = &H2
%CS_DBLCLKS                                     = &H8
%CS_PUBLICCLASS                                 = &H00004000
%CS_GLOBALCLASS                                 = %CS_PUBLICCLASS
%PM_REMOVE                                      = &H0001
%CW_USEDEFAULT                                  = &H80000000&
%SM_CXSCREEN                                    = 0
%SM_CYSCREEN                                    = 1
%DT_LEFT                                        = &H0
%DT_CENTER                                      = &H1
%DT_RIGHT                                       = &H2
%DT_VCENTER                                     = &H4
%DT_SINGLELINE                                  = &H20
%DST_BITMAP                                     = &H00000004???
%COLOR_WINDOWTEXT                               = 8
%COLOR_BTNFACE                                  = 15
%COLOR_BTNSHADOW                                = 16
%COLOR_BTNTEXT                                  = 18
%COLOR_BTNHIGHLIGHT                             = 20
%COLOR_INFOTEXT                                 = 23
%COLOR_INFOBK                                   = 24
%COLOR_3DSHADOW                                 = %COLOR_BTNSHADOW
%COLOR_3DHILIGHT                                = %COLOR_BTNHIGHLIGHT
%IDC_ARROW                                      = 32512&
%IDC_WAIT                                       = 32514&
%BS_GROUPBOX                                    = &H7&
%BS_FLAT                                        = &H00008000&
%BN_CLICKED                                     = 0
%BST_PUSHED                                     = &H04
%SS_CENTER                                      = &H00000001
%SS_SUNKEN                                      = &H00001000
%DLGC_WANTALLKEYS                               = &H4    ' Control wants all keys
%DLGC_UNDEFPUSHBUTTON                           = &H20   ' Non-default pushbutton
%DLGC_BUTTON                                    = &H2000 ' Button item: can be checked
%DI_NORMAL                                      = &H0003
%IMAGE_BITMAP                                   = 0
%IMAGE_ICON                                     = 1
%TTS_ALWAYSTIP                                  = &H0001
%TTF_IDISHWND                                   = &H00000001
%TTF_SUBCLASS                                   = &H00000010
%TTM_ADDTOOL                                    = %WM_USER +  4
%TTM_UPDATETIPTEXT                              = %WM_USER + 12
%TTM_SETTIPBKCOLOR                              = %WM_USER + 19
%TTM_SETTIPTEXTCOLOR                            = %WM_USER + 20
%TTM_SETMAXTIPWIDTH                             = %WM_USER + 24
%SBARS_SIZEGRIP                                 = &H0100
%SBARS_TOOLTIPS                                 = &H0800
%TBS_VERT                                       = &H0002
%TBS_BOTH                                       = &H0008
%TBS_NOTICKS                                    = &H0010
%TBM_GETPOS                                     = %WM_USER
%TBM_SETPOS                                     = %WM_USER + 5
%TBM_SETRANGE                                   = %WM_USER + 6
%TBM_SETPAGESIZE                                = %WM_USER + 21

%SB_LINEUP        = 0
%SB_LINEDOWN      = 1
%SB_PAGEUP        = 2
%SB_PAGEDOWN      = 3
%SB_THUMBPOSITION = 4
%SB_THUMBTRACK    = 5
%SB_TOP           = 6
%SB_BOTTOM        = 7
%SB_ENDSCROLL     = 8

'-----------------------------------------------------------------
' TYPE and UNION structures:  11
'-----------------------------------------------------------------
TYPE RECT
  nLeft AS LONG
  nTop AS LONG
  nRight AS LONG
  nBottom AS LONG
END TYPE

TYPE TRACKMOUSEEVENTAPI