From 5f6ac82f68012ce11cf2004dd6d4e5b5ab1122a5 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Sun, 4 Dec 2016 20:19:00 +0000 Subject: [PATCH] jvcllaz: Add "SimpleDemo" of XP controls git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5412 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../jvcllaz/examples/XPCtrls/MainFrm.lfm | 455 ++++++++++++++++++ .../jvcllaz/examples/XPCtrls/MainFrm.pas | 264 ++++++++++ .../jvcllaz/examples/XPCtrls/SimpleDemo.lpi | 82 ++++ .../jvcllaz/examples/XPCtrls/SimpleDemo.lpr | 13 + 4 files changed, 814 insertions(+) create mode 100644 components/jvcllaz/examples/XPCtrls/MainFrm.lfm create mode 100644 components/jvcllaz/examples/XPCtrls/MainFrm.pas create mode 100644 components/jvcllaz/examples/XPCtrls/SimpleDemo.lpi create mode 100644 components/jvcllaz/examples/XPCtrls/SimpleDemo.lpr diff --git a/components/jvcllaz/examples/XPCtrls/MainFrm.lfm b/components/jvcllaz/examples/XPCtrls/MainFrm.lfm new file mode 100644 index 000000000..a6eb1c3d0 --- /dev/null +++ b/components/jvcllaz/examples/XPCtrls/MainFrm.lfm @@ -0,0 +1,455 @@ +object frmMain: TfrmMain + Left = 291 + Height = 191 + Top = 290 + Width = 456 + BorderIcons = [biSystemMenu, biMinimize] + BorderStyle = bsSingle + Caption = 'frmMain' + ClientHeight = 191 + ClientWidth = 456 + Color = clBtnFace + DefaultMonitor = dmDesktop + Font.Color = clWindowText + OnCreate = FormCreate + Position = poDesktopCenter + LCLVersion = '1.7' + object cntHeader: TJvXPContainer + Left = 0 + Height = 15 + Top = 0 + Width = 456 + Caption = 'cntHeader' + OnPaint = cntHeaderPaint + Align = alTop + OnMouseDown = cntHeaderMouseDown + object btnClose: TJvXPToolButton + Left = 0 + Top = 0 + Align = alLeft + ImageIndex = 0 + OnClick = btnCloseClick + end + end + object cntNetPanel: TJvXPContainer + Left = 8 + Height = 161 + Top = 24 + Width = 121 + BoundColor = 16251903 + BoundLines = [blLeft, blTop, blRight, blBottom] + Caption = 'cntNetPanel' + Color = 16251903 + ParentColor = False + OnPaint = cntNetPanelPaint + Anchors = [akTop, akLeft, akBottom] + object lbBrowse: TLabel + Left = 8 + Height = 15 + Top = 24 + Width = 42 + Caption = 'Browse' + Font.Color = clWindowText + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + object shpSeperator: TShape + Left = 8 + Height = 1 + Top = 37 + Width = 108 + Pen.Color = clSilver + end + object lbInternalPage: TLabel + Cursor = crHandPoint + Left = 24 + Height = 15 + Top = 40 + Width = 69 + Caption = 'Internal Page' + ParentColor = False + end + object lbWebEditor: TLabel + Cursor = crHandPoint + Left = 24 + Height = 15 + Top = 56 + Width = 60 + Caption = 'Web-Editor' + ParentColor = False + end + object lbConfigure: TLabel + Cursor = crHandPoint + Left = 24 + Height = 15 + Top = 80 + Width = 62 + Caption = 'Configure...' + ParentColor = False + end + object imgConfigure: TImage + Left = 5 + Height = 17 + Top = 79 + Width = 17 + Picture.Data = { + 07544269746D617036030000424D360300000000000036000000280000001000 + 0000100000000100180000000000000300000000000000000000000000000000 + 0000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 + C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 + C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 + C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0001500001500011501021502021502 + C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0001500012A + 0105D4050AE90A0FD41918E9181DD41D072A07051505C0C0C0C0C0C0C0C0C0C0 + C0C0C0C0C0C0C0C000150003D40306E9060BFF0B0DD42D053F6521E92B2DFF2D + 35E9353BD43B051505C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0012A0106E9060BFF + 0B0DD438032ACC03158E25D43B39FF3947FF474DE94D112A11C0C0C0C0C0C0C0 + C0C0C0C0C000150005D4050BFF0B0DD438053FC50315ED0000E9092A7E42E94D + 56FF5666FF6664D4640A150AC0C0C0C0C0C0C0C0C00015000AE90A10E9250855 + B21ED44925D4500315E207158750E95A66FF6678FF787EE97E0B150BC0C0C0C0 + C0C0C0C0C001150111E9111AFF1A21E9362DFF2D33E9480B2AD508159355D46A + 78FF7893FF9391E9910D150DC0C0C0C0C0C0C0C0C002150218E91823FF232DFF + 2D39FF3947FF4747D472112AD0142A8989E993E5FFE5ADE9AD0F150FC0C0C0C0 + C0C0C0C0C00215021DD41D2DFF2D39FF3947FF4756FF5666FF6664D484243F84 + A0E9ABDDFFDDADD4AD111511C0C0C0C0C0C0C0C0C0C0C0C0072A0735E93547FF + 4756FF5666FF6678FF7893FF93A0E9ABC4FFC42AE92A112A11C0C0C0C0C0C0C0 + C0C0C0C0C0C0C0C00515053BD43B4DE94D66FF6678FF7893FF93E5FFE5DDFFDD + 2AE92A00D400001500C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0051505112A + 1164D4647EE97E91E991ADE9ADADD4AD112A11001500C0C0C0C0C0C0C0C0C0C0 + C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00A150A0B150B0D150D0F150F111511 + C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 + C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 + C0C0 + } + Transparent = True + end + object cntNetHeader: TJvXPContainer + Left = 1 + Height = 15 + Top = 1 + Width = 119 + Alignment = taLeftJustify + Caption = 'ToDo-List' + Color = 14936557 + ParentColor = False + ShowCaption = True + Spacing = 34 + Align = alTop + object btnLeft: TJvXPToolButton + Left = 0 + Top = 0 + ToolType = ttArrowLeft + Align = alLeft + ImageIndex = 0 + StyleManager = styleOffice + end + object btnRight: TJvXPToolButton + Left = 15 + Top = 0 + ToolType = ttArrowRight + Align = alLeft + ImageIndex = 0 + StyleManager = styleOffice + end + end + end + object btnOK: TJvXPButton + Left = 296 + Top = 160 + Caption = '&OK' + TabOrder = 2 + Default = True + ModalResult = 1 + Anchors = [akTop, akRight] + OnClick = btnCloseClick + end + object btnCancel: TJvXPButton + Left = 376 + Top = 160 + Caption = '&Cancel' + TabOrder = 3 + Cancel = True + ModalResult = 2 + Anchors = [akTop, akRight] + end + object btn1: TJvXPButton + Left = 136 + Height = 41 + Top = 24 + Action = acBtn1 + Caption = '&Generate' + TabOrder = 4 + StyleManager = styleOffice + end + object btn2: TJvXPButton + Left = 216 + Height = 41 + Top = 24 + Action = acBtn2 + Caption = '&Optimize' + TabOrder = 5 + Layout = blGlyphRight + StyleManager = styleOffice + end + object btn4: TJvXPButton + Left = 376 + Height = 41 + Top = 24 + Action = acBtn4 + Caption = 'C++ Code' + TabOrder = 6 + Layout = blGlyphBottom + StyleManager = styleOffice + end + object btn3: TJvXPButton + Left = 296 + Height = 41 + Top = 24 + Action = acBtn3 + Caption = '&Copy Path' + TabOrder = 7 + Layout = blGlyphTop + StyleManager = styleOffice + end + object chkToogleEnable: TJvXPCheckbox + Left = 136 + Height = 17 + Top = 72 + Width = 313 + Caption = '&Toogle Enable-Mode' + TabOrder = 8 + Anchors = [akTop, akLeft, akRight] + StyleManager = styleOffice + OnClick = chkToogleEnableClick + end + object chkOfficeStyle: TJvXPCheckbox + Left = 136 + Height = 17 + Top = 162 + Width = 121 + Caption = 'Office Style' + TabOrder = 9 + Checked = True + State = cbChecked + StyleManager = styleOffice + OnClick = chkOfficeStyleClick + end + object chk1: TJvXPCheckbox + Left = 136 + Height = 17 + Top = 104 + Width = 121 + Caption = 'Additional Check1' + TabOrder = 10 + StyleManager = styleOffice + end + object chk2: TJvXPCheckbox + Left = 136 + Height = 17 + Top = 128 + Width = 121 + Caption = 'Additional Check2' + TabOrder = 11 + StyleManager = styleOffice + end + object dxToolButton1: TJvXPToolButton + Left = 300 + Top = 129 + ImageIndex = 0 + StyleManager = styleOffice + end + object dxToolButton2: TJvXPToolButton + Left = 316 + Top = 129 + ToolType = ttMaximize + ImageIndex = 0 + StyleManager = styleOffice + end + object dxToolButton3: TJvXPToolButton + Left = 332 + Top = 129 + ToolType = ttMinimize + ImageIndex = 0 + StyleManager = styleOffice + end + object dxToolButton4: TJvXPToolButton + Left = 364 + Top = 129 + ToolType = ttPopup + ImageIndex = 0 + StyleManager = styleOffice + end + object dxToolButton5: TJvXPToolButton + Left = 348 + Top = 130 + ToolType = ttRestore + ImageIndex = 0 + StyleManager = styleOffice + end + object imlMain: TImageList + left = 88 + top = 128 + Bitmap = { + 4C69040000001000000010000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000FF000000FF000000FF000000FF000000FF848484FF000000000000 + 0000000000000000000000000000000000000000000000000000000000FF0000 + 00FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000FF000000FF8484 + 84FF0000000000000000000000000000000000000000000000FF0000FFFF0000 + FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000 + 00FF0000000000000000000000000000000000000000000000FF0000FFFF0000 + FFFF0000FFFF0000FFFF0000FFFF000000FF000000FF0000FFFF0000FFFF0000 + 00FF848484FF000000000000000000000000000000FF0000FFFF0000FFFF0000 + FFFF0000FFFF0000FFFF000000FFFFFFFFFF000000FF000000FF0000FFFF0000 + FFFF000000FF000000000000000000000000000000FF0000FFFF0000FFFF0000 + FFFF0000FFFF000000FFFFFFFFFF000000FF000000FF000000FF0000FFFF0000 + FFFF000000FF848484FF0000000000000000000000FF0000FFFF0000FFFF0000 + FFFF000000FFFFFFFFFF000000FF000000FF000000FF0000FFFF0000FFFF0000 + FFFF000000FF848484FF0000000000000000000000FF0000FFFF0000FFFF0000 + FFFF000000FF000000FF000000FF000000FF0000FFFF0000FFFF0000FFFF0000 + FFFF000000FF848484FF0000000000000000000000FF0000FFFF0000FFFF0000 + FFFF000000FF000000FF000000FF0000FFFF0000FFFF0000FFFF0000FFFF0000 + FFFF000000FF00000000000000000000000000000000000000FF0000FFFF0000 + 00FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000 + 00FF848484FF00000000000000000000000000000000000000FF0000FFFF0000 + FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000 + 00FF000000000000000000000000000000000000000000000000000000FF0000 + 00FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000FF000000FF8484 + 84FF000000000000000000000000000000000000000000000000000000000000 + 0000000000FF000000FF000000FF000000FF000000FF848484FF000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000848484FF848484FF848484FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF0000000000000000000000FFC6C6C6FFC6C6C6FFC6C6 + C6FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FFC6C6 + C6FFC6C6C6FF000000FF0000000000000000000000FFC6C6C6FFC6C6C6FFC6C6 + C6FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FFC6C6 + C6FFC6C6C6FF000000FF0000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFF + FFFFC6C6C6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC6C6C6FFFFFF + FFFFFFFFFFFF000000FF0000000000000000000000FFFFFFFFFFFFFFFFFFFF00 + 00FFC6C6C6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FFFFFF + FFFFFFFFFFFF000000FF0000000000000000000000FFFFFFFFFFFF0000FFFF00 + 00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF8400 + 00FFFFFFFFFF000000FF0000000000000000000000FF840000FFFF0000FFFF00 + 00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00 + 00FF840000FF000000FF0000000000000000000000FFFFFFFFFF840000FFFF00 + 00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00 + 00FFFFFFFFFF000000FF0000000000000000000000FFFFFFFFFFFFFFFFFF8400 + 00FFC6C6C6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFF + FFFFFFFFFFFF000000FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFF + FFFFC6C6C6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC6C6C6FFFFFF + FFFFFFFFFFFF000000FF0000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF0000000000000000000000FFC6C6C6FFC6C6C6FFC6C6 + C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 + C6FFC6C6C6FF000000FF0000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF00000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 000000000000000000000000000000000000000000FFFF0000FFFF0000FFFF00 + 00FFFF0000FFFF0000FFFF0000FF000000FF0000000000000000000000000000 + 000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFF0000FFFF0000FFFF0000FF0000 + 000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000000000000000000000FF00 + 00FF00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000FF0000FFFF00 + 00FF840000FF000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000008400 + 00FF00000000000000000000000000000000000000FFC6C6C6FFC6C6C6FFC6C6 + C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF00000000000000FF000000FF0000 + 00FF000000FF000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF00FFFFFF00FFFFFF00FF + FFFF008484FF000000FF00000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF00000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FFC6C6C6FFC6C6C6FFC6C6 + C6FF848484FF000000FF00000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FFC6C6C6FFC6C6C6FFC6C6 + C6FF848484FF000000FF00000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FFC6C6C6FFC6C6C6FFC6C6 + C6FF848484FF000000FF00000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF848484FF848484FF8484 + 84FF848484FF000000FF00000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000FF000000FF0000 + 00FF000000FF0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFF000000FF848484FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFF000000FF848484FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFF000000FF848484FF0000000000000000000000FFFFFFFFFFFFFFFFFF0000 + 00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFF000000FF848484FF0000000000000000000000FFFFFFFFFF000000FFFFFF + FFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFF + FFFF000000FF848484FF0000000000000000000000FFFFFFFFFF000000FFFFFF + FFFFFFFFFFFF000000FF000000FF000000FF000000FF000000FF000000FFFFFF + FFFF000000FF848484FF0000000000000000000000FFFFFFFFFF000000FFFFFF + FFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFF + FFFF000000FF848484FF0000000000000000000000FFFFFFFFFFFFFFFFFF0000 + 00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFF000000FF848484FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFF000000FF848484FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFF000000FF848484FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFF000000FF848484FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFF000000FF848484FF0000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF848484FF000000000000000000000000848484FF848484FF8484 + 84FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF8484 + 84FF848484FF848484FF00000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000 + } + end + object aclMain: TActionList + Images = imlMain + left = 32 + top = 128 + object acBtn1: TAction + Caption = '&Generate' + ImageIndex = 0 + OnExecute = acBtn1Execute + end + object acBtn2: TAction + Caption = '&Optimize' + ImageIndex = 1 + OnExecute = acBtn1Execute + end + object acBtn3: TAction + Caption = '&Copy Path' + ImageIndex = 2 + OnExecute = acBtn3Execute + end + object acBtn4: TAction + Caption = 'C++ Code' + ImageIndex = 3 + OnExecute = acBtn3Execute + end + end + object styleOffice: TJvXPStyleManager + Theme = OfficeXP + left = 360 + top = 72 + end +end diff --git a/components/jvcllaz/examples/XPCtrls/MainFrm.pas b/components/jvcllaz/examples/XPCtrls/MainFrm.pas new file mode 100644 index 000000000..e8c93b7e5 --- /dev/null +++ b/components/jvcllaz/examples/XPCtrls/MainFrm.pas @@ -0,0 +1,264 @@ +{****************************************************************** + + JEDI-VCL Demo + + Copyright (C) 2002 Project JEDI + + Original author: + + Contributor(s): + + You may retrieve the latest version of this file at the JEDI-JVCL + home page, located at http://jvcl.sourceforge.net + + The contents of this file are used with permission, subject to + the Mozilla Public License Version 1.1 (the "License"); you may + not use this file except in compliance with the License. You may + obtain a copy of the License at + http://www.mozilla.org/MPL/MPL-1_1Final.html + + Software distributed under the License is distributed on an + "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or + implied. See the License for the specific language governing + rights and limitations under the License. + +******************************************************************} + +unit MainFrm; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, + Dialogs, ActnList, ImgList, JvXPCore, JvXPCheckCtrls, JvXPButtons, ExtCtrls, + StdCtrls, JvXPContainer, JvComponent, JvExControls; + +type +{ TfrmMain } + + TfrmMain = class(TForm) + acBtn1: TAction; + acBtn2: TAction; + acBtn3: TAction; + acBtn4: TAction; + aclMain: TActionList; + btn1: TJvXPButton; + btn2: TJvXPButton; + btn3: TJvXPButton; + btn4: TJvXPButton; + btnCancel: TJvXPButton; + btnClose: TJvXPToolButton; + btnLeft: TJvXPToolButton; + btnOK: TJvXPButton; + btnRight: TJvXPToolButton; + chk1: TJvXPCheckbox; + chk2: TJvXPCheckbox; + chkOfficeStyle: TJvXPCheckbox; + chkToogleEnable: TJvXPCheckbox; + cntHeader: TJvXPContainer; + cntNetHeader: TJvXPContainer; + cntNetPanel: TJvXPContainer; + dxToolButton1: TJvXPToolButton; + dxToolButton2: TJvXPToolButton; + dxToolButton3: TJvXPToolButton; + dxToolButton4: TJvXPToolButton; + dxToolButton5: TJvXPToolButton; + imgConfigure: TImage; + imlMain: TImageList; + styleOffice: TJvXPStyleManager; + lbBrowse: TLabel; + lbConfigure: TLabel; + lbInternalPage: TLabel; + lbWebEditor: TLabel; + shpSeperator: TShape; +// styleOffice: TJvXPStyleManager; + procedure FormCreate(Sender: TObject); + procedure acBtn1Execute(Sender: TObject); + procedure acBtn3Execute(Sender: TObject); + procedure btnCloseClick(Sender: TObject); + procedure chkOfficeStyleClick(Sender: TObject); + procedure chkToogleEnableClick(Sender: TObject); + procedure cntHeaderMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure cntHeaderPaint(Sender: TObject; Rect: TRect; ACanvas: TCanvas; AFont: TFont); + procedure cntNetPanelPaint(Sender: TObject; Rect: TRect; ACanvas: TCanvas; AFont: TFont); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmMain: TfrmMain; + +implementation + +{$R *.lfm} + +{ TfrmMain } + +{----------------------------------------------------------------------------- + Procedure: RemoveTitleBar + Author: mh + Date: 31-Mrz-2003 + Arguments: hWindow: THANDLE; Hide: boolean = True + Result: DWORD +-----------------------------------------------------------------------------} + +function RemoveTitleBar(hWindow: THANDLE; Hide: boolean = True): DWORD; +var + R: TRect; +begin + Result := GetWindowLong(hWindow, GWL_STYLE); + if (Hide) then + Result := Result and not WS_CAPTION + else + Result := Result or WS_CAPTION; + GetClientRect(hWindow, R); + SetWindowLong(hWindow, GWL_STYLE, Result); + AdjustWindowRect(R, Result, boolean(GetMenu(hWindow))); + SetWindowPos(hWindow, 0, 0, 0, (R.Right - R.Left), (R.Bottom - R.Top), + SWP_NOMOVE or SWP_NOZORDER or SWP_FRAMECHANGED or SWP_NOSENDCHANGING); +end; + +{----------------------------------------------------------------------------- + Procedure: TfrmMain.FormCreate + Author: mh + Date: 31-Mrz-2003 + Arguments: Sender: TObject + Result: None +-----------------------------------------------------------------------------} + +procedure TfrmMain.FormCreate(Sender: TObject); +begin + RemoveTitleBar(Handle); +end; + +{----------------------------------------------------------------------------- + Procedure: TfrmMain.cntHeaderPaint + Author: mh + Date: 31-Mrz-2003 + Arguments: Sender: TObject; Rect: TRect; ACanvas: TCanvas; AFont: TFont + Result: None +-----------------------------------------------------------------------------} + +procedure TfrmMain.cntHeaderPaint(Sender: TObject; Rect: TRect; + ACanvas: TCanvas; AFont: TFont); +var + i: Integer; +begin + with ACanvas do + begin + for i := Rect.Top to Rect.Bottom do + begin + Pen.Color := clGray; + Rectangle(Rect.Left + 1, Rect.Top + i shl 1, Rect.Right - 1, + Rect.Top + i shl 1 + 1); + end; + Brush.Color := clBtnFace; + DrawText(Handle, PChar(' ' + Application.Title + ' '), -1, Rect, + DT_SINGLELINE or DT_VCENTER or DT_CENTER or DT_END_ELLIPSIS); + end; +end; + +{----------------------------------------------------------------------------- + Procedure: TfrmMain.cntHeaderMouseDown + Author: mh + Date: 31-Mrz-2003 + Arguments: Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer + Result: None +-----------------------------------------------------------------------------} + +procedure TfrmMain.cntHeaderMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + Perform(WM_SYSCOMMAND, $F012, 0); +end; + +{----------------------------------------------------------------------------- + Procedure: TfrmMain.btnCloseClick + Author: mh + Date: 31-Mrz-2003 + Arguments: Sender: TObject + Result: None +-----------------------------------------------------------------------------} + +procedure TfrmMain.btnCloseClick(Sender: TObject); +begin + Close; +end; + +{----------------------------------------------------------------------------- + Procedure: TfrmMain.cntNetPanelPaint + Author: mh + Date: 31-Mrz-2003 + Arguments: Sender: TObject; Rect: TRect; ACanvas: TCanvas; AFont: TFont + Result: None +-----------------------------------------------------------------------------} + +procedure TfrmMain.cntNetPanelPaint(Sender: TObject; Rect: TRect; + ACanvas: TCanvas; AFont: TFont); +var + Control: TControl; + EdgeColor: TColor; +begin + Control := TControl(Sender); + EdgeColor := TForm(Control.Parent).Color; + ACanvas.Pixels[0, 0] := EdgeColor; + ACanvas.Pixels[Control.Width - 1, 0] := EdgeColor; +end; + +{----------------------------------------------------------------------------- + Procedure: TfrmMain.acGenerateExecute + Author: mh + Date: 31-Mrz-2003 + Arguments: Sender: TObject + Result: None +-----------------------------------------------------------------------------} + +procedure TfrmMain.acBtn1Execute(Sender: TObject); +begin + // +end; + +{----------------------------------------------------------------------------- + Procedure: TfrmMain.acBtn3Execute + Author: mh + Date: 31-Mrz-2003 + Arguments: Sender: TObject + Result: None +-----------------------------------------------------------------------------} + +procedure TfrmMain.acBtn3Execute(Sender: TObject); +begin + // +end; + +{----------------------------------------------------------------------------- + Procedure: TfrmMain.chkToogleEnableClick + Author: mh + Date: 31-Mrz-2003 + Arguments: Sender: TObject + Result: None +-----------------------------------------------------------------------------} + +procedure TfrmMain.chkToogleEnableClick(Sender: TObject); +begin + acBtn1.Enabled := not chkToogleEnable.Checked; + acBtn3.Enabled := not chkToogleEnable.Checked; +end; + +{----------------------------------------------------------------------------- + Procedure: TfrmMain.chkOfficeStyleClick + Author: mh + Date: 31-Mrz-2003 + Arguments: Sender: TObject + Result: None +-----------------------------------------------------------------------------} + +procedure TfrmMain.chkOfficeStyleClick(Sender: TObject); +begin + styleOffice.Theme := TJvXPTheme(chkOfficeStyle.Checked); +end; + +end. diff --git a/components/jvcllaz/examples/XPCtrls/SimpleDemo.lpi b/components/jvcllaz/examples/XPCtrls/SimpleDemo.lpi new file mode 100644 index 000000000..9c9c684ea --- /dev/null +++ b/components/jvcllaz/examples/XPCtrls/SimpleDemo.lpi @@ -0,0 +1,82 @@ + + + + + + + + + + <ResourceType Value="res"/> + <UseXPManifest Value="True"/> + <XPManifest> + <TextName Value="CompanyName.ProductName.AppName"/> + <TextDesc Value="Your application description."/> + </XPManifest> + <Icon Value="0"/> + </General> + <BuildModes Count="1"> + <Item1 Name="Default" Default="True"/> + </BuildModes> + <PublishOptions> + <Version Value="2"/> + </PublishOptions> + <RunParams> + <local> + <FormatVersion Value="1"/> + </local> + </RunParams> + <RequiredPackages Count="2"> + <Item1> + <PackageName Value="JvXPCtrlsLaz"/> + </Item1> + <Item2> + <PackageName Value="LCL"/> + </Item2> + </RequiredPackages> + <Units Count="2"> + <Unit0> + <Filename Value="SimpleDemo.lpr"/> + <IsPartOfProject Value="True"/> + </Unit0> + <Unit1> + <Filename Value="MainFrm.pas"/> + <IsPartOfProject Value="True"/> + <ComponentName Value="frmMain"/> + <HasResources Value="True"/> + <ResourceBaseClass Value="Form"/> + </Unit1> + </Units> + </ProjectOptions> + <CompilerOptions> + <Version Value="11"/> + <PathDelim Value="\"/> + <Target> + <Filename Value="SimpleDemo"/> + </Target> + <SearchPaths> + <IncludeFiles Value="$(ProjOutDir)"/> + <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> + </SearchPaths> + <Linking> + <Options> + <Win32> + <GraphicApplication Value="True"/> + </Win32> + </Options> + </Linking> + </CompilerOptions> + <Debugging> + <Exceptions Count="3"> + <Item1> + <Name Value="EAbort"/> + </Item1> + <Item2> + <Name Value="ECodetoolError"/> + </Item2> + <Item3> + <Name Value="EFOpenError"/> + </Item3> + </Exceptions> + </Debugging> +</CONFIG> diff --git a/components/jvcllaz/examples/XPCtrls/SimpleDemo.lpr b/components/jvcllaz/examples/XPCtrls/SimpleDemo.lpr new file mode 100644 index 000000000..491802185 --- /dev/null +++ b/components/jvcllaz/examples/XPCtrls/SimpleDemo.lpr @@ -0,0 +1,13 @@ +program SimpleDemo; + +uses + Forms, Interfaces, + MainFrm in 'MainFrm.pas', JvXPCtrlsLaz {frmMain}; + +{$R *.res} + +begin + Application.Initialize; + Application.CreateForm(TfrmMain, frmMain); + Application.Run; +end.