home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / TitelBar_V21653110162009.psc / TitelBar.ctl < prev   
Text File  |  2009-10-15  |  27KB  |  862 lines
  1. VERSION 5.00
  2. Begin VB.UserControl TitelBar 
  3.    Alignable       =   -1  'True
  4.    ClientHeight    =   4740
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   8340
  8.    BeginProperty Font 
  9.       Name            =   "Tahoma"
  10.       Size            =   14.25
  11.       Charset         =   0
  12.       Weight          =   400
  13.       Underline       =   0   'False
  14.       Italic          =   0   'False
  15.       Strikethrough   =   0   'False
  16.    EndProperty
  17.    ScaleHeight     =   316
  18.    ScaleMode       =   3  'Pixel
  19.    ScaleWidth      =   556
  20.    ToolboxBitmap   =   "TitelBar.ctx":0000
  21.    Begin VB.Timer Timer1 
  22.       Enabled         =   0   'False
  23.       Interval        =   25
  24.       Left            =   1800
  25.       Top             =   180
  26.    End
  27.    Begin VB.PictureBox Image1 
  28.       AutoSize        =   -1  'True
  29.       BorderStyle     =   0  'None
  30.       Height          =   420
  31.       Left            =   0
  32.       ScaleHeight     =   28
  33.       ScaleMode       =   3  'Pixel
  34.       ScaleWidth      =   46
  35.       TabIndex        =   0
  36.       Top             =   0
  37.       Visible         =   0   'False
  38.       Width           =   690
  39.    End
  40.    Begin VB.Image TBARMax 
  41.       Height          =   240
  42.       Left            =   4005
  43.       Top             =   90
  44.       Width           =   240
  45.    End
  46.    Begin VB.Image imgMax 
  47.       Height          =   210
  48.       Index           =   23
  49.       Left            =   6930
  50.       Picture         =   "TitelBar.ctx":0312
  51.       Top             =   1845
  52.       Visible         =   0   'False
  53.       Width           =   300
  54.    End
  55.    Begin VB.Image imgMax 
  56.       Height          =   210
  57.       Index           =   22
  58.       Left            =   6930
  59.       Picture         =   "TitelBar.ctx":06DC
  60.       Top             =   1305
  61.       Visible         =   0   'False
  62.       Width           =   300
  63.    End
  64.    Begin VB.Image imgMax 
  65.       Height          =   210
  66.       Index           =   21
  67.       Left            =   6930
  68.       Picture         =   "TitelBar.ctx":0AA6
  69.       Top             =   855
  70.       Visible         =   0   'False
  71.       Width           =   300
  72.    End
  73.    Begin VB.Image imgMax 
  74.       Height          =   240
  75.       Index           =   3
  76.       Left            =   1845
  77.       Picture         =   "TitelBar.ctx":0E70
  78.       Top             =   1305
  79.       Visible         =   0   'False
  80.       Width           =   240
  81.    End
  82.    Begin VB.Image imgMax 
  83.       Height          =   240
  84.       Index           =   2
  85.       Left            =   1845
  86.       Picture         =   "TitelBar.ctx":11FA
  87.       Top             =   1035
  88.       Visible         =   0   'False
  89.       Width           =   240
  90.    End
  91.    Begin VB.Image imgMax 
  92.       Height          =   240
  93.       Index           =   1
  94.       Left            =   1845
  95.       Picture         =   "TitelBar.ctx":1584
  96.       Top             =   810
  97.       Visible         =   0   'False
  98.       Width           =   240
  99.    End
  100.    Begin VB.Image imgMax 
  101.       Height          =   270
  102.       Index           =   13
  103.       Left            =   4500
  104.       Picture         =   "TitelBar.ctx":190E
  105.       Top             =   1845
  106.       Visible         =   0   'False
  107.       Width           =   390
  108.    End
  109.    Begin VB.Image imgMax 
  110.       Height          =   270
  111.       Index           =   12
  112.       Left            =   4500
  113.       Picture         =   "TitelBar.ctx":1F40
  114.       Top             =   1305
  115.       Visible         =   0   'False
  116.       Width           =   390
  117.    End
  118.    Begin VB.Image imgMax 
  119.       Height          =   270
  120.       Index           =   11
  121.       Left            =   4500
  122.       Picture         =   "TitelBar.ctx":2572
  123.       Top             =   855
  124.       Visible         =   0   'False
  125.       Width           =   390
  126.    End
  127.    Begin VB.Image imgClose 
  128.       Height          =   210
  129.       Index           =   21
  130.       Left            =   6210
  131.       Picture         =   "TitelBar.ctx":2BA4
  132.       Top             =   855
  133.       Visible         =   0   'False
  134.       Width           =   300
  135.    End
  136.    Begin VB.Image imgClose 
  137.       Height          =   210
  138.       Index           =   22
  139.       Left            =   6210
  140.       Picture         =   "TitelBar.ctx":2F6E
  141.       Top             =   1305
  142.       Visible         =   0   'False
  143.       Width           =   300
  144.    End
  145.    Begin VB.Image imgMin 
  146.       Height          =   210
  147.       Index           =   21
  148.       Left            =   6570
  149.       Picture         =   "TitelBar.ctx":3338
  150.       Top             =   855
  151.       Visible         =   0   'False
  152.       Width           =   300
  153.    End
  154.    Begin VB.Image imgMin 
  155.       Height          =   210
  156.       Index           =   22
  157.       Left            =   6570
  158.       Picture         =   "TitelBar.ctx":3702
  159.       Top             =   1305
  160.       Visible         =   0   'False
  161.       Width           =   300
  162.    End
  163.    Begin VB.Image imgClose 
  164.       Height          =   210
  165.       Index           =   23
  166.       Left            =   6210
  167.       Picture         =   "TitelBar.ctx":3ACC
  168.       Top             =   1845
  169.       Visible         =   0   'False
  170.       Width           =   300
  171.    End
  172.    Begin VB.Image imgMin 
  173.       Height          =   210
  174.       Index           =   23
  175.       Left            =   6570
  176.       Picture         =   "TitelBar.ctx":3E96
  177.       Top             =   1845
  178.       Visible         =   0   'False
  179.       Width           =   300
  180.    End
  181.    Begin VB.Image imgMin 
  182.       Height          =   270
  183.       Index           =   13
  184.       Left            =   4005
  185.       Picture         =   "TitelBar.ctx":4260
  186.       Top             =   1845
  187.       Visible         =   0   'False
  188.       Width           =   390
  189.    End
  190.    Begin VB.Image imgClose 
  191.       Height          =   270
  192.       Index           =   13
  193.       Left            =   3465
  194.       Picture         =   "TitelBar.ctx":4892
  195.       Top             =   1845
  196.       Visible         =   0   'False
  197.       Width           =   390
  198.    End
  199.    Begin VB.Image imgMin 
  200.       Height          =   270
  201.       Index           =   12
  202.       Left            =   4005
  203.       Picture         =   "TitelBar.ctx":4EC4
  204.       Top             =   1305
  205.       Visible         =   0   'False
  206.       Width           =   390
  207.    End
  208.    Begin VB.Image imgMin 
  209.       Height          =   270
  210.       Index           =   11
  211.       Left            =   4005
  212.       Picture         =   "TitelBar.ctx":54F6
  213.       Top             =   855
  214.       Visible         =   0   'False
  215.       Width           =   390
  216.    End
  217.    Begin VB.Image imgClose 
  218.       Height          =   270
  219.       Index           =   12
  220.       Left            =   3465
  221.       Picture         =   "TitelBar.ctx":5B28
  222.       Top             =   1305
  223.       Visible         =   0   'False
  224.       Width           =   390
  225.    End
  226.    Begin VB.Image imgClose 
  227.       Height          =   270
  228.       Index           =   11
  229.       Left            =   3465
  230.       Picture         =   "TitelBar.ctx":615A
  231.       Top             =   855
  232.       Visible         =   0   'False
  233.       Width           =   390
  234.    End
  235.    Begin VB.Image imgClose 
  236.       Height          =   240
  237.       Index           =   1
  238.       Left            =   1125
  239.       Picture         =   "TitelBar.ctx":678C
  240.       Top             =   810
  241.       Visible         =   0   'False
  242.       Width           =   240
  243.    End
  244.    Begin VB.Image imgClose 
  245.       Height          =   240
  246.       Index           =   2
  247.       Left            =   1125
  248.       Picture         =   "TitelBar.ctx":6B16
  249.       Top             =   1050
  250.       Visible         =   0   'False
  251.       Width           =   240
  252.    End
  253.    Begin VB.Image imgClose 
  254.       Height          =   240
  255.       Index           =   3
  256.       Left            =   1125
  257.       Picture         =   "TitelBar.ctx":6EA0
  258.       Top             =   1290
  259.       Visible         =   0   'False
  260.       Width           =   240
  261.    End
  262.    Begin VB.Image imgMin 
  263.       Height          =   240
  264.       Index           =   3
  265.       Left            =   1485
  266.       Picture         =   "TitelBar.ctx":722A
  267.       Top             =   1290
  268.       Visible         =   0   'False
  269.       Width           =   240
  270.    End
  271.    Begin VB.Image imgMin 
  272.       Height          =   240
  273.       Index           =   2
  274.       Left            =   1485
  275.       Picture         =   "TitelBar.ctx":75B4
  276.       Top             =   1050
  277.       Visible         =   0   'False
  278.       Width           =   240
  279.    End
  280.    Begin VB.Image imgMin 
  281.       Height          =   240
  282.       Index           =   1
  283.       Left            =   1485
  284.       Picture         =   "TitelBar.ctx":793E
  285.       Top             =   810
  286.       Visible         =   0   'False
  287.       Width           =   240
  288.    End
  289.    Begin VB.Image TBARX 
  290.       Height          =   240
  291.       Left            =   3690
  292.       Top             =   90
  293.       Width           =   240
  294.    End
  295.    Begin VB.Image TBAR_ 
  296.       Height          =   240
  297.       Left            =   3375
  298.       Top             =   90
  299.       Width           =   240
  300.    End
  301. End
  302. Attribute VB_Name = "TitelBar"
  303. Attribute VB_GlobalNameSpace = False
  304. Attribute VB_Creatable = True
  305. Attribute VB_PredeclaredId = False
  306. Attribute VB_Exposed = False
  307. '------------------------------------------------------------------
  308. ' Titelbar V4.00
  309. ' (C) J÷rg Pfeffer alias Peppa
  310. ' 16.10.2009 - english Styles and Maximized Button added
  311. '
  312. '
  313. ' Feel free to use this Control for your Projects and have fun !
  314. ' If you like to mention me, it would be very nice
  315. '
  316. '------------------------------------------------------------------
  317.  
  318.  
  319.  
  320.  
  321.  
  322. Option Explicit
  323.  
  324. Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
  325. Private Declare Function GetCapture Lib "user32" () As Long
  326. Private Declare Function ReleaseCapture Lib "user32" () As Long
  327. 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
  328. Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc 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 nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
  329. Private Declare Function DrawState Lib "user32" Alias "DrawStateA" (ByVal hdc As Long, ByVal hBrush As Long, ByVal lpDrawStateProc As Long, ByVal lParam As Long, ByVal wParam As Long, ByVal X As Long, ByVal Y As Long, ByVal CX As Long, ByVal CY As Long, ByVal fuFlags As Long) As Long
  330. Private Declare Function OleTranslateColor Lib "oleaut32.dll" (ByVal ColorIn As Long, ByVal hPal As Long, ByRef RGBColorOut As Long) As Long
  331. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal iparam As Long) As Long
  332.  
  333. Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
  334. Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
  335. Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
  336. Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
  337. Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
  338. Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
  339. Private Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As POINTAPI) As Long
  340. Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
  341. Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
  342. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  343.  
  344. Private Type POINTAPI
  345.    X As Long
  346.    Y As Long
  347. End Type
  348.  
  349. Private Type RECT
  350.     Left As Long
  351.     Top As Long
  352.     Right As Long
  353.     Bottom As Long
  354. End Type
  355.  
  356.  
  357. Private Type LOGFONT
  358.         lfHeight As Long
  359.         lfWidth As Long
  360.         lfEscapement As Long
  361.         lfOrientation As Long
  362.         lfWeight As Long
  363.         lfItalic As Byte
  364.         lfUnderline As Byte
  365.         lfStrikeOut As Byte
  366.         lfCharSet As Byte
  367.         lfOutPrecision As Byte
  368.         lfClipPrecision As Byte
  369.         lfQuality As Byte
  370.         lfPitchAndFamily As Byte
  371.         lfFaceName(1 To 32) As Byte
  372. End Type
  373.  
  374. Private Const TRANSPARENT = 1
  375. Private Const ANTIALIASED_QUALITY = 4
  376. Private Const NONANTIALIASED_QUALITY = 3
  377.  
  378. 'Event Declarations:
  379. Event Click() 'MappingInfo=UserControl,UserControl,-1,Click
  380. Event DblClick() 'MappingInfo=UserControl,UserControl,-1,DblClick
  381. Event KeyDown(KeyCode As Integer, Shift As Integer) 'MappingInfo=UserControl,UserControl,-1,KeyDown
  382. Event KeyPress(KeyAscii As Integer) 'MappingInfo=UserControl,UserControl,-1,KeyPress
  383. Event KeyUp(KeyCode As Integer, Shift As Integer) 'MappingInfo=UserControl,UserControl,-1,KeyUp
  384. Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'MappingInfo=UserControl,UserControl,-1,MouseDown
  385. Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'MappingInfo=UserControl,UserControl,-1,MouseMove
  386. Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 'MappingInfo=UserControl,UserControl,-1,MouseUp
  387. Event Resize() 'MappingInfo=UserControl,UserControl,-1,Resize
  388.  
  389. Public Enum TbarStyles
  390.  None = 0
  391.  LeftSimple = 1
  392.  LeftStripes = 2
  393.  LeftRidge = 3
  394.  LeftStripesRidge = 4
  395.  RightSimple = 5
  396.  RightStripes = 6
  397.  RightRidge = 7
  398.  RightStripesRidge = 8
  399.  Sweep = 9
  400.  SweepRidgeSmall = 10
  401.  SweepRidgeMiddle = 11
  402.  SweepRidgeBig = 12
  403.  ModernRight = 13
  404.  Vista = 14
  405. End Enum
  406.  
  407. Public Enum TCPositionsX
  408.  tbbsAuto
  409.  tbbsLeft
  410.  tbbsCenter
  411.  tbbsRight
  412. End Enum
  413.  
  414. Public Enum TCPositionsY
  415.  tbsAuto
  416.  tbbsTop
  417.  tbbsMiddle
  418.  tbbsBottom
  419. End Enum
  420.  
  421. Public Enum TCPosMode
  422.  pManual
  423.  pCenterX
  424.  pCenterY
  425.  pCenterXY
  426. End Enum
  427.  
  428. Dim Trans_Over As Boolean
  429. Dim VBorder As Byte
  430. Dim lX As Integer
  431. Dim lY As Integer
  432. Dim IsActive As Byte
  433.  
  434. 'DrawSateTypes
  435. Const DST_COMPLEX = &H0
  436. Const DST_TEXT = &H1
  437. Const DST_PREFIXTEXT = &H2
  438. Const DST_ICON = &H3
  439. Const DST_BITMAP = &H4
  440. Const DSS_NORMAL = &H0
  441. Const DSS_UNION = &H10 ' Dither
  442. Const DSS_DISABLED = &H20
  443. Const DSS_MONO = &H80 ' Draw in colour of brush specified in hBrush
  444. Const DSS_RIGHT = &H8000
  445.  
  446. 'Default Property Values:
  447. Const m_def_AutoRedraw = False
  448. Const m_def_ToolTipText = ""
  449. Const m_def_PicturePosMode = pManual
  450. Const m_def_PicturePosX = 6
  451. Const m_def_PicturePosY = 4
  452. Const m_def_CaptionPosX = tbbsAuto
  453. Const m_def_CaptionPosY = tbbsCenter
  454. Const m_def_CaptionBorder = False
  455. Const m_def_CaptionBorderColor = vbBlack
  456.  
  457. Const m_def_Caption3DWidth = 2
  458. Const m_def_Caption3DTop = False
  459. Const m_def_Caption3DBottom = True
  460. Const m_def_Caption3DLeft = False
  461. Const m_def_Caption3DRight = True
  462. Const m_def_Style = 8
  463. Const m_def_IconStyle = 0
  464.  
  465. 'Property Variables:
  466. Dim m_def_BackColorCover As Single
  467. Dim m_def_BackColorV2Begin As OLE_COLOR
  468. Dim m_def_BackColorV2End As OLE_COLOR
  469. Dim m_def_BackColorV1Begin As OLE_COLOR
  470. Dim m_def_BackColorV1End As OLE_COLOR
  471. Dim m_def_CaptionColor As OLE_COLOR
  472. Dim m_def_CaptionColorBack As OLE_COLOR
  473. Dim m_def_CaptionShadowColor As OLE_COLOR
  474. Dim m_def_BorderColorHighLight As OLE_COLOR
  475. Dim m_def_BorderColorDarkLight As OLE_COLOR
  476.  
  477. Dim m_IconStyle As Byte
  478. Dim m_BackColorCover As Single
  479. Dim m_AutoRedraw As Boolean
  480. Dim m_Style As Integer
  481.  
  482. Dim m_ShowClose As Boolean
  483. Dim m_ShowMinimized As Boolean
  484. Dim m_ShowMaximized As Boolean
  485. Dim m_ShowCloseEnabled As Boolean
  486. Dim m_ShowMinimizedEnabled As Boolean
  487. Dim m_ShowMaximizedEnabled As Boolean
  488.  
  489. Dim m_DashBack As Boolean
  490. Dim m_ToolTipText As String
  491. Dim m_Caption As String
  492. Dim m_PicturePosMode As TCPosMode
  493. Dim m_PicturePosX As Integer
  494. Dim m_PicturePosY As Integer
  495. Dim m_CaptionPosX As TCPositionsX
  496. Dim m_CaptionPosY As TCPositionsY
  497. Dim m_PictureButton As StdPicture
  498. Dim m_BackColorV2Begin As OLE_COLOR
  499. Dim m_BackColorV2End As OLE_COLOR
  500. Dim m_CaptionColorBack As OLE_COLOR
  501. Dim m_BackColorV1Begin As OLE_COLOR
  502. Dim m_BackColorV1End As OLE_COLOR
  503. Dim m_CaptionColor As OLE_COLOR
  504. Dim m_BorderNormal As Byte
  505. Dim m_BorderColorHighLight As OLE_COLOR
  506. Dim m_BorderColorDarkLight As OLE_COLOR
  507. Dim m_Caption3DWidth As Byte
  508. Dim m_Caption3DTop As Boolean
  509. Dim m_Caption3DBottom As Boolean
  510. Dim m_Caption3DLeft As Boolean
  511. Dim m_Caption3DRight As Boolean
  512. Dim m_CaptionBorder As Boolean
  513. Dim m_CaptionBorderColor As OLE_COLOR
  514. Dim m_CaptionShadowColor As OLE_COLOR
  515.  
  516. Public Function GetRealColor(ByVal Color As OLE_COLOR) As Long
  517.   Dim R As Long
  518.   R = OleTranslateColor(Color, 0, GetRealColor)
  519.   If R <> 0 Then 'raise an error
  520.   DoEvents
  521.   End If
  522. End Function
  523.  
  524. Public Property Get AutoRedraw() As Boolean
  525.     AutoRedraw = m_AutoRedraw
  526. End Property
  527.  
  528. Public Property Let AutoRedraw(ByVal New_AutoRedraw As Boolean)
  529.     m_AutoRedraw = New_AutoRedraw
  530.     PropertyChanged "AutoRedraw"
  531.  '''Refresh
  532. End Property
  533.  
  534. Public Property Get DashBack() As Boolean
  535.     DashBack = m_DashBack
  536. End Property
  537.  
  538. Public Property Let DashBack(ByVal New_DashBack As Boolean)
  539.     m_DashBack = New_DashBack
  540.     PropertyChanged "DashBack"
  541.  Refresh
  542. End Property
  543.  
  544.  
  545.  
  546. Public Property Get Style() As TbarStyles
  547.     Style = m_Style
  548. End Property
  549.  
  550. Public Property Let Style(ByVal New_Style As TbarStyles)
  551.     m_Style = New_Style
  552.     PropertyChanged "Style"
  553.  Refresh
  554. End Property
  555.  
  556.  
  557. Public Property Get BackColor() As OLE_COLOR
  558.     BackColor = UserControl.BackColor
  559. End Property
  560.  
  561. Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
  562.     UserControl.BackColor() = New_BackColor
  563.     PropertyChanged "BackColor"
  564.  Refresh
  565. End Property
  566.  
  567.  
  568. Public Property Get BackColorCover() As Single
  569.     BackColorCover = m_BackColorCover
  570. End Property
  571.  
  572. Public Property Let BackColorCover(ByVal New_BackColorCover As Single)
  573.     m_BackColorCover = New_BackColorCover
  574.     If m_BackColorCover >= 10 Then m_BackColorCover = 10
  575.     If m_BackColorCover <= 0 Then m_BackColorCover = 1
  576.     PropertyChanged "BackColorCover"
  577.  Refresh
  578. End Property
  579.  
  580.  
  581. Public Property Get BackColorV2Begin() As OLE_COLOR
  582.     BackColorV2Begin = m_BackColorV2Begin
  583. End Property
  584.  
  585. Public Property Let BackColorV2Begin(ByVal New_BackColorV2Begin As OLE_COLOR)
  586.     m_BackColorV2Begin = New_BackColorV2Begin
  587.     PropertyChanged "BackColorV2Begin"
  588.  Refresh
  589. End Property
  590.  
  591. Public Property Get BackColorV2End() As OLE_COLOR
  592.     BackColorV2End = m_BackColorV2End
  593. End Property
  594.  
  595. Public Property Let BackColorV2End(ByVal New_BackColorV2End As OLE_COLOR)
  596.     m_BackColorV2End = New_BackColorV2End
  597.     PropertyChanged "BackColorV2End"
  598.  Refresh
  599. End Property
  600.  
  601. Public Property Get BackColorV1Begin() As OLE_COLOR
  602.     BackColorV1Begin = m_BackColorV1Begin
  603. End Property
  604.  
  605. Public Property Let BackColorV1Begin(ByVal New_BackColorV1Begin As OLE_COLOR)
  606.     m_BackColorV1Begin = New_BackColorV1Begin
  607.     PropertyChanged "BackColorV1Begin"
  608.  Refresh
  609. End Property
  610.  
  611. Public Property Get BackColorV1End() As OLE_COLOR
  612.     BackColorV1End = m_BackColorV1End
  613. End Property
  614.  
  615. Public Property Let BackColorV1End(ByVal New_BackColorV1End As OLE_COLOR)
  616.     m_BackColorV1End = New_BackColorV1End
  617.     PropertyChanged "BackColorV1End"
  618.  Refresh
  619. End Property
  620.  
  621. Public Property Get BorderColorHighLight() As OLE_COLOR
  622.     BorderColorHighLight = m_BorderColorHighLight
  623. End Property
  624.  
  625. Public Property Let BorderColorHighLight(ByVal New_BorderColorHighLight As OLE_COLOR)
  626.     m_BorderColorHighLight = New_BorderColorHighLight
  627.     PropertyChanged "BorderColorHighLight"
  628.  Refresh
  629. End Property
  630.  
  631. Public Property Get BorderColorDarkLight() As OLE_COLOR
  632.     BorderColorDarkLight = m_BorderColorDarkLight
  633. End Property
  634.  
  635. Public Property Let BorderColorDarkLight(ByVal New_BorderColorDarkLight As OLE_COLOR)
  636.     m_BorderColorDarkLight = New_BorderColorDarkLight
  637.     PropertyChanged "BorderColorDarkLight"
  638.  Refresh
  639. End Property
  640.  
  641. Public Property Get ForeColor() As OLE_COLOR
  642.     ForeColor = UserControl.ForeColor
  643. End Property
  644.  
  645. Public Property Let ForeColor(ByVal New_ForeColor As OLE_COLOR)
  646.     UserControl.ForeColor() = New_ForeColor
  647.     PropertyChanged "ForeColor"
  648.  Refresh
  649. End Property
  650.  
  651. Public Property Get CaptionColorBack() As OLE_COLOR
  652.     CaptionColorBack = m_CaptionColorBack
  653. End Property
  654.  
  655. Public Property Let CaptionColorBack(ByVal New_CaptionColorBack As OLE_COLOR)
  656.     m_CaptionColorBack = New_CaptionColorBack
  657.     PropertyChanged "CaptionColorBack"
  658.  Refresh
  659. End Property
  660.  
  661. Public Property Get CaptionColor() As OLE_COLOR
  662.     CaptionColor = m_CaptionColor
  663. End Property
  664.  
  665. Public Property Let CaptionColor(ByVal New_CaptionColor As OLE_COLOR)
  666.     m_CaptionColor = New_CaptionColor
  667.     PropertyChanged "CaptionColor"
  668.     UserControl.ForeColor = CaptionColor
  669.  Refresh
  670. End Property
  671.  
  672. Public Property Get CaptionBorderColor() As OLE_COLOR
  673.     CaptionBorderColor = m_CaptionBorderColor
  674. End Property
  675.  
  676. Public Property Let CaptionBorderColor(ByVal New_CaptionBorderColor As OLE_COLOR)
  677.     m_CaptionBorderColor = New_CaptionBorderColor
  678.     PropertyChanged "CaptionBorderColor"
  679.  Refresh
  680. End Property
  681.  
  682. Public Property Get CaptionShadowColor() As OLE_COLOR
  683.     CaptionShadowColor = m_CaptionShadowColor
  684. End Property
  685.  
  686. Public Property Let CaptionShadowColor(ByVal New_CaptionShadowColor As OLE_COLOR)
  687.     m_CaptionShadowColor = New_CaptionShadowColor
  688.     PropertyChanged "CaptionShadowColor"
  689.  Refresh
  690. End Property
  691.  
  692.  
  693. Public Property Get CaptionBorder() As Boolean
  694.     CaptionBorder = m_CaptionBorder
  695. End Property
  696.  
  697. Public Property Let CaptionBorder(ByVal New_CaptionBorder As Boolean)
  698.     m_CaptionBorder = New_CaptionBorder
  699.     PropertyChanged "CaptionBorder"
  700.  Refresh
  701. End Property
  702.  
  703.  
  704. Public Property Get Caption3DWidth() As Byte
  705.     Caption3DWidth = m_Caption3DWidth
  706. End Property
  707.  
  708. Public Property Let Caption3DWidth(ByVal New_Caption3DWidth As Byte)
  709.     m_Caption3DWidth = New_Caption3DWidth
  710.     PropertyChanged "Caption3DWidth"
  711.  Refresh
  712. End Property
  713.  
  714. Public Property Get Caption3DTop() As Boolean
  715.     Caption3DTop = m_Caption3DTop
  716. End Property
  717.  
  718. Public Property Let Caption3DTop(ByVal New_Caption3DTop As Boolean)
  719.     m_Caption3DTop = New_Caption3DTop
  720.     PropertyChanged "Caption3DappTop"
  721.  Refresh
  722. End Property
  723.  
  724.  
  725. Public Property Get Caption3DBottom() As Boolean
  726.     Caption3DBottom = m_Caption3DBottom
  727. End Property
  728.  
  729. Public Property Let Caption3DBottom(ByVal New_Caption3DBottom As Boolean)
  730.     m_Caption3DBottom = New_Caption3DBottom
  731.     PropertyChanged "Caption3DappBottom"
  732.  Refresh
  733. End Property
  734.  
  735. Public Property Get Caption3DLeft() As Boolean
  736.     Caption3DLeft = m_Caption3DLeft
  737. End Property
  738.  
  739. Public Property Let Caption3DLeft(ByVal New_Caption3DLeft As Boolean)
  740.     m_Caption3DLeft = New_Caption3DLeft
  741.     PropertyChanged "Caption3DappLeft"
  742.  Refresh
  743. End Property
  744.  
  745. Public Property Get Caption3DRight() As Boolean
  746.     Caption3DRight = m_Caption3DRight
  747. End Property
  748.  
  749. Public Property Let Caption3DRight(ByVal New_Caption3DRight As Boolean)
  750.     m_Caption3DRight = New_Caption3DRight
  751.     PropertyChanged "Caption3DappRight"
  752.  Refresh
  753. End Property
  754.  
  755. Public Property Get ShowClose() As Boolean
  756.     ShowClose = m_ShowClose
  757. End Property
  758.  
  759. Public Property Let ShowClose(ByVal New_ShowClose As Boolean)
  760.     m_ShowClose = New_ShowClose
  761.     PropertyChanged "ShowClose"
  762.  Call SetTBX_
  763. End Property
  764.  
  765. Public Property Get ShowMinimized() As Boolean
  766.     ShowMinimized = m_ShowMinimized
  767. End Property
  768.  
  769. Public Property Let ShowMinimized(ByVal New_ShowMinimized As Boolean)
  770.     m_ShowMinimized = New_ShowMinimized
  771.     PropertyChanged "ShowMinimized"
  772.  Call SetTBX_
  773. End Property
  774.  
  775.  
  776. Public Property Get ShowMaximized() As Boolean
  777.     ShowMaximized = m_ShowMaximized
  778. End Property
  779.  
  780. Public Property Let ShowMaximized(ByVal New_ShowMaximized As Boolean)
  781.     m_ShowMaximized = New_ShowMaximized
  782.     PropertyChanged "ShowMaximized"
  783.  Call SetTBX_
  784. End Property
  785.  
  786.  
  787.  
  788. Public Property Get ShowCloseEnabled() As Boolean
  789.     ShowCloseEnabled = m_ShowCloseEnabled
  790. End Property
  791.  
  792. Public Property Let ShowCloseEnabled(ByVal New_ShowCloseEnabled As Boolean)
  793.     m_ShowCloseEnabled = New_ShowCloseEnabled
  794.     PropertyChanged "ShowCloseEnabled"
  795.  Call SetTBX_
  796. End Property
  797.  
  798. Public Property Get ShowMinimizedEnabled() As Boolean
  799.     ShowMinimizedEnabled = m_ShowMinimizedEnabled
  800. End Property
  801.  
  802. Public Property Let ShowMinimizedEnabled(ByVal New_ShowMinimizedEnabled As Boolean)
  803.     m_ShowMinimizedEnabled = New_ShowMinimizedEnabled
  804.     PropertyChanged "ShowMinimizedEnabled"
  805.  Call SetTBX_
  806. End Property
  807.  
  808. Public Property Get ShowMaximizedEnabled() As Boolean
  809.     ShowMaximizedEnabled = m_ShowMaximizedEnabled
  810. End Property
  811.  
  812. Public Property Let ShowMaximizedEnabled(ByVal New_ShowMaximizedEnabled As Boolean)
  813.     m_ShowMaximizedEnabled = New_ShowMaximizedEnabled
  814.     PropertyChanged "ShowMaximizedEnabled"
  815.  Call SetTBX_
  816. End Property
  817.  
  818.  
  819.  
  820. Public Property Get Font() As Font
  821.     Set Font = UserControl.FonerControl.Foontrol.Foontrol.FoCoontrol.FooRefresh
  822. End Property
  823. amily As zedEnabled"
  824.  Call SetiSerControLOR
  825.     Capti
  826.     m_Caption3DLeft = New_Caption3abled"
  827.  Call SetiSerControLORedEnabled
  828. End Property
  829.  
  830. Pperty
  831.  
  832. Public Property Let ShowClose(Bd
  833.     PropertyChBack() As OLE_C
  834. nt = ed
  835. End Property
  836.  
  837. Pperty
  838.  
  839. Public abledteft = New_Caption3abled"
  840.  Call Se1bc abled  Let CaptionBorder
  841.  
  842. P1+onBorder = New_CaptionBoroperty
  843. amir
  844.  
  845. P1+onBorder = New_CaptionBoroperty
  846. amir
  847.  
  848. P1+ Property Let CaptiononBod
  849.     PropertyChanged "ShowCloseEnabled"
  850.  Call SetTBX_
  851. End Property
  852.  
  853. Public Property Get ShowM    Propc Propppppppppppppppppppppppppppppppppppp  PropertyC    "Caption3DappBottom"
  854.  Refresb 270
  855.       Index           =   12
  856.       Left
  857. nabled = m_ShowMSf.ty
  858. a=   12
  859.       Left
  860. c Property Lelic Property Let ShowMaximizedEnabled(ByVal New_ShowMax0MaximCloseuTety Let ShowimCloseuTety Let ShowimCloseuTety Let ShowimCloseuTety et Captionopelnabled(ByVal New_ShowMax0MaximCloseuTety Let ShowimCloseuTety Let ShowimCloseuTety Let ShowimCloseuTety et CaonBod
  861.     PropertyChanged "ShowCloseEnabled"I7cpmQex    CltA" (ByiMOdr CaptiaMaximized As Booleanoleanoleanoleano  End
  862.  'False2OdYuty Let ShotiudptiaMaPt ShowCloseEnabowClosOC