From da22de60f0c6a56feb060235749c7edd83270bbd Mon Sep 17 00:00:00 2001 From: Mark van Renswoude Date: Wed, 1 Sep 2004 11:19:37 +0000 Subject: [PATCH] Added: AssignTo implementations Added: component bitmaps Added: design-time editors --- Packages/D6/X2CLGL.cfg | 4 +- Packages/D6/X2CLGL.dof | 201 ++++++++++---------------- Packages/D6/X2CLGLD.cfg | 4 +- Packages/D6/X2CLGLD.dof | 22 +-- Packages/D6/X2CLGLD.dpk | 6 +- Packages/X2CLGLEditors.pas | 81 +++++++++++ Packages/X2CLGLReg.pas | 8 +- Resources/GraphicList.dcr | Bin 0 -> 944 bytes Resources/GraphicList.rc | 2 + Resources/Source/GraphicList.pspimage | Bin 0 -> 4373 bytes Resources/TX2GraphicContainer.bmp | Bin 0 -> 406 bytes Resources/TX2GraphicList.bmp | Bin 0 -> 406 bytes Source/X2CLGraphicList.pas | 51 ++++++- Test/Forms/FMainGL.dfm | 2 - Test/Forms/FMainGL.pas | 2 +- 15 files changed, 231 insertions(+), 152 deletions(-) create mode 100644 Packages/X2CLGLEditors.pas create mode 100644 Resources/GraphicList.dcr create mode 100644 Resources/GraphicList.rc create mode 100644 Resources/Source/GraphicList.pspimage create mode 100644 Resources/TX2GraphicContainer.bmp create mode 100644 Resources/TX2GraphicList.bmp diff --git a/Packages/D6/X2CLGL.cfg b/Packages/D6/X2CLGL.cfg index c41c879..6e647be 100644 --- a/Packages/D6/X2CLGL.cfg +++ b/Packages/D6/X2CLGL.cfg @@ -32,5 +32,5 @@ -M -$M16384,1048576 -K$00400000 --LE"c:\program files\borland\delphi6\Projects\Bpl" --LN"c:\program files\borland\delphi6\Projects\Bpl" +-LE"c:\delphi6\Projects\Bpl" +-LN"c:\delphi6\Projects\Bpl" diff --git a/Packages/D6/X2CLGL.dof b/Packages/D6/X2CLGL.dof index 092321f..e910286 100644 --- a/Packages/D6/X2CLGL.dof +++ b/Packages/D6/X2CLGL.dof @@ -56,10 +56,6 @@ HostApplication= Launcher= UseLauncher=0 DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir= [Version Info] IncludeVerInfo=1 AutoIncBuild=0 @@ -85,125 +81,84 @@ OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= +[Excluded Packages] +c:\delphi6\Projects\Bpl\PNGImage_D6.bpl=PNGImage +c:\delphi6\Bin\dcl31w60.bpl=Delphi 1.0 Compatibility Components +c:\delphi6\Bin\dclact60.bpl=Borland ActionBar Components +c:\delphi6\Bin\applet60.bpl=Borland Control Panel Applet Package +C:\Delphi6\Bin\dbx60.bpl=Borland SQL Explorer UI Package +C:\Delphi6\Projects\Bpl\tb2k_d6.bpl=Toolbar2000 Components (Jordan Russell) +c:\delphi6\Projects\Bpl\tb2kdsgn_d6.bpl=Toolbar2000 Design Package (Jordan Russell) +c:\delphi6\Bin\DCLNMF60.bpl=NetMasters Fastnet Tools +c:\delphi6\Bin\dclado60.bpl=Borland ADO DB Components +c:\delphi6\Bin\dclclxdb60.bpl=Borland CLX Database Components +C:\Delphi6\Bin\dclclxstd60.bpl=Borland CLX Standard Components +c:\delphi6\Bin\dclie60.bpl=Internet Explorer Components +C:\Delphi6\Projects\Bpl\aSQLitepkg.bpl=Aducom Software -- SQLite RunTime Components +c:\delphi6\Projects\Bpl\asqlite.bpl=Aducom Software -- SQLite Design Time Components +c:\delphi6\Projects\Bpl\PCtrlExd6.bpl=PageControlEx +c:\delphi6\Projects\Bpl\JvCoreD6D.bpl=JVCL Core Components +c:\delphi6\Projects\Bpl\JvSystemD6D.bpl=JVCL System Components +c:\delphi6\Projects\Bpl\JvStdCtrlsD6D.bpl=JVCL Standard Controls +c:\delphi6\Projects\Bpl\JvCtrlsD6D.bpl=JVCL Visual Controls +c:\delphi6\Projects\Bpl\JvCmpD6D.bpl=JVCL Non-Visual Components +c:\delphi6\Projects\Bpl\JvCustomD6D.bpl=JVCL Custom Controls +c:\delphi6\Projects\Bpl\JvDlgsD6D.bpl=JVCL Dialog Components +c:\delphi6\Projects\Bpl\JvCryptD6D.bpl=JVCL Encryption and Compression Components +c:\delphi6\Projects\Bpl\JvMMD6D.bpl=JVCL Multimedia and Image Components +c:\delphi6\Projects\Bpl\JvNetD6D.bpl=JVCL Network Components +c:\delphi6\Projects\Bpl\JvAppFrmD6D.bpl=JVCL Application and Form Components +c:\delphi6\Projects\Bpl\JvDBD6D.bpl=JVCL Database Components +c:\delphi6\Projects\Bpl\JvBDED6D.bpl=JVCL BDE Components +c:\delphi6\Projects\Bpl\JvInterpreterD6D.bpl=JVCL Interpreter Components +c:\delphi6\Projects\Bpl\JvBandsD6D.bpl=JVCL Band Objects +c:\delphi6\Projects\Bpl\JvPluginD6D.bpl=JVCL Plugin Components +c:\delphi6\Projects\Bpl\JvJansD6D.bpl=JVCL Jans Components +c:\delphi6\Projects\Bpl\JvGlobusD6D.bpl=JVCL Globus Components +c:\delphi6\Projects\Bpl\JvPrintPreviewD6D.bpl=JVCL Print Preview Components +c:\delphi6\Projects\Bpl\JvPageCompsD6D.bpl=JVCL Page Style Components +c:\delphi6\Projects\Bpl\JvValidatorsD6D.bpl=JVCL Validators and Error Provider Components +c:\delphi6\Projects\Bpl\JvUIBD6D.bpl=JVCL Unified Interbase Components +c:\delphi6\Projects\Bpl\JvWizardD6D.bpl=JVCL Wizard Design Time Package +c:\delphi6\Projects\Bpl\JvTimeFrameworkD6D.bpl=JVCL Time Framework +c:\delphi6\Projects\Bpl\JvHMID6D.bpl=JVCL HMI Controls design time unit +c:\delphi6\Projects\Bpl\JvManagedThreadsD6D.bpl=JVCL Managed Threads +c:\delphi6\Projects\Bpl\JvXPCtrlsD6D.bpl=JVCL XP Controls +c:\delphi6\Projects\Bpl\JvDockingD6D.bpl=JVCL Docking Components +c:\delphi6\Projects\Bpl\JvDotNetCtrlsD6D.bpl=JVCL DotNet Controls +c:\delphi6\Projects\Bpl\dclIndyCore60.bpl=Indy 10 Core Design Time +c:\delphi6\Projects\Bpl\dclIndyProtocols60.bpl=Indy 10 Protocols Design Time +c:\delphi6\Projects\Bpl\SysILS.bpl=System ImageList +c:\delphi6\Projects\Bpl\DragDropD6.bpl=Drag and Drop Component Suite +C:\Projects\Components\DevExpress\OrgChart Suite\Lib\dcldxOrgCD6.bpl=ExpressOrgChart by Developer Express Inc. +C:\Projects\Components\DevExpress\OrgChart Suite\Lib\dcldxDBOrD6.bpl=ExpressDBOrgChart by Developer Express Inc. +c:\delphi6\Projects\Bpl\BalloonD6.bpl=Balloon 2.0 +c:\delphi6\Projects\Bpl\DIPasDocD6.bpl=DiPasDoc - Designtime +C:\Delphi6\Projects\Bpl\DIContainers_D6.bpl=The Delphi Inspiration -- DIContainers +c:\delphi6\Bin\dclshlctrls60.bpl=Shell Control Property and Component Editors +c:\delphi6\Bin\dclsmp60.bpl=Borland Sample Components +c:\delphi6\Bin\dclbde60.bpl=Borland BDE DB Components +c:\delphi6\Bin\dclcds60.bpl=Borland Base Cached ClientDataset Component +C:\Delphi6\Bin\dclmid60.bpl=Borland MyBase DataAccess Components +c:\delphi6\Bin\dclbdecds60.bpl=Borland Local BDE ClientDataset Components +c:\delphi6\Bin\dclib60.bpl=InterBase Data Access Components +c:\delphi6\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package +c:\delphi6\Bin\dcloffice2k60.bpl=Microsoft Office 2000 Sample Automation Server Wrapper Components +c:\delphi6\Bin\dcltee60.bpl=TeeChart Components +c:\delphi6\Bin\dcltqr60.bpl=TeeChart for QuickReport Components +c:\delphi6\Bin\dclnet60.bpl=Borland Internet Components +c:\delphi6\Bin\dclite60.bpl=Borland Integrated Translation Environment +c:\delphi6\Bin\dcldbx60.bpl=Borland dbExpress Components +c:\delphi6\Bin\dclsoap60.bpl=Borland SOAP Components +c:\delphi6\Bin\dclocx60.bpl=Borland Sample Imported ActiveX Controls +c:\delphi6\Bin\dcldbxcds60.bpl=Borland Local DBX ClientDataset Components +C:\Program Files\madCollection\madRemote\Delphi 6\madRemote_.bpl=madRemote 1.1b · www.madshi.net +C:\Program Files\madCollection\madKernel\Delphi 6\madKernel_.bpl=madKernel 1.3 · www.madshi.net +C:\Program Files\madCollection\madCodeHook\Delphi 6\madCodeHook_.bpl=madCodeHook 2.1b · www.madshi.net +C:\Program Files\madCollection\madSecurity\Delphi 6\madSecurity_.bpl=madSecurity 1.1n · www.madshi.net +C:\Program Files\madCollection\madShell\Delphi 6\madShell_.bpl=madShell 1.3k · www.madshi.net +C:\WINDOWS\System32\ibevnt60.bpl=Borland Interbase Event Alerter Component +c:\delphi6\Projects\Bpl\PsychoTidyD6.bpl=PsychoTidy IDE Expert [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[Excluded Packages] -C:\Program Files\Borland\Delphi6\Bin\dcldb60.bpl=Borland Database Components -c:\program files\borland\delphi6\Projects\Bpl\VirtualTreesD6D.bpl=Virtual Treeview -C:\Program Files\Borland\Delphi6\Bin\dclact60.bpl=Borland ActionBar Components -c:\program files\borland\delphi6\Bin\dclcds60.bpl=Borland Base Cached ClientDataset Component -C:\Program Files\Borland\Delphi6\Bin\dclmid60.bpl=Borland MyBase DataAccess Components -C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\JvCoreD6D.bpl=JVCL Core Components -C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\JvStdCtrlsD6D.bpl=JVCL Standard Controls -C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\tbx_d6.bpl=Toolbar2000 -- TBX Extensions (Alex Denisov) -C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\tb2k_d6.bpl=Toolbar2000 Components (Jordan Russell) -c:\program files\borland\delphi6\Projects\Bpl\tbxdsgn_d6.bpl=Toolbar2000 -- TBX Extensions Design Package (Alex Denisov) -C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\tb2kdsgn_d6.bpl=Toolbar2000 Design Package (Jordan Russell) -c:\program files\borland\delphi6\Bin\applet60.bpl=Borland Control Panel Applet Package -F:\Delphi\Components\DevExpress\OrgChart Suite\Lib\dcldxOrgCD6.bpl=ExpressOrgChart by Developer Express Inc. -F:\Delphi\Components\DevExpress\OrgChart Suite\Lib\dcldxDBOrD6.bpl=ExpressDBOrgChart by Developer Express Inc. -C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\PNGImage_D6.bpl=PNGImage -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvCtrlsD6D.bpl=JVCL Visual Controls -c:\program files\borland\delphi6\Projects\Bpl\dclIndyCore60.bpl=Indy 10 Core Design Time -c:\program files\borland\delphi6\Projects\Bpl\dclIndyProtocols60.bpl=Indy 10 Protocols Design Time -c:\program files\borland\delphi6\Projects\Bpl\BalloonD6.bpl=Balloon 2.0 -c:\program files\borland\delphi6\Projects\Bpl\SysILS.bpl=(untitled) -c:\program files\borland\delphi6\Projects\Bpl\DragDropD6.bpl=Drag and Drop Component Suite -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvCustomD6D.bpl=JVCL Custom Controls -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvWizardD6D.bpl=JVCL Wizard Design Time Package -C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\GR32_D6.bpl=Graphics32 -c:\program files\borland\delphi6\Projects\Bpl\GR32_DSGN_D6.bpl=Graphics32 Design Time Package -c:\program files\borland\delphi6\Projects\Bpl\TntUnicodeVcl_D60.bpl=Tnt Unicode Controls -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvJansD6D.bpl=JVCL Jans Components -c:\program files\borland\delphi6\Projects\Bpl\P164_D60.bpl=TurboPower OfficePartner 1.64 Design-time package - VCL60 -c:\program files\borland\delphi6\Projects\Bpl\v103_d60.bpl=TurboPower VisualPlanIt 1.03 designtime package - VCL60 -c:\program files\borland\delphi6\Bin\dclsoap60.bpl=Borland SOAP Components -c:\program files\borland\delphi6\Projects\Bpl\ColorPickerButtonD6.bpl=ColorPickerButton -C:\Program Files\Borland\Delphi6\Projects\Bpl\ThreadNameExpert60.bpl=JCL Thread Name IDE expert for Delphi 6 -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvDlgsD6D.bpl=JVCL Dialog Components -c:\program files\borland\delphi6\Projects\Bpl\asqlite.bpl=Aducom Software -- SQLite Design Time Components -C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\aSQLitepkg.bpl=Aducom Software -- SQLite RunTime Components -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvAppFrmD6D.bpl=JVCL Application and Form Components -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvBandsD6D.bpl=JVCL Band Objects -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvCmpD6D.bpl=JVCL Non-Visual Components -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvCryptD6D.bpl=JVCL Encryption and Compression Components -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvDockingD6D.bpl=JVCL Docking Components -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvDotNetCtrlsD6D.bpl=JVCL DotNet Controls -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvGlobusD6D.bpl=JVCL Globus Components -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvHMID6D.bpl=JVCL HMI Controls design time unit -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvInterpreterD6D.bpl=JVCL Interpreter Components -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvManagedThreadsD6D.bpl=JVCL Managed Threads -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvMMD6D.bpl=JVCL Multimedia and Image Components -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvNetD6D.bpl=JVCL Network Components -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvPageCompsD6D.bpl=JVCL Page Style Components -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvPluginD6D.bpl=JVCL Plugin Components -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvPrintPreviewD6D.bpl=JVCL Print Preview Components -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvSystemD6D.bpl=JVCL System Components -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvTimeFrameworkD6D.bpl=JVCL Time Framework -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvValidatorsD6D.bpl=JVCL Validators and Error Provider Components -C:\Program Files\Borland\Delphi6\Projects\Bpl\JvXPCtrlsD6D.bpl=JVCL XP Controls -c:\program files\borland\delphi6\Projects\Bpl\GJLSoftwareD5.bpl=GJL Software ExDBGrid Components -c:\program files\borland\delphi6\Projects\Bpl\FREEREP6.bpl=FreeReport 2.32 Components -c:\program files\borland\delphi6\Projects\Bpl\PageControlExD6.bpl=PageControlEx -c:\program files\borland\delphi6\Projects\Bpl\ZCore.bpl=Zeos Core Classes and Intefaces -c:\program files\borland\delphi6\Projects\Bpl\ZParse.bpl=Zeos Parsing Classes and Intefaces -c:\program files\borland\delphi6\Projects\Bpl\ZParseSql.bpl=Zeos SQL Parsing Classes and Intefaces -c:\program files\borland\delphi6\Projects\Bpl\ZPlain.bpl=Zeos Plain Database API -c:\program files\borland\delphi6\Projects\Bpl\ZDbc.bpl=Zeos Low Level Database API -c:\program files\borland\delphi6\Projects\Bpl\ZComponent.bpl=Zeos Database Components -c:\program files\borland\delphi6\Projects\Bpl\IconXPD6.bpl=IconXP -c:\program files\borland\delphi6\Projects\Bpl\NLDVDBT_D6D.bpl=NLDVirtualDBTree -c:\program files\borland\delphi6\Projects\Bpl\ff2_d60.bpl=TurboPower FlashFiler Designtime Package - VCL60 -c:\program files\borland\delphi6\Projects\Bpl\SynEdit_D6.bpl=SynEdit component suite -c:\program files\borland\delphi6\Projects\Bpl\DelphiX_for5.bpl=DelphiX - DirectX components for Delphi -c:\program files\borland\delphi6\Projects\Bpl\NLDMBD6D.bpl=NLDMessageBox -c:\program files\borland\delphi6\Bin\dcl31w60.bpl=Delphi 1.0 Compatibility Components -c:\program files\borland\delphi6\Projects\Bpl\NLDTrayIconD6.bpl=NLDTrayIcon donated by SVG_1986 -c:\program files\borland\delphi6\Projects\Bpl\ServerListD6D.bpl=SOF2Manager - Server List Designtime -F:\Delphi\Components\madCollection\madBasic\Delphi 6\madHelp_.bpl=madHelp 1.1 · www.madshi.net -F:\Delphi\Components\madCollection\madRemote\Delphi 6\madRemote_.bpl=madRemote 1.1a · www.madshi.net -F:\Delphi\Components\madCollection\madKernel\Delphi 6\madKernel_.bpl=madKernel 1.2z · www.madshi.net -F:\Delphi\Components\madCollection\madCodeHook\Delphi 6\madCodeHook_.bpl=madCodeHook 2.0a · www.madshi.net -F:\Delphi\Components\madCollection\madSecurity\Delphi 6\madSecurity_.bpl=madSecurity 1.1n · www.madshi.net -F:\Delphi\Components\madCollection\madShell\Delphi 6\madShell_.bpl=madShell 1.3i · www.madshi.net -c:\program files\borland\delphi6\Projects\Bpl\BMSpinEditD6.bpl=BMSpinEdit -c:\program files\borland\delphi6\Projects\Bpl\GLScene6.bpl=GLScene - OpenGL 3D library -c:\program files\borland\delphi6\Bin\dclsmp60.bpl=Borland Sample Components -c:\program files\borland\delphi6\Projects\Bpl\X2MultiMon_D6D.bpl=X2MultiMon Designtime Package -F:\Delphi\Components\ZipForge\Lib\Delphi 6\dclZipForged6.bpl=ZipForge Package -c:\program files\borland\delphi6\Bin\dclado60.bpl=Borland ADO DB Components -c:\program files\borland\delphi6\Bin\dclbde60.bpl=Borland BDE DB Components -C:\Program Files\Borland\Delphi6\Bin\dbx60.bpl=Borland SQL Explorer UI Package -c:\program files\borland\delphi6\Bin\DCLIB60.bpl=InterBase Data Access Components -c:\program files\borland\delphi6\Bin\dclbdecds60.bpl=Borland Local BDE ClientDataset Components -c:\program files\borland\delphi6\Bin\dclqrt60.bpl=QuickReport Components -c:\program files\borland\delphi6\Bin\dcltee60.bpl=TeeChart Components -c:\program files\borland\delphi6\Bin\dcldss60.bpl=Borland Decision Cube Components -c:\program files\borland\delphi6\Bin\dcltqr60.bpl=TeeChart for QuickReport Components -c:\program files\borland\delphi6\Bin\dclclxdb60.bpl=Borland CLX Database Components -C:\Program Files\Borland\Delphi6\Bin\dclclxstd60.bpl=Borland CLX Standard Components -c:\program files\borland\delphi6\Bin\dclmcn60.bpl=Borland DataSnap Connection Components -c:\program files\borland\delphi6\Bin\dclshlctrls60.bpl=Shell Control Property and Component Editors -c:\program files\borland\delphi6\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package -c:\program files\borland\delphi6\Bin\dclwbm60.bpl=Borland InternetExpress Components -c:\program files\borland\delphi6\Bin\dclie60.bpl=Internet Explorer Components -c:\program files\borland\delphi6\Bin\dclwebsnap60.bpl=Borland WebSnap Components -c:\program files\borland\delphi6\Bin\dclite60.bpl=Borland Integrated Translation Environment -c:\program files\borland\delphi6\Bin\dcldbx60.bpl=Borland dbExpress Components -c:\program files\borland\delphi6\Bin\dcldbxcds60.bpl=Borland Local DBX ClientDataset Components -H:\Downloads\commentexpert.bpl=Comment Expert v1.0 Alpha -c:\program files\borland\delphi6\Projects\Bpl\dclIndy60.bpl=Internet Direct (Indy) for D6 Property and Component Editors -C:\WINDOWS\System32\ibevnt60.bpl=Borland Interbase Event Alerter Component -[Included Packages] -C:\Program Files\Borland\Delphi6\Bin\dclstd60.bpl=Borland Standard Components -F:\Delphi\Components\madCollection\madBasic\Delphi 6\madBasic_.bpl=madBasic 1.1f · www.madshi.net -F:\Delphi\Components\madCollection\madDisAsm\Delphi 6\madDisAsm_.bpl=madDisAsm 2.0a · www.madshi.net -F:\Delphi\Components\madCollection\madExcept\Delphi 6\madExcept_.bpl=madExcept 2.6a · www.madshi.net -F:\Delphi\Components\madCollection\madExcept\Delphi 6\madExceptWizard_.bpl=madExceptWizard 2.6 · www.madshi.net -c:\program files\borland\delphi6\Bin\dclsmpedit60.bpl=Borland Editor Script Enhancements -C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\ThemeManager6.bpl=Windows XP Theme Manager -c:\program files\borland\delphi6\Projects\Bpl\X2CLGLD.bpl=X²CL GraphicList (Designtime) -c:\program files\borland\delphi6\Bin\dclnet60.bpl=Borland Internet Components -F:\Delphi\Components\madCollection\madExcept\Delphi 6\madExceptIde_.bpl=madExceptIde 1.0b · www.madshi.net -c:\program files\borland\delphi6\Bin\dclemacsedit60.bpl=Borland Editor Emacs Enhancements diff --git a/Packages/D6/X2CLGLD.cfg b/Packages/D6/X2CLGLD.cfg index c41c879..6e647be 100644 --- a/Packages/D6/X2CLGLD.cfg +++ b/Packages/D6/X2CLGLD.cfg @@ -32,5 +32,5 @@ -M -$M16384,1048576 -K$00400000 --LE"c:\program files\borland\delphi6\Projects\Bpl" --LN"c:\program files\borland\delphi6\Projects\Bpl" +-LE"c:\delphi6\Projects\Bpl" +-LN"c:\delphi6\Projects\Bpl" diff --git a/Packages/D6/X2CLGLD.dof b/Packages/D6/X2CLGLD.dof index 11e1f72..ccc75eb 100644 --- a/Packages/D6/X2CLGLD.dof +++ b/Packages/D6/X2CLGLD.dof @@ -56,6 +56,10 @@ HostApplication= Launcher= UseLauncher=0 DebugCWD= +[Language] +ActiveLang= +ProjectLang= +RootDir= [Version Info] IncludeVerInfo=1 AutoIncBuild=0 @@ -81,9 +85,6 @@ OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Excluded Packages] C:\Program Files\Borland\Delphi6\Bin\dcldb60.bpl=Borland Database Components c:\program files\borland\delphi6\Projects\Bpl\VirtualTreesD6D.bpl=Virtual Treeview @@ -191,15 +192,6 @@ c:\program files\borland\delphi6\Bin\dcldbxcds60.bpl=Borland Local DBX ClientDat H:\Downloads\commentexpert.bpl=Comment Expert v1.0 Alpha c:\program files\borland\delphi6\Projects\Bpl\dclIndy60.bpl=Internet Direct (Indy) for D6 Property and Component Editors C:\WINDOWS\System32\ibevnt60.bpl=Borland Interbase Event Alerter Component -[Included Packages] -C:\Program Files\Borland\Delphi6\Bin\dclstd60.bpl=Borland Standard Components -F:\Delphi\Components\madCollection\madBasic\Delphi 6\madBasic_.bpl=madBasic 1.1f · www.madshi.net -F:\Delphi\Components\madCollection\madDisAsm\Delphi 6\madDisAsm_.bpl=madDisAsm 2.0a · www.madshi.net -F:\Delphi\Components\madCollection\madExcept\Delphi 6\madExcept_.bpl=madExcept 2.6a · www.madshi.net -F:\Delphi\Components\madCollection\madExcept\Delphi 6\madExceptWizard_.bpl=madExceptWizard 2.6 · www.madshi.net -c:\program files\borland\delphi6\Bin\dclsmpedit60.bpl=Borland Editor Script Enhancements -C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\ThemeManager6.bpl=Windows XP Theme Manager -c:\program files\borland\delphi6\Projects\Bpl\X2CLGLD.bpl=X²CL GraphicList (Designtime) -c:\program files\borland\delphi6\Bin\dclnet60.bpl=Borland Internet Components -F:\Delphi\Components\madCollection\madExcept\Delphi 6\madExceptIde_.bpl=madExceptIde 1.0b · www.madshi.net -c:\program files\borland\delphi6\Bin\dclemacsedit60.bpl=Borland Editor Emacs Enhancements +[HistoryLists\hlUnitAliases] +Count=1 +Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; diff --git a/Packages/D6/X2CLGLD.dpk b/Packages/D6/X2CLGLD.dpk index a64800e..0a993c4 100644 --- a/Packages/D6/X2CLGLD.dpk +++ b/Packages/D6/X2CLGLD.dpk @@ -28,9 +28,11 @@ package X2CLGLD; requires rtl, - X2CLGL; + X2CLGL, + designide; contains - X2CLGLReg in '..\X2CLGLReg.pas'; + X2CLGLReg in '..\X2CLGLReg.pas', + X2CLGLEditors in '..\X2CLGLEditors.pas'; end. diff --git a/Packages/X2CLGLEditors.pas b/Packages/X2CLGLEditors.pas new file mode 100644 index 0000000..9e23f8a --- /dev/null +++ b/Packages/X2CLGLEditors.pas @@ -0,0 +1,81 @@ +{ + :: Contains the design-time editor for the GraphicList + :: + :: Last changed: $Date$ + :: Revision: $Rev$ + :: Author: $Author$ +} +unit X2CLGLEditors; + +interface +uses + DesignEditors, + DesignIntf; + +type + TX2GraphicContainerEditor = class(TComponentEditor) + private + procedure FindGraphics(const Prop: IProperty); + public + procedure Edit(); override; + end; + + TX2GraphicListEditor = class(TComponentEditor) + public + procedure Edit(); override; + end; + +implementation +uses + SysUtils, + TypInfo, + Dialogs, + X2CLGraphicList; + + +{============== TX2GraphicContainerEditor + Editor +========================================} +procedure TX2GraphicContainerEditor.FindGraphics; +begin + if SameText(Prop.GetName(), 'Graphics') then + Prop.Edit(); +end; + +procedure TX2GraphicContainerEditor.Edit; +var + dsComponents: TDesignerSelections; + +begin + dsComponents := TDesignerSelections.Create(); + try + IDesignerSelections(dsComponents).Add(Component); + GetComponentProperties(dsComponents, tkProperties, Designer, FindGraphics); + finally + FreeAndNil(dsComponents); + end; +end; + + +{=================== TX2GraphicListEditor + Editor +========================================} +procedure TX2GraphicListEditor.Edit; +var + ifEditor: IComponentEditor; + +begin + // Instead of showing the default ImageList dialog, check if a Container + // is available and execute it's default action... + if Component is TX2GraphicList then + with TX2GraphicList(Component) do + if Assigned(Container) then + begin + ifEditor := GetComponentEditor(Container, Designer); + if Assigned(ifEditor) then + ifEditor.Edit(); + end; +end; + +end. + \ No newline at end of file diff --git a/Packages/X2CLGLReg.pas b/Packages/X2CLGLReg.pas index c23a885..23ad161 100644 --- a/Packages/X2CLGLReg.pas +++ b/Packages/X2CLGLReg.pas @@ -13,11 +13,17 @@ interface implementation uses Classes, - X2CLGraphicList; + DesignIntf, + X2CLGraphicList, + X2CLGLEditors; + +{$R ..\Resources\GraphicList.dcr} procedure Register; begin RegisterComponents('X²Software', [TX2GraphicContainer, TX2GraphicList]); + RegisterComponentEditor(TX2GraphicContainer, TX2GraphicContainerEditor); + RegisterComponentEditor(TX2GraphicList, TX2GraphicListEditor); end; end. diff --git a/Resources/GraphicList.dcr b/Resources/GraphicList.dcr new file mode 100644 index 0000000000000000000000000000000000000000..c9e29ece3afcef447c7b921a36777e6197872a6f GIT binary patch literal 944 zcmdUsu}Z^G6o&trX2}*@bPJsvgT+B`Xi>2SsYMOA_yV0IL<*TQbSRygF`Y4VL zB0hlc5&v_~O-rGD0RM8+zyCS+zrd&8#o{!r$df-#@PNvhYp+D~FgIh?7<;ki9Y~VL`l1N|II}^Gog) zFYhgjS)6hM6%@=fDM@l=xsb2z3Cs`@f4O9eE&X{cVzfTmbLx^LqVmiVnIbF%22(q1&p^0*PaZ8 z$lNlNtL&Irg~?fZ56Q5;;tm<6N@Ou-U)Ebr&Fwpmo34gq_LG(4Dp^)M<|dT9$=u5G Q+%>9{a5n{a!*D;`Kf#3kSO5S3 literal 0 HcmV?d00001 diff --git a/Resources/GraphicList.rc b/Resources/GraphicList.rc new file mode 100644 index 0000000..7d3d2d3 --- /dev/null +++ b/Resources/GraphicList.rc @@ -0,0 +1,2 @@ +TX2GRAPHICCONTAINER BITMAP TX2GraphicContainer.bmp +TX2GRAPHICLIST BITMAP TX2GraphicList.bmp \ No newline at end of file diff --git a/Resources/Source/GraphicList.pspimage b/Resources/Source/GraphicList.pspimage new file mode 100644 index 0000000000000000000000000000000000000000..036d0371449e2a9f67c9eb15a346e9dbceec7bb6 GIT binary patch literal 4373 zcmd5$}+>w!yXa!N$5T< z=31JL5geHZXEHN0;TT{tOEV6vhcasg5%!Ejlr@orhgtww7sZk|m=ZFB=EzJ5TA?5t z{9v2{0Q@s;qY(k7)mfyhmcRyyWBT)FEAZ?UEL?)%J#-#neg)e~$RvQh!svkCKu2E( z;P5!02Y&#Y!QoA4njFY)#3aaM$lSl-**VnyaSpAUok!9B?R~TTKhrro_y5phl|X<3 zV=hX-$pE|njv#=;UW1bWH%E9J4v#0|5s`>Q0+EA6=HMW4aF8in6f&6$3YnB6;Gdh!K_;W=|BA3$+(lTJBo+=BT_)l11R@EV=H%k$2Y4KTfF}}2 z5EfkN59a_;fF!tBL6c*?sU2CyQ%Er=E{h_oRamuP$Ma#ib@pDtoLs^pqGAh|ER|oj ze1(#-it2i`4O_Nq>*(s~8|>U=_OtnJi#_`s9QPk^a&|fFeZ=Re@3G?{Cqqw#g`bXy zKbvqa@qAKp%Ej!Q+)J0QyynrYYIZbH0pX z5JgBUE~~JLQ+C~s;RW_y&$)!JI!OQ%w_M{YocZe zO;OzoPc%mubkvVcSQhmKM^ZP8SYMWW(UV$zLN%qwS$U%tf9;D<<%SIr*8SyXJ$ZEk zk--&8xqTz5Q$i2vx>eM+Yjx_JjD5rByYF?KEZ20)?{DXeC@4^#jMiD+SMt1kW1jZ7 z+MZ<>oh&wK9p#sZj~h_mZIMq^{4`Fe!@$kNb3GVnI}f|X&jxo+>N6Tlr*D1nI5nfr zxXlq`Hxi)HN5%<*4<1Q%cl2sc+&K z7|rm&K;0+$=)6t2AvG=8X?gVp#qN*mTvj~x%3JRBcxifJxlQebyVDoC!@|A2B!w;~ zdM+_wMD#!1k#H}kB+5PYvS~$Ra+|79+Qk7{tZ!M(aq}}5G(6^WUwAf9M!59qx=2%{ zY}nIyw>!}ZszXa--@Ti9^%M}sH;xC41XL9W(Q3Mi$kn{^Z>iPWgK6uA&&0gFQW7Kd zDL}+KT6OOhmBQ;K_d}F#Jot4!MP4^tY>Bzm?bkuO#!gnmefcUjB0poWCZ=LQ^#}&C zQ|>p{CLKQ1xk|<-?Dn<>*AkV^(lWQwiL!&!2OgA1E<2;mW5vZEs^24`lr5S^^>KTn zZ`GOertI410Mo8v6OZrwL9;G1iQvtN~LCLg>~R-9y4B)ES#cA`H8DBioK_ zwq9ABF{wUCPdAM8^pJ~O*RWVWR&P||7HxAt&Bm!k7|5bxV17d#Y zpO@N~v#>Vw&g29);p-K>Md1U6`Hm!ka47LZ_JxezfD}0An|eLga9*V}WozG#j%Qm0 z^S4Y3Z8Q_icvrD$|a6k zy39M(C+Y9DCjYp%_KR$DiL}Fww+2bK%D&i6ZcEbh-sa?X+MQ?8W_vrJ(#wn|?xn6A z^=`m!6m2RC^yjcvODDDywAw_u=iY8Mc|AO&J?n+8u8&K6EG)%4UeFXX)6Q0XX`tOwQJac5 zD)B7;iF3k4Y*5{_gROO~7rOyFx`S#@SxwV1Pt@*DNsbY9?EN=P^M zL9*bsR+5F1NwoizlW?`%$0SqFUv0}G52)Vkba*-Kkf-oK=H2>XLr$1!UMomS8Wm1)GQXaN+m~2*!*xTCLGGaJI4{`1js9nB^ zE1Z}^T=_J~&K9m>Dv*&a+RLh%*YJ)oILZmOc({AR4=qQpxtf{Xim671d#@& z8QA#&`r9@0GgOXJr~~<5Tk-l6Q!W5g*tn>3%V+h5N6YqS81qZ;$sQ+W1PVyE?7iCY z?!IY+pz$yD3BJl-K6MyYDZZ$<+H1-SwV=qU-!nVJikul+zxJGdR3cHov~hy9P=8dq zK<6X-8zerbY#TnlB3)OF8?rjbmg?oi573@l$yIs3k=(FYG4|tf@2RZBAYr!pTuPM8 zU#Vx-!ZSMrKjit)2T70Hiop>nq`|&@5jrh7VR{AL8#bPmlaKQYlTj&PsA4Olcq-#e>~NI8N9>U$?W_ zgA;d7TE??EtSfMdttJauPjS_qCOb|+J&57c! ziCE*yJF{?ACd*TtKk$$e<838Lac^X&#J*kq;P)~%`P}DX*977IF#=1oL!sU@OY`@j zQBDzP_dp1`Nifv!?WtZ~HfReLXkG+5TKrEz)1#@suvD*RgO-FX9WvU3NOfQ!#$OqD U-cUSnKQ0$N&6v)nlx5lc6Z{=<4*&oF literal 0 HcmV?d00001 diff --git a/Resources/TX2GraphicContainer.bmp b/Resources/TX2GraphicContainer.bmp new file mode 100644 index 0000000000000000000000000000000000000000..a40854a0b2aaf3f1e0c02b8ad3227976d82afea9 GIT binary patch literal 406 zcmZvXv5LY#5QayLjoo%$x1_QZf`zTsv2e#VTlxZ45~6{vwy+Q@w>j88h>vpR6(T-> z@1g(9uGsj)O#XZ`|AfrHetRU^ppQ|bTsed_CZK zB5c&33^n0jPv8Qz5A2jve?0fIg;Fi}MVh8b;gp}R*n1*ozl%#h#wAmh<`RUVPnM`uGTU$