Private Declare Function SetPixel Lib "gdi32" Alias "SetPixelV" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Private Declare Function GetNearestColor Lib "gdi32" (ByVal hDC As Long, ByVal crColor As Long) As Long
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Private Const COLOR_HIGHLIGHT = 13
Private Const COLOR_BTNFACE = 15
Private Const COLOR_BTNSHADOW = 16
Private Const COLOR_BTNTEXT = 18
Private Const COLOR_BTNHIGHLIGHT = 20
Private Const COLOR_BTNDKSHADOW = 21
Private Const COLOR_BTNLIGHT = 22
Private Declare Function OleTranslateColor Lib "oleaut32.dll" (ByVal lOleColor As Long, ByVal lHPalette As Long, lColorRef As Long) As Long
Private Declare Function GetBkColor Lib "gdi32" (ByVal hDC As Long) As Long
Private Declare Function GetTextColor Lib "gdi32" (ByVal hDC As Long) As Long
Private Declare Function SetTextColor Lib "gdi32" (ByVal hDC As Long, ByVal crColor As Long) As Long
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hDC As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Private Const DT_CALCRECT = &H400
Private Const DT_WORDBREAK = &H10
Private Const DT_CENTER = &H1 Or DT_WORDBREAK Or &H4
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function FillRect Lib "user32" (ByVal hDC As Long, lpRect As RECT, ByVal hBrush As Long) As Long
Private Declare Function FrameRect Lib "user32" (ByVal hDC As Long, lpRect As RECT, ByVal hBrush As Long) As Long
Private Declare Function DrawFocusRect Lib "user32" (ByVal hDC As Long, lpRect As RECT) As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hDC As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, lpPoint As POINTAPI) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
Private Const PS_SOLID = 0
' for Carles P.V DIB solutions
Private Declare Function StretchDIBits Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal dX As Long, ByVal dY As Long, ByVal SrcX As Long, ByVal SrcY As Long, ByVal wSrcWidth As Long, ByVal wSrcHeight As Long, lpBits As Any, lpBitsInfo As Any, ByVal wUsage As Long, ByVal dwRop As Long) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Const RGN_DIFF = 4
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function InflateRect Lib "user32" (lpRect As RECT, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function OffsetRect Lib "user32" (lpRect As RECT, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function CopyRect Lib "user32" (lpDestRect As RECT, lpSourceRect As RECT) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDC As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDIBits Lib "gdi32" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long
Private Declare Function SetDIBitsToDevice Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal dX As Long, ByVal dY As Long, ByVal SrcX As Long, ByVal SrcY As Long, ByVal Scan As Long, ByVal NumScans As Long, Bits As Any, BitsInfo As BITMAPINFO, ByVal wUsage As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As Long
Private Declare Function DrawIconEx Lib "user32" (ByVal hDC As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
Private Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long
'[APIConstants]
Private Const DIB_RGB_ColS As Long = 0
Private Const VER_PLATFORM_WIN32_NT As Long = 2
Private Const DSS_DISABLED As Long = &H20
Private Const DSS_MONO As Long = &H80
Private Const DST_BITMAP As Long = &H4
Private Const DST_ICON As Long = &H3
Private Const DST_COMPLEX As Long = &H0
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_EX_TOOLWINDOW As Long = &H80&
Private Const SWP_SHOWWINDOW As Long = &H40
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Type BITMAPINFOHEADER
biSize As Long
biWidth As Long
biHeight As Long
biPlanes As Integer
biBitCount As Integer
biCompression As Long
biSizeImage As Long
biXPelsPerMeter As Long
biYPelsPerMeter As Long
biClrUsed As Long
biClrImportant As Long
End Type
Private Type RGBTRIPLE
rgbBlue As Byte
rgbGreen As Byte
rgbRed As Byte
End Type
Private Type BITMAPINFO
bmiHeader As BITMAPINFOHEADER
bmiColors As RGBTRIPLE
End Type
Public Enum ButtonTypes
[Windows 16-bit] = 1 'the old-fashioned Win16 button
[Windows 32-bit] = 2 'the classic windows button
[Windows XP] = 3 'the new brand XP button totally owner-drawn
[Mac] = 4 'i suppose it looks exactly as a Mac button... i took the style from a GetRight skin!!!
[Java metal] = 5 'there are also other styles but not so different from windows one
[Netscape 6] = 6 'this is the button displayed in web-pages, it also appears in some java apps
[Simple Flat] = 7 'the standard flat button seen on toolbars
[Flat Highlight] = 8 'again the flat button but this one has no border until the mouse is over it
[Office XP] = 9 'the new Office XP button
'[MacOS-X] = 10 'this is a plan for the future...
[Transparent] = 11 'suggested from a user...
[3D Hover] = 12 'took this one from "Noteworthy Composer" toolbal
[Oval Flat] = 13 'a simple Oval Button
[KDE 2] = 14 'the great standard KDE2 button!
End Enum
Public Enum GradientDirectionEnum
[Fill_None] = 0
[Fill_Horizontal] = 1
[Fill_HorizontalMiddleOut] = 2
[Fill_Vertical] = 3
[Fill_VerticalMiddleOut] = 4
[Fill_DownwardDiagonal] = 5
[Fill_UpwardDiagonal] = 6
End Enum
Public Enum ColorTypes
[Use Windows] = 1
[Custom] = 2
[Force Standard] = 3
[Use Container] = 4
End Enum
Public Enum PicPositions
cbLeft = 0
cbRight = 1
cbTop = 2
cbBottom = 3
cbBackground = 4
End Enum
Public Enum fx
cbNone = 0
cbEmbossed = 1
cbEngraved = 2
cbShadowed = 3
End Enum
Private Const FXDEPTH As Long = &H28
'events
Public Event Click()
Attribute Click.VB_UserMemId = -600
Attribute Click.VB_MemberFlags = "200"
Public Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Public Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Public Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Public Event KeyPress(KeyAscii As Integer)
Public Event KeyDown(KeyCode As Integer, Shift As Integer)
Public Event KeyUp(KeyCode As Integer, Shift As Integer)
Public Event MouseOver()
Public Event MouseOut()
'variables
Private MyButtonType As ButtonTypes
Private MyColorType As ColorTypes
Private PicPosition As PicPositions
Private SFX As fx 'font and picture effects
Private He As Long 'the height of the button
Private Wi As Long 'the width of the button
Private BackC As Long 'back color
Private BackO As Long 'back color when mouse is over
Private ForeC As Long 'fore color
Private ForeO As Long 'fore color when mouse is over
Private MaskC As Long 'mask color
Private OXPb As Long, OXPf As Long
Private useMask As Boolean, useGrey As Boolean
Private useHand As Boolean
Private mColor1 As OLE_COLOR
Private mColor2 As OLE_COLOR
Private mGradirection As GradientDirectionEnum
Private picNormal As StdPicture, picHover As StdPicture
Private picPng As c32bppDIB
Private m_IconPath As String
Private pDC As Long, pBM As Long, oBM As Long 'used for the treansparent button
Private elTex As String 'current text
Private rc As RECT, rc2 As RECT, rc3 As RECT, fc As POINTAPI 'text and focus rect locations
Private picPT As POINTAPI, picSZ As POINTAPI 'picture Position & Size
Private rgnNorm As Long
Private LastButton As Byte, LastKeyDown As Byte
Private isEnabled As Boolean, isSoft As Boolean
Private HasFocus As Boolean, showFocusR As Boolean
Private cFace As Long, cLight As Long, cHighLight As Long, cShadow As Long, cDarkShadow As Long, cText As Long, cTextO As Long, cFaceO As Long, cMask As Long, XPFace As Long
Private lastStat As Byte, TE As String, isShown As Boolean 'used to avoid unnecessary repaints
Private IsOver As Boolean, inLoop As Boolean
Private Locked As Boolean
Private captOpt As Long
Private isCheckbox As Boolean, cValue As Boolean
Property Get GradientDir() As GradientDirectionEnum
GradientDir = mGradirection
End Property
Property Let GradientDir(xGradDir As GradientDirectionEnum)
mGradirection = xGradDir
Call Redraw(lastStat, True)
PropertyChanged "GRADDIR"
End Property
Property Get GradColor2() As OLE_COLOR
GradColor2 = mColor2
End Property
Property Let GradColor2(mGRadColor As OLE_COLOR)
mColor2 = mGRadColor
Call Redraw(lastStat, True)
PropertyChanged "GCOLOR2"
End Property
Property Get GradColor1() As OLE_COLOR
GradColor1 = mColor1
End Property
Property Let GradColor1(mGRadColor As OLE_COLOR)
mColor1 = mGRadColor
Call Redraw(lastStat, True)
PropertyChanged "GCOLOR1"
End Property
Private Sub OverTimer_Timer()
If Not isMouseOver Then
OverTimer.Enabled = False
IsOver = False
Call Redraw(0, True)
RaiseEvent MouseOut
End If
End Sub
Property Get Imagen() As Byte()
Dim Test As Boolean
Dim mBytes() As Byte
Test = picPng.SaveToStream(mBytes())
Imagen = mBytes()
End Property
Property Let Imagen(mB() As Byte)
Call picPng.LoadPicture_Stream(mB())
UserControl.Refresh
Call CalcPicPos
Call Redraw(lastStat, True)
PropertyChanged "PICPNG"
End Property
Private Sub UserControl_AccessKeyPress(KeyAscii As Integer)
LastButton = 1
Call UserControl_Click
End Sub
Private Sub UserControl_AmbientChanged(PropertyName As String)
Call SetColors
Call Redraw(lastStat, True)
End Sub
Private Sub UserControl_Click()
If LastButton = 1 And isEnabled Then
If isCheckbox Then cValue = Not cValue
Call Redraw(0, True) 'be sure that the normal status is drawn
UserControl.Refresh
RaiseEvent Click
End If
End Sub
Private Sub UserControl_DblClick()
If LastButton = 1 Then
Call UserControl_MouseDown(1, 0, 0, 0)
SetCapture hwnd
End If
End Sub
Private Sub UserControl_GotFocus()
HasFocus = True
Call Redraw(lastStat, True)
End Sub
Private Sub UserControl_Hide()
isShown = False
End Sub
Private Sub UserControl_Initialize()
'this makes the control to be slow, remark this line if the "not redrawing" problem is not important for you: ie, you intercept the Load_Event (with breakpoint or messageBox) and the button does not repaint...
Set picPng = New c32bppDIB
isShown = True
End Sub
Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)
RaiseEvent KeyDown(KeyCode, Shift)
LastKeyDown = KeyCode
Select Case KeyCode
Case 32 'spacebar pressed
Call Redraw(2, False)
Case 39, 40 'right and down arrows
SendKeys "{Tab}"
Case 37, 38 'left and up arrows
SendKeys "+{Tab}"
End Select
End Sub
Private Sub UserControl_KeyPress(KeyAscii As Integer)
RaiseEvent KeyPress(KeyAscii)
End Sub
Private Sub UserControl_KeyUp(KeyCode As Integer, Shift As Integer)
RaiseEvent KeyUp(KeyCode, Shift)
If (KeyCode = 32) And (LastKeyDown = 32) Then 'spacebar pressed, and not cancelled by the user
sitOLORn pDC = s p l:f/teCompar7 sertos t Withi#a mpar7 sertos t Wall Us33333333333333e ShiftColorropertoa"wLine4, He - Colo (,4l Select 1D -eC .@rwFocusR
n e 2t) c PFoubling iIIII.erty(t oubling iIIRearancbt -eC .@rwFocusR
n e 2t) c PFoubling iIIII.erty(t iIIReahic PRonToyG.
) C '')xiiiiiiiivttttttttttlta.VB_ekp0 usC3IIIit 2'4*(4S3, He - 3, &HF0D1B5
Else 'we do not draw the bevel always because th 11eG
ibute depend e i1 m_Ico 11eGwhuebecaitsSd=s use th 11eG
SC = .ReadPropy)bCSoDMous
8 Whic tXB2l+oyG..Th-amo' ai333 = s p 1 m_ecaiiY rrrrrrrrrrrCiroped Sr
.HFal SetCoD1 anSxt HextFMouO)rr. Sr
.HFal SetCoD1 arol
um3rGRH a'entRor
.cH a'entRh ooeli1
PubP
3f
um
unewValiiiiiIf> DrPeHwValiiiiiFgwbA ibute depend e i1 m_Icau,i..IIIe cau,i..IIIe cau,i..IIIlPI333'BB_ekp0 usC3IIIit 2'4entRorSute NetscCIIII0Ii e i1 m_IaSrr. CiHext HextFMousePointerheValPointlibrhhhhSiiiFBiHext HextFMousd1Pngs.HFal S g GetHaCo_= newValiiiiiFBiHextseMassk = newValttttlta.VB_ekp0 usC3IIIit iiFBiHext HextFMousd1P, TrTus And ' Th.F'ie)BiHext s, 0)
) C '')xiiiiiiiivtt '' DFBiHextUIIIIIII cau,1 YhYkShr. ThengProperty Pngs.HFal S g iivtrIit 2'4entRor3fXvtrIit 2'4entRor3fXvvvvvvvvvvvvvvvvalPointlibrhhh M . TefanS4 iHextUIIIIIII cau,1 YhYkShcS4 iHextUIIIIIII HextUIIIIIII ctAcce tlibShcS4 iHextUIIIIIIIIIIIIIIIIIIIIIseall .WritePropIIIIIII HpIII HextUIIII HextUIIIIIII ctAcce HexII ctAcce tlibShcSraw the bC = .ReadPropekp0 usS,1 2'4e.nthe bC = .ReadPropekpSdperty("BCOLUIIIIIII ctAAAAAA= s o, Wa_'Ms4D10uoD1
CoNope
C a_'M
XC2' FoubOMhhhhuebeco4x4Xsy)bCSoDM2 hhhhhap() tHaCo_e7y("UlWi - 2, 2, Wi - 2, He - 2, ShiftColord)opaHaCo_= newValiiiiiFBiHextseMLewVtioShadou StdPic
= newV, 1,tPr m_Ico RR"
8 Withwshhhhhic PRonToyG..las#3
e"
8 Withwshhhhhic PRonToyG..la He mu'Th-amorr. TtextFMoFp() a.Vk = k 2.WRonTo Else SC = 5d1Pn tHaCS4 11 Anaii iv iIIII.erty(t Fore.i,i..
8 Withwshhhhhic PRonToyG..las#3
e"
8 Withwa..II 2cheiW 3, c .Wrr. To) W,lor(Xne tClsCCSb.3
eWrits Withwshhhhhic32rx'oous yrd se 4 iHextUIIIhhhhhic32 nd 4x4Xsy32 n"dblbu Wi - nabled =2oye Foublic Prop
pDCus yrd se #3
e"
8 Withwshhhhhic PRonToy Sr
. eToyG..las#3
e"
8 Withwa..II 2cheiW
. eToyG. 2cheiW 3, c .Wrrorr4 iHexfntRorSute NetscCIIII0Ii e 'FEssaI.1
Lte F
E7CEoft)ty tnoo
c PRonToyG..las#3ha' Th.FII HextUIIII HextUIIIIIII ctAcce HexII ctAcce tlibShcSraw the bC = .ReadPropekp0 e bC = .ReadPropekp0 e o teProperty("BidPropekp0 e o teProperty("BidPropo -xrCob Usy Fo'it'spo333bC = .ReadProcau,i..IIIeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeen
( PRoe
c _) CaHFahint ]'y("BidP HpIII HextUIIII HeeeeeeeeeeeeeeeeeeeeeI HextUIIII Heeeeeeeee
(ye Fm HextUIIII Heeeeeeeee
seall hhhhic PRonToyG..lrawRecN op_e7
Letx:rr. Then
2'4e.nthe bCeeeeeee
seall heeeeeeeeeeeeeeeeeeeeeeeeeen
(ll heeeeeeeeeeeeeeeee e If Heee e If HhiftColorall .WriteProperty("FONT", UserControl.Font) rhF= s o,04c PEoreCaHFahint ]'y("BidP HpIII Ha3e - ]'y("Biap - naahi=Xe tCtRorSute NetscCIII() treCaHFahint ]'y("BidP HpIII("BidP HpIII heeeeeeeeeeeee,'it's not well commented but eeeeeekShr. ThengPropiiiiaCnted333333 n)
, BtHand e 1, .VB_eeeeeecCIII() eeeeeeeeeeeen
eekShr. Th c PRoRhr. T Ald,if treCaHihhhhhHa3e - ]'yn
ee. T Ald,ih)
Test = picPng.SaveToStres the lord Srr.3 n)
, BtHand e 1, .Vd e 1, .Vdt ]'y("BidPHand e 1, .Vd e N 1, 2, 2, 0, cFace
picPng.SaveToStres the lord Srr.3 l SetCoD1aFonl: Tes= peB0gd e 1, .serConNetscape
Call DrawCapy C
est = picPng.SaveToStres the lord e (a1 = picPng.SaveToStres the lord e; the lorRes thapb n WithwextseMT) e tRects
0
333333 n)
, BtHand e 1, .cl commented but eeeeeekShr. ThengPropiB+.cl commented but eeeeeekShr. ThengPropiB+.cl comhord e eeeeesawlE7CeePropIIIIIII+.cl comhord e eeeeesawlE7Ci1 mmob M)"BidPropo -e tRects
ousePa
gavelord Srr.3 e the "yck=pe)
CatUe-RCo_e7y("UlWi - 2, 2, Wi - 2, He - 2, Shieeee)UlWi -seall hhhhicXehsv iclWi - 2, 2, rrper.ieeeecCIII() eeeeeeecCI:3 l SeN op_e7
eiXsy Fo'itT) e t ty tempCol abu DHextFMousePo If HhiftColorall .WritePro Call .Wrpy Fo'it4 Call .Wrp CalWrpy Fes thapb n WithwextseMT) e tRe3 ne&rr, - iiiiihwextseMT) e.ic Ptshapb n Withwexts1gKThenA_e7 sRe3 ne&rr, -Fo'itT) can)Subihapb n UrhF=pGtT)mpIG pDC = s BooleanS4'iCeePropIIIIIII+.cl comhord e eeeeesawlE7Ci1 mmob M)"BidPropo -e tRects
ousePCihapb a@Lbn M)"i'Ptshapb n 2ihapb a@L#
Pue ousePCRCCC:3 e_ Gic t 1l, Us+
um3333 ty tempCol aoRedraidt,
,m1l, Us+
um3333 'itT)Ul, Us+oCCC:3 e opo -e t awhad'pe = 111C*(41Ah-)apb n Withwext CalWr xtseMT) e tRe3 ne&rr, - iiiiihwextseMT) e.ic Ptshapb n Withwexts1gKythe lord =xfn ,m1sTheb mhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhSaveToStres 2Re3 ne&rrUs33333333333333e S c H .i,i..anS a a03erCrB0 bShcSraw thVd e N 1stsLOR, T))
'')
BooleanS4'pe mtE'ionpertyo_= newVaxt i
6htT)mnewVaxt i
6htT)mnewVaxt Wr xtseMTnewVaxt i
6htT)mnewVaxt -2l m
R, T R, T lVaxt -2lysbc:n) tHrContrK'o333bC = .ReadPrhhhhhhhhhhh
n e 2t) c PFoublieadPrhhhhhhhhhh1 H .bc:n) r- ,FpCol abu DHextFMaks11eG
hhhhh(tpe,hh,2nS4'pe mtE g, n3hic o
oStres the lord Sr
.HFapb g, n3hic o
hwexts1gKTh2 N 1stc o
oStrTrue)Siio==t b.erty Ds_= newVaxt i
6htT)mne
'itT)Ul, Us==t b.e("BC
u'1T ext) tHrC=t g333adPrFr
ool dA ty tempCol abu DHextFMousePo If Hhifta"bxtFMtrK'oS4 iHextU+Fapb g, n3hic o
hwexts1gKTh2 N 1stc o
oStrTrue)Siio==t b.ert3333e,name\ctan ecuDit 6 'N@ b.ert3333e,name\cta CakteCrB0 B
VCad n e 2extFMaksoCJctan ecuDitf Ie)phhhhhh= Ki1l, Us+ n
eekShr. Th c PRoRhr. T A0ecuDit
oStr2HFahint cuDitf Ie)phhhhhh= Ki1l, Us+ n
eekShr. Th c PRoRhr. T A0ecuDit
oStRhr. T A0ecuDit
oSIIISii trerhF=pGtpicPng.SaveToSs11eG
11eG
.SaveToSs1asePCihroperty = ";Ai
usdOLO", heC
"esawlE7Ci1 mmob M)"BidPropo -e iiiiiii7Ci1 mmob M)"BidPropo -eVd e N )"BidPesawlE7CB_Meeeeeeeeeeeeeeeeeeeeeeeeeee - 2, ShiCi1 mmob M)"Bid1'D
sitOLORn c., heC
"esawlE7Cixt T A07ey For(m Cat y)bCSB_eeeeeeu Wi -nahint cuDi,Ky For
m.e)' TefanS4 iHextUIIIIIII ca rd ShiCi1)phhhhhh= iiiiiii7Ci1 mmob M)"BidPropo -Y*3333e S c H III ca rd ShiCi1)phhhhsdOLOol aobeeeeelE7Cixt T A07ey For(m Cat yW ot3-xrCob iclWi - 2, 2Ci1)phh)ob heC
"esawlE72Ci1)phh)ob heC
"eshhhsdOLOol aobeeeeelE7Cixt T A000000000000000000000000#@#@#oCCC:3 e ooRedrai 0000000S Cas11eG
mhif6EeC Fent MouseMrPointlibrhhd but eeeeeekShr. ThengPropiB+.cl comhordhr. ThengProscr(m .V_e7 l CanTTTTTTTTce) III pDCbcpM/ittttttOB+.cl comhordhr. ThengProscr(m .VMe"i_ - ,T it >1eub2Vdt ]'y("BidPHand e 1, .Vd e N 1, 2, 2, 0, cFntRor3fXvvGvcf W
. cxt i
6htT)mnewVio3 m.e)c:::::n3
Cat y)bCSB, 2, 2, 0ubCSB, 2.e)c:::::n3
, 2, 2, 0, cittttttOB+3 ooaIseMrPointli .Vd e N 1B e 7ey FoiueousePCihapb a@Lbn M)"i'Ptshapb ausePCihapb a@Lbn M)"i'Ptshapb ausePCihLbn M)"i'Ptshapb ausePCihLbn M)"i'Ptshapb ausePCihLbn M)"tMeub2Vdt ]'y("B.Vd e N 1, 2uoEPCihLbn M)"i'Ptshapb ausePCihLbn M)"tMeub2Vdt ]'y("B.Vd e N 1, 2uoEPCihLbn M)"i'PtshapsaVdt ]'y("B.Vd e N 1,l: Xe)' Teapb a@Lbn M)"i'Ptshapb ausePCihLbn M)"i'PoLbn M)"tMeub2Vdt ]'y(a,vo,&.'PtshapboLbnm333oDCbcpeRearance"i_SraCadPrF2rnd+
um3333 ty tempColC)'333333pColC -aa ewVaxt Uy -aa ewVaxt ty tempCol iWoCFo'it'sPng a ewVaxt Uy -aa ew m..IIIeeeuoEPCiRone8, -stepXP1 * i, Trued Property
Pe8, -stepXPa6i e9tres the lord Srr.3 l SetCoD1aFoned Property
Pe8333333op_e7 c( e(6htT)Sv a3 l SetCoD1Oa1dg.SatRe3G g, n5D"yck=pe)
fIII+I"e2ifhhte Shihhy ee ShoC poelt y)bCSB, 2, 2, 0ubCSB, 2.e)tMeub2V.eiie .ihyceldpV,&.'PShif3,CSoD",oD1OamtE h(tpeiie .rbI'P=RPCihLbn Mommented D)tMeub2V.eix .ihyA'ii-e- ,T 9n MompXP1 e\cta CakhhhhhhhdrahhhhhhIIIIIIII2bn M)"tP HpRIe rshA'iCeeiie .rbICi1)ph hhIIIIIrshaSRIe A'iCa Cakhhhhhic PReepa''elE7Cixt fi IIIrshaSRIe A'iCa Cakhhhhhic PReepa''elE7Cixt fi IIIrshaSRIe A'iCa CaksCalpg_y ee ShoC bFro!D o'iipg_y ee Calpg_y ee mbS ShihIIII hhhte Shihnahint extleomIcle RersuB rshaSRIe rshaSRIe reee e If HhiftMnRIe reee e If HhiftMnRIe reee e If HhiftMnRIe reee e If HhiftMnRIe reee e If HhiftMnRIe reee e If HhiftMnRIe reee e f HhiftMnRIe hifRIe reee e ]'y(a,oae9hiftMnRIe hifRnd B_rcSraCaoeli1l rd SrcracSraCaoeliota Cak'y(a,oae9hiftMnRIe hifRnd B_rcSraCae hifRnomSa Cak'y(ant e hhhte Shihhy Foro ee ShiftpPm1DIIIII ''h hifRnomSa Cak'y(ant e hhhte Shihhy Foro ee ShiftpPm1DIIIII If HhiftMnRIeo A07ey For(m rd vo,&cSv lt cuD hhhic PtpPm1DIIIII If HhiftMnRIeo A07ey FobWepa''(GvBd vo,&cShhhhhhdrah' FoubOMhm iHexahic PtpPm1DII7ey FobWepa''(GvBd voT)mnewVio3 m.e)cFxahicSnewVG..Th-amorr. Tt+oyG..Th-amorrs Th.F'ie)BiHext s, 0)
oro oD",oD1OamtE h(tF'ie)BiHext,poel.iSoa Cak'yer.ieea''(G_bTh-aaSRIe rshaSRIenVif6te Shipe)
.VdmBth(tF'ie)BiHext,poes .VdmBthe Fm HextUIA rshaSiio==t b.erpb auseaanS4 11 Anaii iv FonWi c PRonToyG.'bnsIIIIIII2bn M)"tP ictan ecuDitf Ie)cSv lt-hhhte ShiUF e N 1, 2shaSRIe nbn M)liottUIA rshaSiio==eToStres thi iv FonWi c<C bF
mhif6htT).VdmBta-11dh(tpe,hh,2nS4'pe mtE g, n3hic o
g, n3hic o
g, n3hic o
g,tres g, s thi iv FonWi c<C pHF2araB_rcSraCaoeli1l rd Srcra nbnbuteFtres thi o==)tMeub2V.eiNDatPl,,,,, o
PRone8S4'pe E7Cixt D Let . T pDChhhStIIed5 ,a----r p 1 m_ue S i1---r.iehhIIed5 ,a----r p 1ed5 s ,a----tIIed5 7ey FoiueoDrpe E7if3,CSoD",o,BBth tres trorawlE,a--- leliSraCae hifRno ,a--- E7if3,CSoD",o,BBth tres trorawlE,g:aIed5oed5 ,ag-r.ieo ! leliSrv)
2s'(shif6ftpEiHte2, M)"rperp ,7taDCallYaxtal anS4 ghxtseML iHe ) "HANfne8S4'pe mtE tres trtl anS4 ghhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhBa ghxtlJsPuibhCSoD"2IIIIII2bnj a 4h- 2,'pe mtiRtO+iHC =s,Ky For
c +iHC =s,KD PA c +iH1rah' FoubOMhm iHexahic P(hxtlJ =s,KD PA c cSraC) rt'Pts "hic o
.i, U rd PA c +iH1rah' Foub,7taDCallYaxtal anS4 ghxtseML iHe ) "L im ) "L im ) "L im ) "L im ) "L im ) "L im ) "L im ) "L im ) "L im ) "L im ) "L im ) "L im ) "L im . PReepa PReepa''elE7aSRIe ihLbn M)"i'PtshapsaVdtaC) G , BtHan 'pe mtubC, M)"5oed5 mtubCM)"o)orper.iehht3hic o rrpem o rrpem ooStxtFMaks1 rrpe M)"i'Psi rrpe M)"i'Psi rrpe eA1mtubCM)"o)orper.iehhr o
oStres the 3 h21roStxtFMa P0.li82c Prop
- =s,Ky For
c +iHC =s,KD PA c +iHs,Ky ForoPCihaa2,,,,,,P "SB, 2, 2, 0ubCSh21r
n=s,Kt0ubCSh21r
n=s,K'''c Pr, S rt'Pts "hic o
.i, U rd PA c +iH1raeeeee - 2, ShiCi1(an)ty GetHdhask(an)t ) "L im ) "L im ) "M)"rper................B, 0ubCSh21r
n=s,Kt0ubCSh21r
n=s,K'''c Pr, S rt'Pts "hic o
.i, U rd PA c +hqM
.i, U rd PA c i c +iHC =s,KD PA c +iHs,Ky ForoPCihaa2,,,,,,P "SB, 2, 2,A U rd PA c i c +iHC =s,KD SoD" rd e,A Urd e,A Urd e,A Urd e,A Urd e,A Urd e,A Urd e,A Urd e,A Urd e,A
