├── .gitignore ├── BatterflyTray ├── .gitignore ├── AppIcon.rc ├── AppIcon.res ├── Batterfly.res ├── Batterfly.skincfg ├── BatterflyTray.dpr ├── BatterflyTray.dproj ├── BatterflyTray.res ├── BatterflyTray.skincfg ├── LICENSE ├── README.md ├── ResAni │ ├── batterfly16.png │ ├── batterfly16_1.png │ ├── batterfly16_2.png │ ├── batterfly16_3.png │ ├── batterfly16_4.png │ ├── batterfly16_5.png │ ├── batterfly16_6.png │ ├── batterfly16_7.png │ └── batterfly16_8.png ├── ResPNG │ ├── Batterfly32.png │ ├── Batterfly64.png │ └── batterfly16.png ├── View │ ├── Template.dfm │ ├── Template.pas │ ├── View.Home.dfm │ ├── View.Home.pas │ ├── View.Main.dfm │ └── View.Main.pas ├── batterflyApp.ico └── batterflyTray.png ├── CheeKtool ├── .gitignore ├── BPLs │ ├── Bpl1.dpk │ ├── Bpl1.dproj │ ├── README │ └── Unit │ │ ├── README │ │ └── Unit1.pas ├── Bin │ ├── BPLUser │ │ └── README │ ├── CheeKtool.tmp │ │ └── README │ ├── DLLUser │ │ └── README │ ├── README │ └── UserLog.LOG ├── CheecKtool.dpr ├── CheecKtool.res ├── CheeckTool.dproj ├── CheeckTool_Icon.ico ├── DLLs │ ├── DLL1.dpr │ ├── DLL1.dproj │ └── README ├── Form │ ├── CheecKtool.png │ ├── README │ ├── untSplash.dfm │ └── untSplash.pas ├── LOGf │ ├── README │ └── UserLog.LOG ├── MainTools.dfm ├── MainTools.pas ├── README.md ├── TMPf │ ├── README │ ├── tmp1.txt │ ├── tmp2.txt │ └── tmp3.txt └── Unit │ ├── README │ └── ToolLib.pas ├── CheecKfont ├── .gitignore ├── CheckFont_Icon.ico ├── CheecKfont.png ├── CheeckFont.dpr ├── CheeckFont.dproj ├── CheeckFont.res ├── README.md ├── View │ ├── Main.dfm │ └── Main.pas └── unit │ └── ToolLib.pas ├── CompUPX ├── .gitignore ├── CompUpx.dpr ├── CompUpx.dproj ├── CompUpx.png ├── CompUpx.res ├── CompUpx_Icon.ico ├── LICENSE ├── ModelSupport_CompUpx │ ├── CompUpx │ │ ├── default.txaPackage │ │ └── default.txvpck │ ├── default.txaPackage │ ├── default.txvpck │ ├── uAbout │ │ ├── default.txaPackage │ │ └── default.txvpck │ ├── uFileChecker │ │ ├── default.txaPackage │ │ └── default.txvpck │ ├── uFileUtils │ │ ├── default.txaPackage │ │ └── default.txvpck │ ├── uMain │ │ ├── default.txaPackage │ │ └── default.txvpck │ ├── uOption │ │ ├── default.txaPackage │ │ └── default.txvpck │ └── uProgress │ │ ├── default.txaPackage │ │ └── default.txvpck ├── README.md ├── Unit │ ├── uFileChecker.pas │ └── uFileUtils.pas ├── View │ ├── uAbout.dfm │ ├── uAbout.pas │ ├── uMain.dfm │ ├── uMain.pas │ ├── uOption.dfm │ ├── uOption.pas │ ├── uProgress.dfm │ └── uProgress.pas └── bin │ └── upx.000 ├── CountDown ├── .gitignore ├── Bin │ ├── Bmp │ │ └── timer.bmp │ └── Wav │ │ ├── CloseClock.wav │ │ ├── IniClock.wav │ │ ├── OpenClock.wav │ │ └── TaktClock.wav ├── CountDouwnGrp.groupproj ├── CountDown.png ├── CountDownApp │ ├── CountDown.dpr │ ├── CountDown.dproj │ ├── CountDown.res │ ├── CountDown.skincfg │ ├── CountDown_Icon.ico │ ├── Res │ │ ├── Sound.rc │ │ └── Takt.wav │ ├── Unit │ │ ├── UCountDownTimer1.pas │ │ ├── UCountDownTimer2.pas │ │ ├── UCountDownTimer3.pas │ │ └── UCountDownTimer4.pas │ └── View │ │ ├── Main.dfm │ │ ├── Main.pas │ │ ├── uAbout.dfm │ │ └── uAbout.pas ├── CountDownDLL │ ├── CountDownDLL.dpr │ ├── CountDownDLL.dproj │ ├── CountDownDLL.res │ ├── CountDownDLL.skincfg │ ├── Unit │ │ └── CountDownDLL_Lib.pas │ └── View │ │ ├── uCountDown.dfm │ │ ├── uCountDown.pas │ │ ├── uOption.dfm │ │ └── uOption.pas ├── LICENSE └── README.md ├── CreEvent ├── .gitignore ├── CreEvent.dpr ├── CreEvent.dproj ├── CreEvent.res ├── CreEvent_.png ├── CreateEvent_Icon.ico ├── Form │ ├── Main.dfm │ └── Main.pas ├── Main.dfm ├── Main.pas ├── Module │ ├── Module.dfm │ └── Module.pas ├── Prototype.dof ├── README.md ├── Unit │ └── uEvent.pas └── uEvent.pas ├── Delphi-Collection.jpg ├── LICENSE ├── LoadUrlGif ├── .gitignore ├── LoadUrlGif.dpr ├── LoadUrlGif.dproj ├── LoadUrlGif.res ├── LoadUrlGif_.png ├── LoadUrlGif_Icon.ico ├── Main.dfm ├── Main.pas ├── README.md └── View │ ├── About.dfm │ ├── About.pas │ ├── README │ ├── Splash.dfm │ └── Splash.pas ├── MeteoChart ├── .gitignore ├── LICENSE ├── MeteoChart.dpr ├── MeteoChart.dproj ├── MeteoChart.png ├── MeteoChart.res ├── MeteoChart_Icon.ico ├── README.md ├── Unit │ ├── UInterfaces.pas │ ├── UMeteo.pas │ └── UObservable.pas ├── View │ ├── About.dfm │ ├── About.pas │ ├── Chart.dfm │ ├── Chart.pas │ ├── Logging.dfm │ ├── Logging.pas │ ├── Main.dfm │ └── Main.pas └── readme.txt ├── MyAlbumDLL ├── .gitignore ├── DLL │ ├── DLLImages.dpr │ ├── DLLImages.dproj │ ├── DLLImages.res │ ├── Resource │ │ ├── 01.jpg │ │ ├── 02.jpg │ │ ├── 03.jpg │ │ └── ResÍmage.rc │ └── ResÍmage.res ├── GrpMyAlbumDLL.groupproj ├── LICENSE ├── Mon projet │ ├── Main.dfm │ ├── Main.pas │ ├── MyAlbum.res │ ├── MyAlbumDLL.dpr │ ├── MyAlbumDLL.dproj │ ├── MyAlbumDLL.res │ ├── MyAlbum_Icon.ico │ ├── ResMusic.RES │ ├── uAbout.dfm │ └── uAbout.pas ├── MyAlbumDLL.png └── README.md ├── MyStringGrid ├── About │ ├── About.dfm │ └── About.pas ├── Api │ └── uIConnection.pas ├── BIN │ └── Data │ │ └── MyTest.db ├── Demo1.res ├── Implimentation │ └── uTConnection.pas ├── Main.dfm ├── Main.pas ├── Module │ ├── Module.dfm │ ├── Module.pas │ └── Module.pas.cbk ├── MyStringGrid.dpr ├── MyStringGrid.dproj ├── MyStringGrid.png ├── MyStringGrid.res ├── MyStringGrid_Icon.ico ├── Project1.res ├── README.md ├── SetupPrinter.dfm ├── SetupPrinter.pas ├── uSettingPrint.pas └── uStringGrid.pas ├── NOTyMSG ├── .gitignore ├── DEBUG │ ├── Libary │ │ ├── html │ │ │ └── main.htm │ │ ├── png │ │ │ └── test.png │ │ └── txt │ │ │ └── Notify.txt │ └── main.htm ├── NOTyMSG │ ├── MainRecieve.dfm │ ├── MainRecieve.pas │ ├── NOTyMSG.dpr │ ├── NOTyMSG.dproj │ ├── NOTyMSG.ico │ ├── NOTyMSG.res │ ├── NOTyMSG.skincfg │ └── Unit │ │ ├── UresApp.pas │ │ └── uScript.pas ├── NOTyMSG_.png ├── NOTyMSGgrp.groupproj ├── NOTySEND │ ├── MainSender.dfm │ ├── MainSender.pas │ ├── NOTySEND.dpr │ ├── NOTySEND.dproj │ ├── NOTySEND.ico │ ├── NOTySEND.res │ └── NOTySEND.skincfg ├── README.md └── clear.bat ├── README.md ├── RegisterKey ├── .gitignore ├── README.md ├── RegisterKey.dpr ├── RegisterKey.dproj ├── RegisterKey.png ├── RegisterKey_Icon.ico ├── Unit │ └── ToolLib.pas └── View │ ├── Main.dfm │ └── Main.pas ├── SoftwareLicense ├── About │ ├── About.dfm │ └── About.pas ├── Bin │ └── Doc │ │ ├── License.htm │ │ └── SoftwareLicense.html ├── Img │ └── VMSoftwareLicense.png ├── License.dfm ├── License.pas ├── Main.dfm ├── Main.pas ├── README.md ├── SoftwareLicense.dpr ├── SoftwareLicense.dproj ├── SoftwareLicense.png ├── SoftwareLicense.res ├── SoftwareLicense_Icon.ico ├── uExScrollBox.pas └── uToolLib.pas ├── StudNote ├── .gitignore ├── README.md ├── StudNote.dpr ├── StudNote.dproj ├── StudNote.res ├── StudNote_.png ├── StudNote_Icon.ico ├── Unit │ └── README.txt └── View │ ├── AboutSN.dfm │ ├── AboutSN.pas │ ├── ChartStudent.dfm │ ├── ChartStudent.pas │ ├── FormMain.dfm │ └── FormMain.pas ├── TColorCSV ├── Img │ └── MainView.png ├── LICENSE ├── README.md ├── TColorCSV.png └── src │ ├── .gitignore │ ├── About │ ├── About.dfm │ └── About.pas │ ├── BIN │ ├── Libary │ │ └── vsf │ │ │ └── Silver.vsf │ ├── Student.csv │ ├── TColorCSV.iss │ ├── gpl.txt │ ├── license.txt │ └── test │ ├── CSVUtils.pas │ ├── GridView.dfm │ ├── GridView.pas │ ├── Img_Res │ ├── MMP_128.png │ ├── MMP_128_Black.png │ ├── MMP_256_256.bmp │ ├── MMP_32.png │ ├── MMP_64.png │ ├── MMP_64_64.bmp │ ├── MMP_64_64.png │ ├── TColorCSV.ico │ ├── TColorCSV.png │ ├── TColorCSV_64_64.bmp │ ├── mmp_256.png │ ├── rainbow-star.bmp │ └── rainbow-star.png │ ├── MainView.png │ ├── ReadSaveCSV.res │ ├── ReadSaveCSV.skincfg │ ├── TColorCSV.dpr │ ├── TColorCSV.dproj │ ├── TColorCSV.res │ ├── TColorCSV.skincfg │ ├── TColorCSV_Icon.ico │ ├── TaColorCSV.skincfg │ ├── TabCSV.res │ ├── TabCSV.skincfg │ ├── VirtualForm.pas │ └── csvparser.pas ├── TraitExcept ├── .gitignore ├── DEBUG │ └── Exception │ │ ├── Exception_2019-04-20.txt │ │ └── Exception_2019-08-19.txt ├── Exception.res ├── Exception.skincfg ├── README.md ├── TraitExcept.dpr ├── TraitExcept.dproj ├── TraitExcept.png ├── TraitExcept.res ├── TraitException.res ├── TraitException.skincfg ├── TraitException_Icon.ico ├── Unit │ └── uSignal.pas └── View │ ├── UBase.dfm │ ├── UBase.pas │ ├── UMain.dfm │ ├── UMain.pas │ ├── UProgExcep.dfm │ ├── UProgExcep.pas │ ├── uAbout.dfm │ └── uAbout.pas └── XMLDLL ├── .gitignore ├── LICENSE ├── README.md ├── XMLDLL.png ├── XMLDLL_Grp.groupproj ├── bin ├── Plugins │ └── DLLHome │ │ └── Config.xml ├── Skins │ └── MainSkin │ │ ├── Logo │ │ └── About.png │ │ └── Screens │ │ ├── Main_Back.png │ │ └── Main_Front.png └── System │ └── settings.xml └── src ├── MainApplication ├── About.dfm ├── About.pas ├── ButtonEventList.pas ├── Clean.bat ├── Configuration.pas ├── MainSkinRect.pas ├── ResImages.rc ├── ResImages.res ├── SkinBase.pas ├── Skins.pas ├── Skins │ └── MainSkin │ │ ├── Logo │ │ └── About.png │ │ ├── Screens │ │ ├── Main_Back.png │ │ └── Main_Front.png │ │ └── skin_.xml ├── UnitRes │ ├── ResImg.pas │ └── ResXml.pas ├── UtilsFunc.pas ├── XMLDLL.dpr ├── XMLDLL.dproj ├── XMLDLL.res ├── XMLDLL.skincfg ├── XMLDLL_Icon.ico ├── XmlFileHome.pas ├── XmlFileSettings.pas ├── main.ddp ├── main.dfm ├── main.pas └── pluginlist.pas └── Plugins └── Home ├── Home.dpr ├── Home.dproj ├── Home.res ├── MainHome.dfm └── MainHome.pas /.gitignore: -------------------------------------------------------------------------------- 1 | # Uncomment these types if you want even more clean repository. But be careful. 2 | # It can make harm to an existing project source. Read explanations below. 3 | # 4 | # Resource files are binaries containing manifest, project icon and version info. 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. 6 | #*.res 7 | # 8 | # Type library file (binary). In old Delphi versions it should be stored. 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. 10 | #*.tlb 11 | # 12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. 13 | # Uncomment this if you are not using diagrams or use newer Delphi version. 14 | #*.ddp 15 | # 16 | # Visual LiveBindings file. Added in Delphi XE2. 17 | # Uncomment this if you are not using LiveBindings Designer. 18 | #*.vlb 19 | # 20 | # Deployment Manager configuration file for your project. Added in Delphi XE2. 21 | # Uncomment this if it is not mobile development and you do not use remote debug feature. 22 | #*.deployproj 23 | # 24 | # C++ object files produced when C/C++ Output file generation is configured. 25 | # Uncomment this if you are not using external objects (zlib library for example). 26 | #*.obj 27 | # 28 | 29 | # Delphi compiler-generated binaries (safe to delete) 30 | *.exe 31 | *.dll 32 | *.bpl 33 | *.bpi 34 | *.dcp 35 | *.so 36 | *.apk 37 | *.drc 38 | *.map 39 | *.dres 40 | *.rsm 41 | *.tds 42 | *.dcu 43 | *.lib 44 | *.a 45 | *.o 46 | *.ocx 47 | 48 | # Delphi autogenerated files (duplicated info) 49 | *.cfg 50 | *.hpp 51 | *Resource.rc 52 | 53 | # Delphi local files (user-specific info) 54 | *.local 55 | *.identcache 56 | *.projdata 57 | *.tvsconfig 58 | *.dsk 59 | 60 | # Delphi history and backups 61 | __history/ 62 | __recovery/ 63 | *.~* 64 | 65 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi) 66 | *.stat 67 | -------------------------------------------------------------------------------- /BatterflyTray/.gitignore: -------------------------------------------------------------------------------- 1 | # Uncomment these types if you want even more clean repository. But be careful. 2 | # It can make harm to an existing project source. Read explanations below. 3 | # 4 | # Resource files are binaries containing manifest, project icon and version info. 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. 6 | #*.res 7 | # 8 | # Type library file (binary). In old Delphi versions it should be stored. 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. 10 | #*.tlb 11 | # 12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. 13 | # Uncomment this if you are not using diagrams or use newer Delphi version. 14 | #*.ddp 15 | # 16 | # Visual LiveBindings file. Added in Delphi XE2. 17 | # Uncomment this if you are not using LiveBindings Designer. 18 | #*.vlb 19 | # 20 | # Deployment Manager configuration file for your project. Added in Delphi XE2. 21 | # Uncomment this if it is not mobile development and you do not use remote debug feature. 22 | #*.deployproj 23 | # 24 | # C++ object files produced when C/C++ Output file generation is configured. 25 | # Uncomment this if you are not using external objects (zlib library for example). 26 | #*.obj 27 | # 28 | 29 | # Delphi compiler-generated binaries (safe to delete) 30 | *.dll 31 | *.bpl 32 | *.bpi 33 | *.dcp 34 | *.so 35 | *.apk 36 | *.drc 37 | *.map 38 | *.dres 39 | *.rsm 40 | *.tds 41 | *.dcu 42 | *.lib 43 | *.a 44 | *.o 45 | *.ocx 46 | # Delphi autogenerated files (duplicated info) 47 | *.cfg 48 | *.hpp 49 | *Resource.rc 50 | 51 | # Delphi local files (user-specific info) 52 | *.local 53 | *.identcache 54 | *.projdata 55 | *.tvsconfig 56 | *.dsk 57 | 58 | # Delphi history and backups 59 | __history/ 60 | __recovery/ 61 | *.~* 62 | # Delphi DataBase 63 | *.db 64 | # Delphi Inifile 65 | *.ini 66 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi) 67 | *.stat 68 | -------------------------------------------------------------------------------- /BatterflyTray/AppIcon.rc: -------------------------------------------------------------------------------- 1 | MainIcon ICON "BatterflyApp.ico" 2 | -------------------------------------------------------------------------------- /BatterflyTray/AppIcon.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/AppIcon.res -------------------------------------------------------------------------------- /BatterflyTray/Batterfly.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/Batterfly.res -------------------------------------------------------------------------------- /BatterflyTray/Batterfly.skincfg: -------------------------------------------------------------------------------- 1 | [ExpressSkins] 2 | Default=1 3 | ShowNotifications=1 4 | Enabled=1 5 | dxSkinBlack=1 6 | dxSkinBlue=1 7 | dxSkinBlueprint=1 8 | dxSkinCaramel=1 9 | dxSkinCoffee=1 10 | dxSkinDarkRoom=1 11 | dxSkinDarkSide=1 12 | dxSkinDevExpressDarkStyle=1 13 | dxSkinDevExpressStyle=1 14 | dxSkinFoggy=1 15 | dxSkinGlassOceans=1 16 | dxSkinHighContrast=1 17 | dxSkiniMaginary=1 18 | dxSkinLilian=1 19 | dxSkinLiquidSky=1 20 | dxSkinLondonLiquidSky=1 21 | dxSkinMcSkin=1 22 | dxSkinMetropolis=1 23 | dxSkinMetropolisDark=1 24 | dxSkinMoneyTwins=1 25 | dxSkinOffice2007Black=1 26 | dxSkinOffice2007Blue=1 27 | dxSkinOffice2007Green=1 28 | dxSkinOffice2007Pink=1 29 | dxSkinOffice2007Silver=1 30 | dxSkinOffice2010Black=1 31 | dxSkinOffice2010Blue=1 32 | dxSkinOffice2010Silver=1 33 | dxSkinOffice2013DarkGray=1 34 | dxSkinOffice2013LightGray=1 35 | dxSkinOffice2013White=1 36 | dxSkinOffice2016Colorful=1 37 | dxSkinOffice2016Dark=1 38 | dxSkinPumpkin=1 39 | dxSkinSeven=1 40 | dxSkinSevenClassic=1 41 | dxSkinSharp=1 42 | dxSkinSharpPlus=1 43 | dxSkinSilver=1 44 | dxSkinSpringTime=1 45 | dxSkinStardust=1 46 | dxSkinSummer2008=1 47 | dxSkinTheAsphaltWorld=1 48 | dxSkinsDefaultPainters=1 49 | dxSkinValentine=1 50 | dxSkinVisualStudio2013Blue=1 51 | dxSkinVisualStudio2013Dark=1 52 | dxSkinVisualStudio2013Light=1 53 | dxSkinVS2010=1 54 | dxSkinWhiteprint=1 55 | dxSkinXmas2008Blue=1 56 | -------------------------------------------------------------------------------- /BatterflyTray/BatterflyTray.dpr: -------------------------------------------------------------------------------- 1 | program BatterflyTray; 2 | 3 | {$R 'AppIcon.res' 'AppIcon.rc'} 4 | 5 | uses 6 | Forms, 7 | Template in 'View\Template.pas' {frmTemplate}, 8 | View.Main in 'View\View.Main.pas' {frmViewMain}, 9 | View.Home in 'View\View.Home.pas' {frmViewHome}; 10 | 11 | begin 12 | Application.Initialize; 13 | Application.CreateForm(TfrmViewMain, frmViewMain); 14 | Application.CreateForm(TfrmTemplate, frmTemplate); 15 | Application.CreateForm(TfrmViewHome, frmViewHome); 16 | Application.Run; 17 | end. 18 | -------------------------------------------------------------------------------- /BatterflyTray/BatterflyTray.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/BatterflyTray.res -------------------------------------------------------------------------------- /BatterflyTray/BatterflyTray.skincfg: -------------------------------------------------------------------------------- 1 | [ExpressSkins] 2 | Default=1 3 | ShowNotifications=1 4 | Enabled=1 5 | dxSkinBlack=1 6 | dxSkinBlue=1 7 | dxSkinBlueprint=1 8 | dxSkinCaramel=1 9 | dxSkinCoffee=1 10 | dxSkinDarkRoom=1 11 | dxSkinDarkSide=1 12 | dxSkinDevExpressDarkStyle=1 13 | dxSkinDevExpressStyle=1 14 | dxSkinFoggy=1 15 | dxSkinGlassOceans=1 16 | dxSkinHighContrast=1 17 | dxSkiniMaginary=1 18 | dxSkinLilian=1 19 | dxSkinLiquidSky=1 20 | dxSkinLondonLiquidSky=1 21 | dxSkinMcSkin=1 22 | dxSkinMetropolis=1 23 | dxSkinMetropolisDark=1 24 | dxSkinMoneyTwins=1 25 | dxSkinOffice2007Black=1 26 | dxSkinOffice2007Blue=1 27 | dxSkinOffice2007Green=1 28 | dxSkinOffice2007Pink=1 29 | dxSkinOffice2007Silver=1 30 | dxSkinOffice2010Black=1 31 | dxSkinOffice2010Blue=1 32 | dxSkinOffice2010Silver=1 33 | dxSkinOffice2013DarkGray=1 34 | dxSkinOffice2013LightGray=1 35 | dxSkinOffice2013White=1 36 | dxSkinOffice2016Colorful=1 37 | dxSkinOffice2016Dark=1 38 | dxSkinPumpkin=1 39 | dxSkinSeven=1 40 | dxSkinSevenClassic=1 41 | dxSkinSharp=1 42 | dxSkinSharpPlus=1 43 | dxSkinSilver=1 44 | dxSkinSpringTime=1 45 | dxSkinStardust=1 46 | dxSkinSummer2008=1 47 | dxSkinTheAsphaltWorld=1 48 | dxSkinsDefaultPainters=1 49 | dxSkinValentine=1 50 | dxSkinVisualStudio2013Blue=1 51 | dxSkinVisualStudio2013Dark=1 52 | dxSkinVisualStudio2013Light=1 53 | dxSkinVS2010=1 54 | dxSkinWhiteprint=1 55 | dxSkinXmas2008Blue=1 56 | -------------------------------------------------------------------------------- /BatterflyTray/README.md: -------------------------------------------------------------------------------- 1 | # batterflyTray 2 | Create Animated Tray Icon 3 | 4 | ![](batterflyTray.png) 5 | 6 | 7 | ## Built With 8 | 9 | * [Graphics32](https://github.com/graphics32) - Graphics32 10 | 11 | # Features 12 | - Generate Animated Images and Used as Tray Icon. 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | ## Files 22 | 23 | | File | Contents | 24 | | --- | --- | 25 | | .gitignore | Git ignores the Files in this File | 26 | | Template.pas | Template of the Programme | 27 | | View.Home.pas | Home View of the Programme | 28 | | View.Main.pas | Main View of the Programme | 29 | | BatterflyTray.dpk | The compiler Project File | 30 | | BatterflyTraydproj | The MSBUILD Project File | 31 | | README.md | The Readme for this Project | 32 | -------------------------------------------------------------------------------- /BatterflyTray/ResAni/batterfly16.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/ResAni/batterfly16.png -------------------------------------------------------------------------------- /BatterflyTray/ResAni/batterfly16_1.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/ResAni/batterfly16_1.png -------------------------------------------------------------------------------- /BatterflyTray/ResAni/batterfly16_2.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/ResAni/batterfly16_2.png -------------------------------------------------------------------------------- /BatterflyTray/ResAni/batterfly16_3.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/ResAni/batterfly16_3.png -------------------------------------------------------------------------------- /BatterflyTray/ResAni/batterfly16_4.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/ResAni/batterfly16_4.png -------------------------------------------------------------------------------- /BatterflyTray/ResAni/batterfly16_5.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/ResAni/batterfly16_5.png -------------------------------------------------------------------------------- /BatterflyTray/ResAni/batterfly16_6.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/ResAni/batterfly16_6.png -------------------------------------------------------------------------------- /BatterflyTray/ResAni/batterfly16_7.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/ResAni/batterfly16_7.png -------------------------------------------------------------------------------- /BatterflyTray/ResAni/batterfly16_8.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/ResAni/batterfly16_8.png -------------------------------------------------------------------------------- /BatterflyTray/ResPNG/Batterfly32.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/ResPNG/Batterfly32.png -------------------------------------------------------------------------------- /BatterflyTray/ResPNG/Batterfly64.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/ResPNG/Batterfly64.png -------------------------------------------------------------------------------- /BatterflyTray/ResPNG/batterfly16.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/ResPNG/batterfly16.png -------------------------------------------------------------------------------- /BatterflyTray/View/Template.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/View/Template.pas -------------------------------------------------------------------------------- /BatterflyTray/View/View.Home.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/View/View.Home.pas -------------------------------------------------------------------------------- /BatterflyTray/View/View.Main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/View/View.Main.pas -------------------------------------------------------------------------------- /BatterflyTray/batterflyApp.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/batterflyApp.ico -------------------------------------------------------------------------------- /BatterflyTray/batterflyTray.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/BatterflyTray/batterflyTray.png -------------------------------------------------------------------------------- /CheeKtool/.gitignore: -------------------------------------------------------------------------------- 1 | # Uncomment these types if you want even more clean repository. But be careful. 2 | # It can make harm to an existing project source. Read explanations below. 3 | # 4 | # Resource files are binaries containing manifest, project icon and version info. 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. 6 | #*.res 7 | # 8 | # Type library file (binary). In old Delphi versions it should be stored. 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. 10 | #*.tlb 11 | # 12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. 13 | # Uncomment this if you are not using diagrams or use newer Delphi version. 14 | #*.ddp 15 | # 16 | # Visual LiveBindings file. Added in Delphi XE2. 17 | # Uncomment this if you are not using LiveBindings Designer. 18 | #*.vlb 19 | # 20 | # Deployment Manager configuration file for your project. Added in Delphi XE2. 21 | # Uncomment this if it is not mobile development and you do not use remote debug feature. 22 | #*.deployproj 23 | # 24 | # C++ object files produced when C/C++ Output file generation is configured. 25 | # Uncomment this if you are not using external objects (zlib library for example). 26 | #*.obj 27 | # 28 | 29 | # Delphi compiler-generated binaries (safe to delete) 30 | *.exe 31 | *.dll 32 | *.bpl 33 | *.bpi 34 | *.dcp 35 | *.so 36 | *.apk 37 | *.drc 38 | *.map 39 | *.dres 40 | *.rsm 41 | *.tds 42 | *.dcu 43 | *.lib 44 | *.a 45 | *.o 46 | *.ocx 47 | 48 | # Delphi autogenerated files (duplicated info) 49 | *.cfg 50 | *.hpp 51 | *Resource.rc 52 | 53 | # Delphi local files (user-specific info) 54 | *.local 55 | *.identcache 56 | *.projdata 57 | *.tvsconfig 58 | *.dsk 59 | 60 | # Delphi history and backups 61 | __history/ 62 | __recovery/ 63 | *.~* 64 | 65 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi) 66 | *.stat 67 | -------------------------------------------------------------------------------- /CheeKtool/BPLs/Bpl1.dpk: -------------------------------------------------------------------------------- 1 | package Bpl1; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS OFF} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE RELEASE} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESCRIPTION 'Test BPL'} 29 | {$IMPLICITBUILD ON} 30 | 31 | requires 32 | rtl, 33 | vcl; 34 | 35 | contains 36 | Unit1 in 'Unit\Unit1.pas'; 37 | 38 | end. 39 | -------------------------------------------------------------------------------- /CheeKtool/BPLs/README: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /CheeKtool/BPLs/Unit/README: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /CheeKtool/BPLs/Unit/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CheeKtool/BPLs/Unit/Unit1.pas -------------------------------------------------------------------------------- /CheeKtool/Bin/BPLUser/README: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /CheeKtool/Bin/CheeKtool.tmp/README: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /CheeKtool/Bin/DLLUser/README: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /CheeKtool/Bin/README: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /CheeKtool/Bin/UserLog.LOG: -------------------------------------------------------------------------------- 1 | 11.10.2018 23:56:26 - Klasse TFrmUser nicht gefunden 2 | 11.10.2018 23:56:29 - Klasse TfrmPlayers nicht gefunden 3 | 11.10.2018 23:56:31 - Klasse TFormChart nicht gefunden 4 | 11.10.2018 23:56:44 - Klasse TFrmUser nicht gefunden 5 | 11.10.2018 23:56:48 - Klasse TfrmSignature nicht gefunden 6 | 12.10.2018 01:25:34 - Klasse TFrmUser nicht gefunden 7 | 12.10.2018 01:25:37 - Klasse TfrmPlayers nicht gefunden 8 | 12.10.2018 01:25:41 - Klasse TFormChart nicht gefunden 9 | 12.10.2018 01:25:51 - Klasse TFrmUser nicht gefunden 10 | 12.10.2018 01:26:11 - Klasse TFrmUser nicht gefunden 11 | 12.10.2018 16:36:23 - Klasse TFrmUser nicht gefunden 12 | 12.10.2018 16:36:25 - Klasse TfrmPlayers nicht gefunden 13 | 12.10.2018 16:36:27 - Klasse TFormChart nicht gefunden 14 | -------------------------------------------------------------------------------- /CheeKtool/CheecKtool.dpr: -------------------------------------------------------------------------------- 1 | program CheeckTool; 2 | 3 | uses 4 | Vcl.Forms, 5 | Vcl.Themes, 6 | Vcl.dialogs, 7 | Vcl.Styles, 8 | system.SysUtils, 9 | MainTools in 'MainTools.pas' {frmMainTools} , 10 | ToolLib in 'Unit\ToolLib.pas', 11 | untSplash in 'Form\untSplash.pas' {frmSplash}; 12 | 13 | {$R *.res} 14 | 15 | const 16 | AppName = 'CheecKtool'; 17 | 18 | var 19 | 20 | StylePath: string; 21 | 22 | begin 23 | 24 | Application.Initialize; 25 | 26 | StylePath := 'C:\Users\Public\Documents\Embarcadero\Studio\18.0\' + 'Styles\'; // path depend of delphi version 27 | 28 | Application.MainFormOnTaskbar := True; 29 | Application.Title := AppName; 30 | Application.CreateForm(TfrmMainTools, frmMainTools); 31 | frmMainTools.caption := AppName; 32 | 33 | 34 | if not TStyleManager.TrySetStyle('Auric', False) then 35 | begin 36 | try 37 | 38 | TStyleManager.LoadFromFile(StylePath + 'Auric.vsf') 39 | except 40 | 41 | end; 42 | TStyleManager.TrySetStyle('Auric', False); // set style after loading it 43 | end; 44 | 45 | 46 | // Display Splash Screen... 47 | try 48 | frmSplash := TfrmSplash.Create(Application); 49 | // 50 | frmSplash.ShowModal; 51 | finally 52 | frmSplash.Free; 53 | end; 54 | // 55 | 56 | Application.Run; 57 | 58 | end. 59 | -------------------------------------------------------------------------------- /CheeKtool/CheecKtool.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CheeKtool/CheecKtool.res -------------------------------------------------------------------------------- /CheeKtool/CheeckTool_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CheeKtool/CheeckTool_Icon.ico -------------------------------------------------------------------------------- /CheeKtool/DLLs/DLL1.dpr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CheeKtool/DLLs/DLL1.dpr -------------------------------------------------------------------------------- /CheeKtool/DLLs/README: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /CheeKtool/Form/CheecKtool.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CheeKtool/Form/CheecKtool.png -------------------------------------------------------------------------------- /CheeKtool/Form/README: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /CheeKtool/Form/untSplash.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CheeKtool/Form/untSplash.pas -------------------------------------------------------------------------------- /CheeKtool/LOGf/README: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /CheeKtool/LOGf/UserLog.LOG: -------------------------------------------------------------------------------- 1 | 11.10.2018 23:56:26 - Klasse TFrmUser nicht gefunden 2 | 11.10.2018 23:56:29 - Klasse TfrmPlayers nicht gefunden 3 | 11.10.2018 23:56:31 - Klasse TFormChart nicht gefunden 4 | 11.10.2018 23:56:44 - Klasse TFrmUser nicht gefunden 5 | 11.10.2018 23:56:48 - Klasse TfrmSignature nicht gefunden 6 | 12.10.2018 01:25:34 - Klasse TFrmUser nicht gefunden 7 | 12.10.2018 01:25:37 - Klasse TfrmPlayers nicht gefunden 8 | 12.10.2018 01:25:41 - Klasse TFormChart nicht gefunden 9 | 12.10.2018 01:25:51 - Klasse TFrmUser nicht gefunden 10 | 12.10.2018 01:26:11 - Klasse TFrmUser nicht gefunden 11 | 12.10.2018 16:36:23 - Klasse TFrmUser nicht gefunden 12 | 12.10.2018 16:36:25 - Klasse TfrmPlayers nicht gefunden 13 | 12.10.2018 16:36:27 - Klasse TFormChart nicht gefunden 14 | -------------------------------------------------------------------------------- /CheeKtool/MainTools.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CheeKtool/MainTools.pas -------------------------------------------------------------------------------- /CheeKtool/README.md: -------------------------------------------------------------------------------- 1 | # CheeKtool 2 | - Special Tools Used For Specific Tasks . 3 | ![](Form/CheecKtool.png) 4 | 5 | 6 | # Features 7 | 8 | - Opening Text Log Files. 9 | - Delete all temporary files. 10 | - Load all dynamics dll in a directory and check the dependency. 11 | - Dynamically load and call a function in a BPL package. 12 | 13 | 14 | 15 | ## Files 16 | 17 | | File | Contents | 18 | | --- | --- | 19 | | .gitignore | Git ignores the files in this file | 20 | | ToolLib.pas | Unit ToolLib of the programme | 21 | | MainTools.pas | Main view of the programme | 22 | | CheeKtool.dpk | The compiler project file | 23 | | CheeKtool.dproj | The MSBUILD project file | 24 | | README.md | The readme for this project | 25 | 26 | -------------------------------------------------------------------------------- /CheeKtool/TMPf/README: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /CheeKtool/TMPf/tmp1.txt: -------------------------------------------------------------------------------- 1 | 1 -------------------------------------------------------------------------------- /CheeKtool/TMPf/tmp2.txt: -------------------------------------------------------------------------------- 1 | 2 -------------------------------------------------------------------------------- /CheeKtool/TMPf/tmp3.txt: -------------------------------------------------------------------------------- 1 | 3 -------------------------------------------------------------------------------- /CheeKtool/Unit/README: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /CheecKfont/.gitignore: -------------------------------------------------------------------------------- 1 | # Uncomment these types if you want even more clean repository. But be careful. 2 | # It can make harm to an existing project source. Read explanations below. 3 | # 4 | # Resource files are binaries containing manifest, project icon and version info. 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. 6 | #*.res 7 | # 8 | # Type library file (binary). In old Delphi versions it should be stored. 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. 10 | #*.tlb 11 | # 12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. 13 | # Uncomment this if you are not using diagrams or use newer Delphi version. 14 | #*.ddp 15 | # 16 | # Visual LiveBindings file. Added in Delphi XE2. 17 | # Uncomment this if you are not using LiveBindings Designer. 18 | #*.vlb 19 | # 20 | # Deployment Manager configuration file for your project. Added in Delphi XE2. 21 | # Uncomment this if it is not mobile development and you do not use remote debug feature. 22 | #*.deployproj 23 | # 24 | # C++ object files produced when C/C++ Output file generation is configured. 25 | # Uncomment this if you are not using external objects (zlib library for example). 26 | #*.obj 27 | # 28 | 29 | # Delphi compiler-generated binaries (safe to delete) 30 | *.exe 31 | *.dll 32 | *.bpl 33 | *.bpi 34 | *.dcp 35 | *.so 36 | *.apk 37 | *.drc 38 | *.map 39 | *.dres 40 | *.rsm 41 | *.tds 42 | *.dcu 43 | *.lib 44 | *.a 45 | *.o 46 | *.ocx 47 | # Delphi autogenerated files (duplicated info) 48 | *.cfg 49 | *.hpp 50 | *Resource.rc 51 | 52 | # Delphi local files (user-specific info) 53 | *.local 54 | *.identcache 55 | *.projdata 56 | *.tvsconfig 57 | *.dsk 58 | 59 | # Delphi history and backups 60 | __history/ 61 | __recovery/ 62 | *.~* 63 | # Delphi DataBase 64 | *.db 65 | # Delphi Inifile 66 | *.ini 67 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi) 68 | *.stat 69 | -------------------------------------------------------------------------------- /CheecKfont/CheckFont_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CheecKfont/CheckFont_Icon.ico -------------------------------------------------------------------------------- /CheecKfont/CheecKfont.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CheecKfont/CheecKfont.png -------------------------------------------------------------------------------- /CheecKfont/CheeckFont.dpr: -------------------------------------------------------------------------------- 1 | program CheeckFont; 2 | 3 | uses 4 | Vcl.Forms, 5 | Main in 'View\Main.pas' {FrmMain}, 6 | ToolLib in 'Unit\ToolLib.pas'; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.MainFormOnTaskbar := True; 13 | Application.Title:='CheeckFont'; 14 | Application.CreateForm(TFrmMain, FrmMain); 15 | Application.Run; 16 | end. 17 | -------------------------------------------------------------------------------- /CheecKfont/CheeckFont.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CheecKfont/CheeckFont.res -------------------------------------------------------------------------------- /CheecKfont/README.md: -------------------------------------------------------------------------------- 1 | # CheecKfont 2 | - Check Installed Fonts Windows 3 | ![](CheecKfont.png) 4 | 5 | 6 | # Features 7 | 8 | - Installing a font from Delphi 9 | - Showing All Installed fonts 10 | 11 | 12 | 13 | 14 | 15 | 16 | # Licence 17 | Copyright (C) 2019-2020, walwalwalides (walwalwalides@gmail.com) 18 | 19 | This software is provided 'as-is', without any express or implied 20 | warranty. In no event will the authors be held liable for any damages 21 | arising from the use of this software. 22 | 23 | Permission is granted to anyone to use this software for any purpose, 24 | including commercial applications, and to alter it and redistribute it 25 | freely, subject to the following restrictions: 26 | 27 | 1. The origin of this software must not be misrepresented; you must not 28 | claim that you wrote the original software. If you use this software 29 | in a product, an acknowledgement in the product documentation would be 30 | appreciated but is not required. 31 | 2. Altered source versions must be plainly marked as such, and must not be 32 | misrepresented as being the original software. 33 | 3. This notice may not be removed or altered from any source distribution. 34 | 35 | 36 | ## Files 37 | 38 | | File | Contents | 39 | | --- | --- | 40 | | .gitignore | Git ignores the files in this file | 41 | | ToolLib.pas | Toollib unit | 42 | | Main.pas | The main view of the programme | 43 | | CheeckFont.dpk | The compiler project file | 44 | | CheeckFont.dproj | The MSBUILD project file | 45 | | README.md | The readme for this project | 46 | -------------------------------------------------------------------------------- /CheecKfont/View/Main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CheecKfont/View/Main.pas -------------------------------------------------------------------------------- /CheecKfont/unit/ToolLib.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CheecKfont/unit/ToolLib.pas -------------------------------------------------------------------------------- /CompUPX/.gitignore: -------------------------------------------------------------------------------- 1 | # Uncomment these types if you want even more clean repository. But be careful. 2 | # It can make harm to an existing project source. Read explanations below. 3 | # 4 | # Resource files are binaries containing manifest, project icon and version info. 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. 6 | #*.res 7 | # 8 | # Type library file (binary). In old Delphi versions it should be stored. 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. 10 | #*.tlb 11 | # 12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. 13 | # Uncomment this if you are not using diagrams or use newer Delphi version. 14 | #*.ddp 15 | # 16 | # Visual LiveBindings file. Added in Delphi XE2. 17 | # Uncomment this if you are not using LiveBindings Designer. 18 | #*.vlb 19 | # 20 | # Deployment Manager configuration file for your project. Added in Delphi XE2. 21 | # Uncomment this if it is not mobile development and you do not use remote debug feature. 22 | #*.deployproj 23 | # 24 | # C++ object files produced when C/C++ Output file generation is configured. 25 | # Uncomment this if you are not using external objects (zlib library for example). 26 | #*.obj 27 | # 28 | 29 | # Delphi compiler-generated binaries (safe to delete) 30 | *.dll 31 | *.bpl 32 | *.bpi 33 | *.dcp 34 | *.so 35 | *.apk 36 | *.drc 37 | *.map 38 | *.dres 39 | *.rsm 40 | *.tds 41 | *.dcu 42 | *.lib 43 | *.a 44 | *.o 45 | *.ocx 46 | # Delphi autogenerated files (duplicated info) 47 | *.cfg 48 | *.hpp 49 | *Resource.rc 50 | 51 | # Delphi local files (user-specific info) 52 | *.local 53 | *.identcache 54 | *.projdata 55 | *.tvsconfig 56 | *.dsk 57 | 58 | # Delphi history and backups 59 | __history/ 60 | __recovery/ 61 | *.~* 62 | # Delphi DataBase 63 | *.db 64 | # Delphi Inifile 65 | *.ini 66 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi) 67 | *.stat 68 | -------------------------------------------------------------------------------- /CompUPX/CompUpx.dpr: -------------------------------------------------------------------------------- 1 | program CompUpx; 2 | 3 | uses 4 | Vcl.Forms, 5 | uMain in 'View\uMain.pas' {frmMain}, 6 | uFileUtils in 'Unit\uFileUtils.pas', 7 | uFileChecker in 'Unit\uFileChecker.pas', 8 | uProgress in 'View\uProgress.pas' {frmProgress}, 9 | uOption in 'View\uOption.pas' {frmOption}, 10 | uAbout in 'View\uAbout.pas' {frmAbout}; 11 | 12 | {$R *.res} 13 | 14 | 15 | begin 16 | Application.Initialize; 17 | 18 | 19 | Application.MainFormOnTaskbar := True; 20 | Application.Title:='CompUPX'; 21 | Application.CreateForm(TfrmMain, frmMain); 22 | Application.CreateForm(TfrmProgress, frmProgress); 23 | 24 | Application.Run; 25 | 26 | end. 27 | -------------------------------------------------------------------------------- /CompUPX/CompUpx.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CompUPX/CompUpx.png -------------------------------------------------------------------------------- /CompUPX/CompUpx.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CompUPX/CompUpx.res -------------------------------------------------------------------------------- /CompUPX/CompUpx_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CompUPX/CompUpx_Icon.ico -------------------------------------------------------------------------------- /CompUPX/ModelSupport_CompUpx/CompUpx/default.txaPackage: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CompUPX/ModelSupport_CompUpx/CompUpx/default.txaPackage -------------------------------------------------------------------------------- /CompUPX/ModelSupport_CompUpx/CompUpx/default.txvpck: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /CompUPX/ModelSupport_CompUpx/default.txaPackage: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CompUPX/ModelSupport_CompUpx/default.txaPackage -------------------------------------------------------------------------------- /CompUPX/ModelSupport_CompUpx/default.txvpck: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /CompUPX/ModelSupport_CompUpx/uAbout/default.txaPackage: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CompUPX/ModelSupport_CompUpx/uAbout/default.txaPackage -------------------------------------------------------------------------------- /CompUPX/ModelSupport_CompUpx/uAbout/default.txvpck: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /CompUPX/ModelSupport_CompUpx/uFileChecker/default.txaPackage: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CompUPX/ModelSupport_CompUpx/uFileChecker/default.txaPackage -------------------------------------------------------------------------------- /CompUPX/ModelSupport_CompUpx/uFileChecker/default.txvpck: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /CompUPX/ModelSupport_CompUpx/uFileUtils/default.txaPackage: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CompUPX/ModelSupport_CompUpx/uFileUtils/default.txaPackage -------------------------------------------------------------------------------- /CompUPX/ModelSupport_CompUpx/uFileUtils/default.txvpck: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /CompUPX/ModelSupport_CompUpx/uMain/default.txaPackage: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CompUPX/ModelSupport_CompUpx/uMain/default.txaPackage -------------------------------------------------------------------------------- /CompUPX/ModelSupport_CompUpx/uMain/default.txvpck: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /CompUPX/ModelSupport_CompUpx/uOption/default.txaPackage: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CompUPX/ModelSupport_CompUpx/uOption/default.txaPackage -------------------------------------------------------------------------------- /CompUPX/ModelSupport_CompUpx/uOption/default.txvpck: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /CompUPX/ModelSupport_CompUpx/uProgress/default.txaPackage: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CompUPX/ModelSupport_CompUpx/uProgress/default.txaPackage -------------------------------------------------------------------------------- /CompUPX/ModelSupport_CompUpx/uProgress/default.txvpck: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /CompUPX/README.md: -------------------------------------------------------------------------------- 1 | # CompUPX 2 | - Compression all executable files using UPX 3 | - ( Ultimate Packer for eXecutables) 4 | ![](CompUpx.png) 5 | 6 | 7 | ## Built With 8 | 9 | * [Ultimate Packer for eXecutables](https://upx.github.io/) - UPX 10 | 11 | # Features 12 | - Auto search executable files in directory 13 | - Excellent compression ratio. 14 | - very fast decompression. 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | ## Files 24 | 25 | | File | Contents | 26 | | --- | --- | 27 | | .gitignore | Git ignores the files in this file | 28 | | uAbout.pas | About view of the programme | 29 | | uOption.pas | Option view of the programme | 30 | | uMain.pas | Main view of the programme | 31 | | CompUPX.dpk | The compiler project file | 32 | | CompUPX.dproj | The MSBUILD project file | 33 | | README.md | The readme for this project | 34 | -------------------------------------------------------------------------------- /CompUPX/Unit/uFileUtils.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CompUPX/Unit/uFileUtils.pas -------------------------------------------------------------------------------- /CompUPX/View/uAbout.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CompUPX/View/uAbout.pas -------------------------------------------------------------------------------- /CompUPX/View/uMain.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CompUPX/View/uMain.pas -------------------------------------------------------------------------------- /CompUPX/View/uOption.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CompUPX/View/uOption.pas -------------------------------------------------------------------------------- /CompUPX/View/uProgress.dfm: -------------------------------------------------------------------------------- 1 | object frmProgress: TfrmProgress 2 | Left = 0 3 | Top = 0 4 | BorderIcons = [] 5 | BorderStyle = bsDialog 6 | Caption = 'CompUPX' 7 | ClientHeight = 203 8 | ClientWidth = 756 9 | Color = clBtnFace 10 | DoubleBuffered = True 11 | Font.Charset = DEFAULT_CHARSET 12 | Font.Color = clWindowText 13 | Font.Height = -11 14 | Font.Name = 'Tahoma' 15 | Font.Style = [] 16 | OldCreateOrder = False 17 | Position = poMainFormCenter 18 | PixelsPerInch = 96 19 | TextHeight = 13 20 | object lblCurrentFolder: TLabel 21 | AlignWithMargins = True 22 | Left = 12 23 | Top = 158 24 | Width = 741 25 | Height = 13 26 | Margins.Left = 12 27 | Align = alBottom 28 | Caption = 'lblCurrentFolder' 29 | ExplicitTop = 161 30 | ExplicitWidth = 77 31 | end 32 | object pnlButtons: TPanel 33 | Left = 0 34 | Top = 171 35 | Width = 756 36 | Height = 32 37 | Align = alBottom 38 | TabOrder = 0 39 | ExplicitTop = 174 40 | object btnClose: TButton 41 | AlignWithMargins = True 42 | Left = 672 43 | Top = 4 44 | Width = 75 45 | Height = 24 46 | Cursor = crHandPoint 47 | Margins.Right = 8 48 | Align = alRight 49 | Anchors = [akTop, akRight] 50 | Caption = 'Close' 51 | Default = True 52 | TabOrder = 0 53 | OnClick = btnCloseClick 54 | end 55 | object btnCancel: TButton 56 | AlignWithMargins = True 57 | Left = 586 58 | Top = 4 59 | Width = 75 60 | Height = 24 61 | Cursor = crHandPoint 62 | Margins.Right = 8 63 | Align = alRight 64 | Anchors = [akTop, akRight] 65 | Cancel = True 66 | Caption = 'Cancel' 67 | TabOrder = 1 68 | Visible = False 69 | OnClick = btnCancelClick 70 | end 71 | object ProgressBar1: TProgressBar 72 | AlignWithMargins = True 73 | Left = 9 74 | Top = 7 75 | Width = 566 76 | Height = 18 77 | Margins.Left = 8 78 | Margins.Top = 6 79 | Margins.Right = 8 80 | Margins.Bottom = 6 81 | Align = alClient 82 | TabOrder = 2 83 | end 84 | end 85 | object memLog: TRichEdit 86 | AlignWithMargins = True 87 | Left = 8 88 | Top = 3 89 | Width = 740 90 | Height = 149 91 | Margins.Left = 8 92 | Margins.Right = 8 93 | Align = alClient 94 | Font.Charset = ANSI_CHARSET 95 | Font.Color = clWindowText 96 | Font.Height = -11 97 | Font.Name = 'Tahoma' 98 | Font.Style = [] 99 | ParentFont = False 100 | ScrollBars = ssBoth 101 | TabOrder = 1 102 | Zoom = 100 103 | ExplicitHeight = 152 104 | end 105 | end 106 | -------------------------------------------------------------------------------- /CompUPX/View/uProgress.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CompUPX/View/uProgress.pas -------------------------------------------------------------------------------- /CompUPX/bin/upx.000: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CompUPX/bin/upx.000 -------------------------------------------------------------------------------- /CountDown/.gitignore: -------------------------------------------------------------------------------- 1 | # Uncomment these types if you want even more clean repository. But be careful. 2 | # It can make harm to an existing project source. Read explanations below. 3 | # 4 | # Resource files are binaries containing manifest, project icon and version info. 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. 6 | #*.res 7 | # 8 | # Type library file (binary). In old Delphi versions it should be stored. 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. 10 | #*.tlb 11 | # 12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. 13 | # Uncomment this if you are not using diagrams or use newer Delphi version. 14 | #*.ddp 15 | # 16 | # Visual LiveBindings file. Added in Delphi XE2. 17 | # Uncomment this if you are not using LiveBindings Designer. 18 | #*.vlb 19 | # 20 | # Deployment Manager configuration file for your project. Added in Delphi XE2. 21 | # Uncomment this if it is not mobile development and you do not use remote debug feature. 22 | #*.deployproj 23 | # 24 | # C++ object files produced when C/C++ Output file generation is configured. 25 | # Uncomment this if you are not using external objects (zlib library for example). 26 | #*.obj 27 | # 28 | 29 | # Delphi compiler-generated binaries (safe to delete) 30 | *.dll 31 | *.bpl 32 | *.bpi 33 | *.dcp 34 | *.so 35 | *.apk 36 | *.drc 37 | *.map 38 | *.dres 39 | *.rsm 40 | *.tds 41 | *.dcu 42 | *.lib 43 | *.ini 44 | *.a 45 | *.o 46 | *.ocx 47 | # Delphi autogenerated files (duplicated info) 48 | *.cfg 49 | *.hpp 50 | *Resource.rc 51 | 52 | # Delphi local files (user-specific info) 53 | *.local 54 | *.identcache 55 | *.projdata 56 | *.tvsconfig 57 | *.dsk 58 | 59 | # Delphi history and backups 60 | __history/ 61 | __recovery/ 62 | *.~* 63 | # Delphi DataBase 64 | *.db 65 | 66 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi) 67 | *.stat 68 | -------------------------------------------------------------------------------- /CountDown/Bin/Bmp/timer.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/Bin/Bmp/timer.bmp -------------------------------------------------------------------------------- /CountDown/Bin/Wav/CloseClock.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/Bin/Wav/CloseClock.wav -------------------------------------------------------------------------------- /CountDown/Bin/Wav/IniClock.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/Bin/Wav/IniClock.wav -------------------------------------------------------------------------------- /CountDown/Bin/Wav/OpenClock.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/Bin/Wav/OpenClock.wav -------------------------------------------------------------------------------- /CountDown/Bin/Wav/TaktClock.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/Bin/Wav/TaktClock.wav -------------------------------------------------------------------------------- /CountDown/CountDouwnGrp.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {695189B1-4EA0-4B5A-B6CD-020A2E1840FE} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /CountDown/CountDown.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/CountDown.png -------------------------------------------------------------------------------- /CountDown/CountDownApp/CountDown.dpr: -------------------------------------------------------------------------------- 1 | program CountDown; 2 | 3 | 4 | 5 | 6 | 7 | {$R *.dres} 8 | 9 | uses 10 | Forms, 11 | UCountDownTimer1 in 'Unit\UCountDownTimer1.pas', 12 | UCountDownTimer2 in 'Unit\UCountDownTimer2.pas', 13 | UCountDownTimer3 in 'Unit\UCountDownTimer3.pas', 14 | UCountDownTimer4 in 'Unit\UCountDownTimer4.pas', 15 | Main in 'View\Main.pas' {frmMain}, 16 | uAbout in 'View\uAbout.pas' {frmAbout}; 17 | 18 | {$R *.res} 19 | 20 | begin 21 | Application.Initialize; 22 | Application.CreateForm(TfrmMain, frmMain); 23 | Application.Run; 24 | end. 25 | -------------------------------------------------------------------------------- /CountDown/CountDownApp/CountDown.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/CountDownApp/CountDown.res -------------------------------------------------------------------------------- /CountDown/CountDownApp/CountDown.skincfg: -------------------------------------------------------------------------------- 1 | [ExpressSkins] 2 | Default=1 3 | ShowNotifications=1 4 | Enabled=1 5 | dxSkinBlack=1 6 | dxSkinBlue=1 7 | dxSkinBlueprint=1 8 | dxSkinCaramel=1 9 | dxSkinCoffee=1 10 | dxSkinDarkRoom=1 11 | dxSkinDarkSide=1 12 | dxSkinDevExpressDarkStyle=1 13 | dxSkinDevExpressStyle=1 14 | dxSkinFoggy=1 15 | dxSkinGlassOceans=1 16 | dxSkinHighContrast=1 17 | dxSkiniMaginary=1 18 | dxSkinLilian=1 19 | dxSkinLiquidSky=1 20 | dxSkinLondonLiquidSky=1 21 | dxSkinMcSkin=1 22 | dxSkinMetropolis=1 23 | dxSkinMetropolisDark=1 24 | dxSkinMoneyTwins=1 25 | dxSkinOffice2007Black=1 26 | dxSkinOffice2007Blue=1 27 | dxSkinOffice2007Green=1 28 | dxSkinOffice2007Pink=1 29 | dxSkinOffice2007Silver=1 30 | dxSkinOffice2010Black=1 31 | dxSkinOffice2010Blue=1 32 | dxSkinOffice2010Silver=1 33 | dxSkinOffice2013DarkGray=1 34 | dxSkinOffice2013LightGray=1 35 | dxSkinOffice2013White=1 36 | dxSkinOffice2016Colorful=1 37 | dxSkinOffice2016Dark=1 38 | dxSkinPumpkin=1 39 | dxSkinSeven=1 40 | dxSkinSevenClassic=1 41 | dxSkinSharp=1 42 | dxSkinSharpPlus=1 43 | dxSkinSilver=1 44 | dxSkinSpringTime=1 45 | dxSkinStardust=1 46 | dxSkinSummer2008=1 47 | dxSkinTheAsphaltWorld=1 48 | dxSkinsDefaultPainters=1 49 | dxSkinValentine=1 50 | dxSkinVisualStudio2013Blue=1 51 | dxSkinVisualStudio2013Dark=1 52 | dxSkinVisualStudio2013Light=1 53 | dxSkinVS2010=1 54 | dxSkinWhiteprint=1 55 | dxSkinXmas2008Blue=1 56 | -------------------------------------------------------------------------------- /CountDown/CountDownApp/CountDown_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/CountDownApp/CountDown_Icon.ico -------------------------------------------------------------------------------- /CountDown/CountDownApp/Res/Sound.rc: -------------------------------------------------------------------------------- 1 | #define WAVE WAVES 2 | Click WAVE "Click.wav" 3 | -------------------------------------------------------------------------------- /CountDown/CountDownApp/Res/Takt.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/CountDownApp/Res/Takt.wav -------------------------------------------------------------------------------- /CountDown/CountDownApp/Unit/UCountDownTimer1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/CountDownApp/Unit/UCountDownTimer1.pas -------------------------------------------------------------------------------- /CountDown/CountDownApp/Unit/UCountDownTimer2.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/CountDownApp/Unit/UCountDownTimer2.pas -------------------------------------------------------------------------------- /CountDown/CountDownApp/Unit/UCountDownTimer3.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/CountDownApp/Unit/UCountDownTimer3.pas -------------------------------------------------------------------------------- /CountDown/CountDownApp/Unit/UCountDownTimer4.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/CountDownApp/Unit/UCountDownTimer4.pas -------------------------------------------------------------------------------- /CountDown/CountDownApp/View/Main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/CountDownApp/View/Main.pas -------------------------------------------------------------------------------- /CountDown/CountDownApp/View/uAbout.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/CountDownApp/View/uAbout.pas -------------------------------------------------------------------------------- /CountDown/CountDownDLL/CountDownDLL.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/CountDownDLL/CountDownDLL.res -------------------------------------------------------------------------------- /CountDown/CountDownDLL/CountDownDLL.skincfg: -------------------------------------------------------------------------------- 1 | [ExpressSkins] 2 | Default=1 3 | ShowNotifications=1 4 | Enabled=1 5 | dxSkinBlack=1 6 | dxSkinBlue=1 7 | dxSkinBlueprint=1 8 | dxSkinCaramel=1 9 | dxSkinCoffee=1 10 | dxSkinDarkRoom=1 11 | dxSkinDarkSide=1 12 | dxSkinDevExpressDarkStyle=1 13 | dxSkinDevExpressStyle=1 14 | dxSkinFoggy=1 15 | dxSkinGlassOceans=1 16 | dxSkinHighContrast=1 17 | dxSkiniMaginary=1 18 | dxSkinLilian=1 19 | dxSkinLiquidSky=1 20 | dxSkinLondonLiquidSky=1 21 | dxSkinMcSkin=1 22 | dxSkinMetropolis=1 23 | dxSkinMetropolisDark=1 24 | dxSkinMoneyTwins=1 25 | dxSkinOffice2007Black=1 26 | dxSkinOffice2007Blue=1 27 | dxSkinOffice2007Green=1 28 | dxSkinOffice2007Pink=1 29 | dxSkinOffice2007Silver=1 30 | dxSkinOffice2010Black=1 31 | dxSkinOffice2010Blue=1 32 | dxSkinOffice2010Silver=1 33 | dxSkinOffice2013DarkGray=1 34 | dxSkinOffice2013LightGray=1 35 | dxSkinOffice2013White=1 36 | dxSkinOffice2016Colorful=1 37 | dxSkinOffice2016Dark=1 38 | dxSkinPumpkin=1 39 | dxSkinSeven=1 40 | dxSkinSevenClassic=1 41 | dxSkinSharp=1 42 | dxSkinSharpPlus=1 43 | dxSkinSilver=1 44 | dxSkinSpringTime=1 45 | dxSkinStardust=1 46 | dxSkinSummer2008=1 47 | dxSkinTheAsphaltWorld=1 48 | dxSkinsDefaultPainters=1 49 | dxSkinValentine=1 50 | dxSkinVisualStudio2013Blue=1 51 | dxSkinVisualStudio2013Dark=1 52 | dxSkinVisualStudio2013Light=1 53 | dxSkinVS2010=1 54 | dxSkinWhiteprint=1 55 | dxSkinXmas2008Blue=1 56 | -------------------------------------------------------------------------------- /CountDown/CountDownDLL/Unit/CountDownDLL_Lib.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/CountDownDLL/Unit/CountDownDLL_Lib.pas -------------------------------------------------------------------------------- /CountDown/CountDownDLL/View/uCountDown.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/CountDownDLL/View/uCountDown.dfm -------------------------------------------------------------------------------- /CountDown/CountDownDLL/View/uCountDown.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/CountDownDLL/View/uCountDown.pas -------------------------------------------------------------------------------- /CountDown/CountDownDLL/View/uOption.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/CountDownDLL/View/uOption.dfm -------------------------------------------------------------------------------- /CountDown/CountDownDLL/View/uOption.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CountDown/CountDownDLL/View/uOption.pas -------------------------------------------------------------------------------- /CountDown/README.md: -------------------------------------------------------------------------------- 1 | # CountDown 2 | - How to construct a Timer that counts down from a certain number to indicate the beginning or end of an Event. 3 | 4 | ![](CountDown.png) 5 | 6 | 7 | 8 | # Features 9 | - Communication with DLL using Broadcast. 10 | - Handling Multi Threaded Event. 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | ## Files 20 | 21 | | File | Contents | 22 | | --- | --- | 23 | | .gitignore | Git ignores the files in this file | 24 | |uCountDown| Main view of DLL| 25 | | uOption.pas | Option view of DLL | 26 | | uMain.pas | Main view of the APP | 27 | |CountDownTimer1| Unit of the APP | 28 | |CountDownTimer2| Unit of the APP | 29 | |CountDownTimer3| Unit of the APP | 30 | |CountDownTimer4| Unit of the APP | 31 | | uAbout.pas | About view of the APP | 32 | | CountDown.dpk | The compiler project file | 33 | | CountDown.dproj | The MSBUILD project file | 34 | | README.md | The readme for this project | 35 | 36 | ## To Install the Software: 37 | 38 | ### Install CountDown 39 | Download Link : https://github.com/walwalwalides/Delphi-Collection-VCL/releases/download/CountDown/CountDown.7z 40 | 41 | 42 | -------------------------------------------------------------------------------- /CreEvent/.gitignore: -------------------------------------------------------------------------------- 1 | # Uncomment these types if you want even more clean repository. But be careful. 2 | # It can make harm to an existing project source. Read explanations below. 3 | # 4 | # Resource files are binaries containing manifest, project icon and version info. 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. 6 | #*.res 7 | # 8 | # Type library file (binary). In old Delphi versions it should be stored. 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. 10 | #*.tlb 11 | # 12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. 13 | # Uncomment this if you are not using diagrams or use newer Delphi version. 14 | #*.ddp 15 | # 16 | # Visual LiveBindings file. Added in Delphi XE2. 17 | # Uncomment this if you are not using LiveBindings Designer. 18 | #*.vlb 19 | # 20 | # Deployment Manager configuration file for your project. Added in Delphi XE2. 21 | # Uncomment this if it is not mobile development and you do not use remote debug feature. 22 | #*.deployproj 23 | # 24 | # C++ object files produced when C/C++ Output file generation is configured. 25 | # Uncomment this if you are not using external objects (zlib library for example). 26 | #*.obj 27 | # 28 | 29 | # Delphi compiler-generated binaries (safe to delete) 30 | *.exe 31 | *.dll 32 | *.bpl 33 | *.bpi 34 | *.dcp 35 | *.so 36 | *.apk 37 | *.drc 38 | *.map 39 | *.dres 40 | *.rsm 41 | *.tds 42 | *.dcu 43 | *.lib 44 | *.a 45 | *.o 46 | *.ocx 47 | # Delphi autogenerated files (duplicated info) 48 | *.cfg 49 | *.hpp 50 | *Resource.rc 51 | 52 | # Delphi local files (user-specific info) 53 | *.local 54 | *.identcache 55 | *.projdata 56 | *.tvsconfig 57 | *.dsk 58 | 59 | # Delphi history and backups 60 | __history/ 61 | __recovery/ 62 | *.~* 63 | # Delphi DataBase 64 | *.db 65 | # Delphi Inifile 66 | *.ini 67 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi) 68 | *.stat 69 | -------------------------------------------------------------------------------- /CreEvent/CreEvent.dpr: -------------------------------------------------------------------------------- 1 | program CreEvent; 2 | 3 | uses 4 | Forms, 5 | Main in 'Form\Main.pas' {frmMain} , 6 | uEvent in 'Unit\uEvent.pas', 7 | Module in 'Module\Module.pas' {DMModule: TDataModule}; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.Title := 'CreateEvent'; 14 | Application.CreateForm(TDMModule, DMModule); 15 | Application.CreateForm(TfrmMain, frmMain); 16 | Application.Run; 17 | 18 | end. 19 | -------------------------------------------------------------------------------- /CreEvent/CreEvent.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CreEvent/CreEvent.res -------------------------------------------------------------------------------- /CreEvent/CreEvent_.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CreEvent/CreEvent_.png -------------------------------------------------------------------------------- /CreEvent/CreateEvent_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CreEvent/CreateEvent_Icon.ico -------------------------------------------------------------------------------- /CreEvent/Form/Main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CreEvent/Form/Main.pas -------------------------------------------------------------------------------- /CreEvent/Main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CreEvent/Main.pas -------------------------------------------------------------------------------- /CreEvent/Module/Module.dfm: -------------------------------------------------------------------------------- 1 | object DMModule: TDMModule 2 | OldCreateOrder = False 3 | OnCreate = DataModuleCreate 4 | Height = 303 5 | Width = 378 6 | object FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink 7 | Left = 49 8 | Top = 24 9 | end 10 | object FDGUIxWaitCursor1: TFDGUIxWaitCursor 11 | Provider = 'Forms' 12 | Left = 120 13 | Top = 24 14 | end 15 | object ConnectionMain: TFDConnection 16 | Params.Strings = ( 17 | 18 | 'Database=C:\Users\Walid\Desktop\PosDelphi-master\Design Patterns' + 19 | '\Prototype\DEBUG\Daten\Event.db' 20 | 'DriverID=SQLite') 21 | LoginPrompt = False 22 | Left = 40 23 | Top = 80 24 | end 25 | object qrEvent: TFDQuery 26 | Connection = ConnectionMain 27 | Left = 40 28 | Top = 128 29 | end 30 | object qrCheck: TFDQuery 31 | Connection = ConnectionMain 32 | SQL.Strings = ( 33 | 'SELECT * FROM EVENT') 34 | Left = 136 35 | Top = 104 36 | object qrCheckID: TFDAutoIncField 37 | FieldName = 'ID' 38 | Origin = 'ID' 39 | ProviderFlags = [pfInWhere, pfInKey] 40 | ReadOnly = True 41 | end 42 | object qrCheckEvtName: TStringField 43 | FieldName = 'EvtName' 44 | Origin = 'EvtName' 45 | Size = 100 46 | end 47 | object qrCheckEvtDate: TDateField 48 | FieldName = 'EvtDate' 49 | Origin = 'EvtDate' 50 | end 51 | object qrCheckEvtTime: TTimeField 52 | FieldName = 'EvtTime' 53 | Origin = 'EvtTime' 54 | end 55 | object qrCheckEvtColor: TShortintField 56 | FieldName = 'EvtColor' 57 | Origin = 'EvtColor' 58 | end 59 | object qrCheckEvtDescription: TWideMemoField 60 | FieldName = 'EvtDescription' 61 | Origin = 'EvtDescription' 62 | BlobType = ftWideMemo 63 | end 64 | end 65 | end 66 | -------------------------------------------------------------------------------- /CreEvent/Prototype.dof: -------------------------------------------------------------------------------- 1 | [FileVersion] 2 | Version=7.0 3 | [Compiler] 4 | A=8 5 | B=0 6 | C=1 7 | D=1 8 | E=0 9 | F=0 10 | G=1 11 | H=1 12 | I=1 13 | J=0 14 | K=0 15 | L=1 16 | M=0 17 | N=1 18 | O=1 19 | P=1 20 | Q=0 21 | R=0 22 | S=0 23 | T=0 24 | U=0 25 | V=1 26 | W=0 27 | X=1 28 | Y=1 29 | Z=1 30 | ShowHints=1 31 | ShowWarnings=1 32 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 33 | NamespacePrefix= 34 | SymbolDeprecated=1 35 | SymbolLibrary=1 36 | SymbolPlatform=1 37 | UnitLibrary=1 38 | UnitPlatform=1 39 | UnitDeprecated=1 40 | HResultCompat=1 41 | HidingMember=1 42 | HiddenVirtual=1 43 | Garbage=1 44 | BoundsError=1 45 | ZeroNilCompat=1 46 | StringConstTruncated=1 47 | ForLoopVarVarPar=1 48 | TypedConstVarPar=1 49 | AsgToTypedConst=1 50 | CaseLabelRange=1 51 | ForVariable=1 52 | ConstructingAbstract=1 53 | ComparisonFalse=1 54 | ComparisonTrue=1 55 | ComparingSignedUnsigned=1 56 | CombiningSignedUnsigned=1 57 | UnsupportedConstruct=1 58 | FileOpen=1 59 | FileOpenUnitSrc=1 60 | BadGlobalSymbol=1 61 | DuplicateConstructorDestructor=1 62 | InvalidDirective=1 63 | PackageNoLink=1 64 | PackageThreadVar=1 65 | ImplicitImport=1 66 | HPPEMITIgnored=1 67 | NoRetVal=1 68 | UseBeforeDef=1 69 | ForLoopVarUndef=1 70 | UnitNameMismatch=1 71 | NoCFGFileFound=1 72 | MessageDirective=1 73 | ImplicitVariants=1 74 | UnicodeToLocale=1 75 | LocaleToUnicode=1 76 | ImagebaseMultiple=1 77 | SuspiciousTypecast=1 78 | PrivatePropAccessor=1 79 | UnsafeType=0 80 | UnsafeCode=0 81 | UnsafeCast=0 82 | [Linker] 83 | MapFile=0 84 | OutputObjs=0 85 | ConsoleApp=1 86 | DebugInfo=0 87 | RemoteSymbols=0 88 | MinStackSize=16384 89 | MaxStackSize=1048576 90 | ImageBase=4194304 91 | ExeDescription= 92 | [Directories] 93 | OutputDir= 94 | UnitOutputDir= 95 | PackageDLLOutputDir= 96 | PackageDCPOutputDir= 97 | SearchPath= 98 | Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;qrpt 99 | Conditionals= 100 | DebugSourceDirs= 101 | UsePackages=0 102 | [Parameters] 103 | RunParams= 104 | HostApplication= 105 | Launcher= 106 | UseLauncher=0 107 | DebugCWD= 108 | [Language] 109 | ActiveLang= 110 | ProjectLang= 111 | RootDir=C:\Program Files (x86)\Borland\Delphi7\Bin\ 112 | [Version Info] 113 | IncludeVerInfo=0 114 | AutoIncBuild=0 115 | MajorVer=1 116 | MinorVer=0 117 | Release=0 118 | Build=0 119 | Debug=0 120 | PreRelease=0 121 | Special=0 122 | Private=0 123 | DLL=0 124 | Locale=1046 125 | CodePage=1252 126 | [Version Info Keys] 127 | CompanyName= 128 | FileDescription= 129 | FileVersion=1.0.0.0 130 | InternalName= 131 | LegalCopyright= 132 | LegalTrademarks= 133 | OriginalFilename= 134 | ProductName= 135 | ProductVersion=1.0.0.0 136 | Comments= 137 | [Excluded Packages] 138 | D:\Temp\MenuDB1\bin\MenuApoio.bpl=(untitled) 139 | -------------------------------------------------------------------------------- /CreEvent/README.md: -------------------------------------------------------------------------------- 1 | # CreEvent 2 | - How Create Stored Event in SQLite 3 | ![](CreEvent_.png) 4 | 5 | 6 | 7 | # Features 8 | - Create Event and store in Database using (SQLite) 9 | 10 | 11 | 12 | 13 | 14 | 15 | # Licence 16 | Copyright (C) 2019-2020, walwalwalides (walwalwalides@gmail.com) 17 | 18 | This software is provided 'as-is', without any express or implied 19 | warranty. In no event will the authors be held liable for any damages 20 | arising from the use of this software. 21 | 22 | Permission is granted to anyone to use this software for any purpose, 23 | including commercial applications, and to alter it and redistribute it 24 | freely, subject to the following restrictions: 25 | 26 | 1. The origin of this software must not be misrepresented; you must not 27 | claim that you wrote the original software. If you use this software 28 | in a product, an acknowledgement in the product documentation would be 29 | appreciated but is not required. 30 | 2. Altered source versions must be plainly marked as such, and must not be 31 | misrepresented as being the original software. 32 | 3. This notice may not be removed or altered from any source distribution. 33 | 34 | 35 | ## Files 36 | 37 | | File | Contents | 38 | | --- | --- | 39 | | .gitignore | Git ignores the files in this file | 40 | | UEvent.pas | Unit Event| 41 | | Module.pas |The main Module of the programme| 42 | | Main.pas | The main view of the programme | 43 | | CreEvent.dpk | The compiler project file | 44 | | CreEvent.dproj | The MSBUILD project file | 45 | | README.md | The readme for this project 46 | -------------------------------------------------------------------------------- /CreEvent/Unit/uEvent.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CreEvent/Unit/uEvent.pas -------------------------------------------------------------------------------- /CreEvent/uEvent.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/CreEvent/uEvent.pas -------------------------------------------------------------------------------- /Delphi-Collection.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/Delphi-Collection.jpg -------------------------------------------------------------------------------- /LoadUrlGif/.gitignore: -------------------------------------------------------------------------------- 1 | # Uncomment these types if you want even more clean repository. But be careful. 2 | # It can make harm to an existing project source. Read explanations below. 3 | # 4 | # Resource files are binaries containing manifest, project icon and version info. 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. 6 | #*.res 7 | # 8 | # Type library file (binary). In old Delphi versions it should be stored. 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. 10 | #*.tlb 11 | # 12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. 13 | # Uncomment this if you are not using diagrams or use newer Delphi version. 14 | #*.ddp 15 | # 16 | # Visual LiveBindings file. Added in Delphi XE2. 17 | # Uncomment this if you are not using LiveBindings Designer. 18 | #*.vlb 19 | # 20 | # Deployment Manager configuration file for your project. Added in Delphi XE2. 21 | # Uncomment this if it is not mobile development and you do not use remote debug feature. 22 | #*.deployproj 23 | # 24 | # C++ object files produced when C/C++ Output file generation is configured. 25 | # Uncomment this if you are not using external objects (zlib library for example). 26 | #*.obj 27 | # 28 | 29 | # Delphi compiler-generated binaries (safe to delete) 30 | *.exe 31 | *.dll 32 | *.bpl 33 | *.bpi 34 | *.dcp 35 | *.so 36 | *.apk 37 | *.drc 38 | *.map 39 | *.dres 40 | *.rsm 41 | *.tds 42 | *.dcu 43 | *.lib 44 | *.a 45 | *.o 46 | *.ocx 47 | # Delphi autogenerated files (duplicated info) 48 | *.cfg 49 | *.hpp 50 | *Resource.rc 51 | 52 | # Delphi local files (user-specific info) 53 | *.local 54 | *.identcache 55 | *.projdata 56 | *.tvsconfig 57 | *.dsk 58 | 59 | # Delphi history and backups 60 | __history/ 61 | __recovery/ 62 | *.~* 63 | # Delphi DataBase 64 | *.db 65 | # Delphi Inifile 66 | *.ini 67 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi) 68 | *.stat 69 | -------------------------------------------------------------------------------- /LoadUrlGif/LoadUrlGif.dpr: -------------------------------------------------------------------------------- 1 | program LoadUrlGif; 2 | 3 | uses 4 | Vcl.Forms, 5 | Vcl.Themes, 6 | Vcl.Styles, 7 | Main in 'Main.pas' {frmMain} , 8 | Splash in 'View\Splash.pas' {frmSplash} , 9 | About in 'View\About.pas' {frmAbout}; 10 | 11 | {$R *.res} 12 | 13 | begin 14 | Application.Initialize; 15 | Application.MainFormOnTaskbar := True; 16 | Application.CreateForm(TfrmMain, frmMain); 17 | Application.CreateForm(TfrmAbout, frmAbout); 18 | // Display Splash Screen... 19 | try 20 | frmSplash := TfrmSplash.Create(Application); 21 | // 22 | frmSplash.ShowModal; 23 | finally 24 | frmSplash.Free; 25 | end; 26 | Application.Run; 27 | 28 | end. 29 | -------------------------------------------------------------------------------- /LoadUrlGif/LoadUrlGif.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/LoadUrlGif/LoadUrlGif.res -------------------------------------------------------------------------------- /LoadUrlGif/LoadUrlGif_.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/LoadUrlGif/LoadUrlGif_.png -------------------------------------------------------------------------------- /LoadUrlGif/LoadUrlGif_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/LoadUrlGif/LoadUrlGif_Icon.ico -------------------------------------------------------------------------------- /LoadUrlGif/Main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/LoadUrlGif/Main.pas -------------------------------------------------------------------------------- /LoadUrlGif/README.md: -------------------------------------------------------------------------------- 1 | # LoadUrlGif 2 | - Load GIF From URL 3 | ![](LoadUrlGif_.png) 4 | 5 | 6 | # Features 7 | 8 | - Load Gif Picture using MemeoryStream. 9 | - Choose Animation Speed. 10 | 11 | 12 | ## Files 13 | 14 | | File | Contents | 15 | | --- | --- | 16 | | .gitignore | Git ignores the files in this file | 17 | | About.pas | Information view of the programme | 18 | | About.pas | Information view of the programme | 19 | | Main.pas | The main view of the programme | 20 | | LoadUrlGif.dpk | The compiler project file | 21 | | LoadUrlGif.dproj | The MSBUILD project file | 22 | | README.md | The readme for this project | 23 | -------------------------------------------------------------------------------- /LoadUrlGif/View/About.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/LoadUrlGif/View/About.pas -------------------------------------------------------------------------------- /LoadUrlGif/View/README: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /LoadUrlGif/View/Splash.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/LoadUrlGif/View/Splash.pas -------------------------------------------------------------------------------- /MeteoChart/.gitignore: -------------------------------------------------------------------------------- 1 | # Uncomment these types if you want even more clean repository. But be careful. 2 | # It can make harm to an existing project source. Read explanations below. 3 | # 4 | # Resource files are binaries containing manifest, project icon and version info. 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. 6 | #*.res 7 | # 8 | # Type library file (binary). In old Delphi versions it should be stored. 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. 10 | #*.tlb 11 | # 12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. 13 | # Uncomment this if you are not using diagrams or use newer Delphi version. 14 | #*.ddp 15 | # 16 | # Visual LiveBindings file. Added in Delphi XE2. 17 | # Uncomment this if you are not using LiveBindings Designer. 18 | #*.vlb 19 | # 20 | # Deployment Manager configuration file for your project. Added in Delphi XE2. 21 | # Uncomment this if it is not mobile development and you do not use remote debug feature. 22 | #*.deployproj 23 | # 24 | # C++ object files produced when C/C++ Output file generation is configured. 25 | # Uncomment this if you are not using external objects (zlib library for example). 26 | #*.obj 27 | # 28 | 29 | # Delphi compiler-generated binaries (safe to delete) 30 | *.exe 31 | *.dll 32 | *.bpl 33 | *.bpi 34 | *.dcp 35 | *.so 36 | *.apk 37 | *.drc 38 | *.map 39 | *.dres 40 | *.rsm 41 | *.tds 42 | *.dcu 43 | *.lib 44 | *.a 45 | *.o 46 | *.ocx 47 | # Delphi autogenerated files (duplicated info) 48 | *.cfg 49 | *.hpp 50 | *Resource.rc 51 | 52 | # Delphi local files (user-specific info) 53 | *.local 54 | *.identcache 55 | *.projdata 56 | *.tvsconfig 57 | *.dsk 58 | 59 | # Delphi history and backups 60 | __history/ 61 | __recovery/ 62 | *.~* 63 | # Delphi DataBase 64 | *.db 65 | # Delphi Inifile 66 | *.ini 67 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi) 68 | *.stat 69 | -------------------------------------------------------------------------------- /MeteoChart/MeteoChart.dpr: -------------------------------------------------------------------------------- 1 | program MeteoChart; 2 | 3 | uses 4 | Forms, 5 | Main in 'View\Main.pas' {frmMain}, 6 | UObservable in 'Unit\UObservable.pas', 7 | UInterfaces in 'Unit\UInterfaces.pas', 8 | UMeteo in 'Unit\UMeteo.pas', 9 | About in 'View\About.pas' {frmAbout}, 10 | Logging in 'View\Logging.pas' {frmLogging}, 11 | Chart in 'View\Chart.pas' {frmChart}; 12 | 13 | {$R *.res} 14 | 15 | begin 16 | Application.Initialize; 17 | Application.CreateForm(TfrmMain, frmMain); 18 | Application.CreateForm(TfrmAbout, frmAbout); 19 | Application.Run; 20 | end. 21 | 22 | -------------------------------------------------------------------------------- /MeteoChart/MeteoChart.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MeteoChart/MeteoChart.png -------------------------------------------------------------------------------- /MeteoChart/MeteoChart.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MeteoChart/MeteoChart.res -------------------------------------------------------------------------------- /MeteoChart/MeteoChart_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MeteoChart/MeteoChart_Icon.ico -------------------------------------------------------------------------------- /MeteoChart/README.md: -------------------------------------------------------------------------------- 1 | # MeteoChart 2 | - Display As Many Graphics As Desired by the User with The Curves of 3 | Temperature, Humidity and Atmospheric Pressure . 4 | ![](MeteoChart.png) 5 | 6 | 7 | 8 | # Features 9 | 10 | - Implementation of the Observer Pattern To Deal with Decoupling Classes . 11 | - View Current Temperature, Humidity and Pressure Using TChart Component . 12 | 13 | 14 | 15 | 16 | 17 | 18 | ## Files 19 | 20 | | File | Contents | 21 | | --- | --- | 22 | | .gitignore | Git ignores the files in this file | 23 | | About.pas | About view of the programme | 24 | | Main.pas | Main view of the programme | 25 | | Chart.pas | Chart view of the programme | 26 | | Logging.pas | Logging view of the programme | 27 | | uMeteo.pas | uMeteo Unit | 28 | | uObservable.pas | uObservable Unit | 29 | | uInterfaces.pas | uInterfaces Unit | 30 | | clConverter.dpk | The compiler project file | 31 | | clConverter.dproj | The MSBUILD project file | 32 | | README.md | The readme for this project | 33 | -------------------------------------------------------------------------------- /MeteoChart/Unit/UInterfaces.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MeteoChart/Unit/UInterfaces.pas -------------------------------------------------------------------------------- /MeteoChart/Unit/UMeteo.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MeteoChart/Unit/UMeteo.pas -------------------------------------------------------------------------------- /MeteoChart/Unit/UObservable.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MeteoChart/Unit/UObservable.pas -------------------------------------------------------------------------------- /MeteoChart/View/About.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MeteoChart/View/About.pas -------------------------------------------------------------------------------- /MeteoChart/View/Chart.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MeteoChart/View/Chart.pas -------------------------------------------------------------------------------- /MeteoChart/View/Logging.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MeteoChart/View/Logging.pas -------------------------------------------------------------------------------- /MeteoChart/View/Main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MeteoChart/View/Main.pas -------------------------------------------------------------------------------- /MeteoChart/readme.txt: -------------------------------------------------------------------------------- 1 | - view current temperature, humidity and pressure readings 2 | - display as many readings as desired by the user with current values, min 3 | and maximum temperature, humidity and atmospheric pressure 4 | - display as many graphics as desired by the user with the curves of 5 | temperature, humidity and atmospheric pressure to the non-exclusive choice of 6 | the user. The latter must also be able to select the number of points 7 | observations. 8 | - We will be able to connect other types of display but we do not know them 9 | not at the moment. -------------------------------------------------------------------------------- /MyAlbumDLL/.gitignore: -------------------------------------------------------------------------------- 1 | # Uncomment these types if you want even more clean repository. But be careful. 2 | # It can make harm to an existing project source. Read explanations below. 3 | # 4 | # Resource files are binaries containing manifest, project icon and version info. 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. 6 | #*.res 7 | # 8 | # Type library file (binary). In old Delphi versions it should be stored. 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. 10 | #*.tlb 11 | # 12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. 13 | # Uncomment this if you are not using diagrams or use newer Delphi version. 14 | #*.ddp 15 | # 16 | # Visual LiveBindings file. Added in Delphi XE2. 17 | # Uncomment this if you are not using LiveBindings Designer. 18 | #*.vlb 19 | # 20 | # Deployment Manager configuration file for your project. Added in Delphi XE2. 21 | # Uncomment this if it is not mobile development and you do not use remote debug feature. 22 | #*.deployproj 23 | # 24 | # C++ object files produced when C/C++ Output file generation is configured. 25 | # Uncomment this if you are not using external objects (zlib library for example). 26 | #*.obj 27 | # 28 | 29 | # Delphi compiler-generated binaries (safe to delete) 30 | *.exe 31 | *.dll 32 | *.bpl 33 | *.bpi 34 | *.dcp 35 | *.so 36 | *.apk 37 | *.drc 38 | *.map 39 | *.dres 40 | *.rsm 41 | *.tds 42 | *.dcu 43 | *.lib 44 | *.a 45 | *.o 46 | *.ocx 47 | # Delphi autogenerated files (duplicated info) 48 | *.cfg 49 | *.hpp 50 | *Resource.rc 51 | 52 | # Delphi local files (user-specific info) 53 | *.local 54 | *.identcache 55 | *.projdata 56 | *.tvsconfig 57 | *.dsk 58 | 59 | # Delphi history and backups 60 | __history/ 61 | __recovery/ 62 | *.~* 63 | # Delphi DataBase 64 | *.db 65 | # Delphi Inifile 66 | *.ini 67 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi) 68 | *.stat 69 | -------------------------------------------------------------------------------- /MyAlbumDLL/DLL/DLLImages.dpr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyAlbumDLL/DLL/DLLImages.dpr -------------------------------------------------------------------------------- /MyAlbumDLL/DLL/DLLImages.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyAlbumDLL/DLL/DLLImages.res -------------------------------------------------------------------------------- /MyAlbumDLL/DLL/Resource/01.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyAlbumDLL/DLL/Resource/01.jpg -------------------------------------------------------------------------------- /MyAlbumDLL/DLL/Resource/02.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyAlbumDLL/DLL/Resource/02.jpg -------------------------------------------------------------------------------- /MyAlbumDLL/DLL/Resource/03.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyAlbumDLL/DLL/Resource/03.jpg -------------------------------------------------------------------------------- /MyAlbumDLL/DLL/Resource/ResÍmage.rc: -------------------------------------------------------------------------------- 1 | R1 RCDATA "01.jpg" 2 | R2 RCDATA "02.jpg" 3 | R3 RCDATA "03.jpg" -------------------------------------------------------------------------------- /MyAlbumDLL/DLL/ResÍmage.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyAlbumDLL/DLL/ResÍmage.res -------------------------------------------------------------------------------- /MyAlbumDLL/GrpMyAlbumDLL.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {24097B90-642F-405B-A003-A114405EF288} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /MyAlbumDLL/Mon projet/Main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyAlbumDLL/Mon projet/Main.pas -------------------------------------------------------------------------------- /MyAlbumDLL/Mon projet/MyAlbum.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyAlbumDLL/Mon projet/MyAlbum.res -------------------------------------------------------------------------------- /MyAlbumDLL/Mon projet/MyAlbumDLL.dpr: -------------------------------------------------------------------------------- 1 | program MyAlbumDLL; 2 | 3 | uses 4 | Forms, 5 | Main in 'Main.pas' {frmMain}, 6 | uAbout in 'uAbout.pas' {frmAbout}; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.MainFormOnTaskBar:=True; 13 | Application.CreateForm(TfrmMain, frmMain); 14 | Application.CreateForm(TfrmAbout,frmAbout); 15 | Application.Run; 16 | end. 17 | -------------------------------------------------------------------------------- /MyAlbumDLL/Mon projet/MyAlbumDLL.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyAlbumDLL/Mon projet/MyAlbumDLL.res -------------------------------------------------------------------------------- /MyAlbumDLL/Mon projet/MyAlbum_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyAlbumDLL/Mon projet/MyAlbum_Icon.ico -------------------------------------------------------------------------------- /MyAlbumDLL/Mon projet/ResMusic.RES: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyAlbumDLL/Mon projet/ResMusic.RES -------------------------------------------------------------------------------- /MyAlbumDLL/Mon projet/uAbout.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyAlbumDLL/Mon projet/uAbout.pas -------------------------------------------------------------------------------- /MyAlbumDLL/MyAlbumDLL.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyAlbumDLL/MyAlbumDLL.png -------------------------------------------------------------------------------- /MyAlbumDLL/README.md: -------------------------------------------------------------------------------- 1 | # MyAlbumDLL 2 | - Load Image from a DLL resource. 3 | ![](MyAlbumDLL.png) 4 | 5 | 6 | 7 | # Features 8 | - Create And Edit Photo Albums. 9 | - Sorting Photos And Photo Albums. 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | ## Files 19 | 20 | | File | Contents | 21 | | --- | --- | 22 | | .gitignore | Git ignores the files in this file | 23 | | uAbout.pas | About view of the programme | 24 | | uMain.pas | Main view of the programme | 25 | | MyAlbumDLL.dpk | The compiler project file | 26 | | MyAlbumDLL.dproj | The MSBUILD project file | 27 | | README.md | The readme for this project | 28 | -------------------------------------------------------------------------------- /MyStringGrid/About/About.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyStringGrid/About/About.pas -------------------------------------------------------------------------------- /MyStringGrid/Api/uIConnection.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyStringGrid/Api/uIConnection.pas -------------------------------------------------------------------------------- /MyStringGrid/BIN/Data/MyTest.db: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyStringGrid/BIN/Data/MyTest.db -------------------------------------------------------------------------------- /MyStringGrid/Demo1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyStringGrid/Demo1.res -------------------------------------------------------------------------------- /MyStringGrid/Implimentation/uTConnection.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyStringGrid/Implimentation/uTConnection.pas -------------------------------------------------------------------------------- /MyStringGrid/Main.dfm: -------------------------------------------------------------------------------- 1 | object frmMain: TfrmMain 2 | Left = 0 3 | Top = 0 4 | Caption = 'Demo' 5 | ClientHeight = 490 6 | ClientWidth = 338 7 | Color = clWhite 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | Menu = MainMenu 14 | OldCreateOrder = False 15 | OnCreate = FormCreate 16 | OnShow = FormShow 17 | DesignSize = ( 18 | 338 19 | 490) 20 | PixelsPerInch = 96 21 | TextHeight = 13 22 | object StrGrid: TStringGrid 23 | AlignWithMargins = True 24 | Left = 3 25 | Top = 3 26 | Width = 332 27 | Height = 286 28 | Align = alTop 29 | RowCount = 11 30 | TabOrder = 0 31 | OnDrawCell = StrGridDrawCell 32 | end 33 | object btnUpdateDB: TButton 34 | Left = 260 35 | Top = 295 36 | Width = 75 37 | Height = 25 38 | Anchors = [akTop, akRight] 39 | Caption = 'Update DB' 40 | TabOrder = 1 41 | OnClick = btnUpdateDBClick 42 | end 43 | object btnInsert: TButton 44 | Left = 3 45 | Top = 295 46 | Width = 75 47 | Height = 25 48 | Caption = 'Insert' 49 | TabOrder = 2 50 | OnClick = btnInsertClick 51 | end 52 | object btnCSV: TButton 53 | Left = 174 54 | Top = 457 55 | Width = 75 56 | Height = 25 57 | Anchors = [akRight, akBottom] 58 | Caption = 'CSV' 59 | TabOrder = 3 60 | OnClick = btnCSVClick 61 | ExplicitTop = 477 62 | end 63 | object btnJSON: TButton 64 | Left = 260 65 | Top = 457 66 | Width = 75 67 | Height = 25 68 | Anchors = [akRight, akBottom] 69 | Caption = 'JSON' 70 | TabOrder = 4 71 | OnClick = btnJSONClick 72 | ExplicitTop = 477 73 | end 74 | object btnPrint: TButton 75 | Left = 3 76 | Top = 457 77 | Width = 75 78 | Height = 25 79 | Anchors = [akRight, akBottom] 80 | Caption = 'Print' 81 | TabOrder = 5 82 | OnClick = btnPrintClick 83 | ExplicitTop = 477 84 | end 85 | object btnPDF: TButton 86 | Left = 88 87 | Top = 457 88 | Width = 75 89 | Height = 25 90 | Anchors = [akRight, akBottom] 91 | Caption = 'PDF' 92 | TabOrder = 6 93 | OnClick = btnPDFClick 94 | ExplicitTop = 477 95 | end 96 | object MainMenu: TMainMenu 97 | Left = 144 98 | Top = 344 99 | object N1: TMenuItem 100 | Caption = '&File' 101 | ShortCut = 16454 102 | object N2: TMenuItem 103 | Caption = '&Exit' 104 | ShortCut = 16453 105 | OnClick = N2Click 106 | end 107 | end 108 | object A1: TMenuItem 109 | Caption = '&About' 110 | ShortCut = 16449 111 | object I1: TMenuItem 112 | Caption = '&Information' 113 | ShortCut = 16457 114 | OnClick = I1Click 115 | end 116 | end 117 | end 118 | end 119 | -------------------------------------------------------------------------------- /MyStringGrid/Main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyStringGrid/Main.pas -------------------------------------------------------------------------------- /MyStringGrid/Module/Module.dfm: -------------------------------------------------------------------------------- 1 | object DMModule: TDMModule 2 | OldCreateOrder = False 3 | OnCreate = DataModuleCreate 4 | Height = 420 5 | Width = 483 6 | end 7 | -------------------------------------------------------------------------------- /MyStringGrid/Module/Module.pas: -------------------------------------------------------------------------------- 1 | unit Module; 2 | 3 | interface 4 | 5 | uses 6 | System.SysUtils, System.Classes, ZAbstractConnection, ZConnection, ZDataset, 7 | ZDbcCache, ZAbstractRODataset, ZDbcMySQL, ZDbcPostgreSQL, DB, ZSqlUpdate, 8 | ComCtrls, ZDbcInterbase6, ZSqlMonitor, ZAbstractDataset, ZSequence; 9 | 10 | type 11 | TDMModule = class(TDataModule) 12 | procedure DataModuleCreate(Sender: TObject); 13 | private 14 | { Private-Deklarationen } 15 | FConnection: TZConnection; 16 | FDataset: TZQuery; 17 | FUpdateSQL: TZUpdateSQL; 18 | FDatabaseName: string; 19 | 20 | public 21 | { Public-Deklarationen } 22 | property Connection: TZConnection read FConnection write Fconnection; 23 | property Dataset: TZQuery read FDataset write FDataset; 24 | property UpdateSQL: TZUpdateSQL read FUpdateSQL write FUpdateSQL; 25 | property DatabaseName: string read FDatabaseName write FDatabaseName; 26 | end; 27 | 28 | var 29 | DMModule: TDMModule; 30 | 31 | implementation 32 | 33 | {%CLASSGROUP 'Vcl.Controls.TControl'} 34 | {$R *.dfm} 35 | 36 | procedure TDMModule.DataModuleCreate(Sender: TObject); 37 | const 38 | cDB = 'Data\'; 39 | var 40 | sDirDB: string; 41 | begin 42 | sDirDB := ExtractFilePath(paramstr(0)) + cDB; 43 | ForceDirectories(sDirDB); 44 | 45 | DatabaseName := 'MyTest.db'; 46 | 47 | FConnection := TZConnection.Create(self); 48 | FConnection.Database := Concat(sDirDB, DatabaseName); 49 | FConnection.Protocol := 'sqLite'; 50 | FConnection.Connect; 51 | 52 | Dataset := TZQuery.Create(self); 53 | Dataset.Connection := FConnection; 54 | 55 | Dataset.SQL.Add 56 | ('CREATE TABLE IF NOT EXISTS STUDENT(ID integer NOT NULL PRIMARY KEY AUTOINCREMENT,Note1 integer NOT NULL,Note2 integer NOT NULL,Note3 integer NOT NULL,Note4 integer NOT NULL)'); 57 | Dataset.ExecSQL; 58 | // Set Stringgrid dimension 59 | 60 | end; 61 | 62 | 63 | end. 64 | -------------------------------------------------------------------------------- /MyStringGrid/Module/Module.pas.cbk: -------------------------------------------------------------------------------- 1 | unit Module; 2 | 3 | interface 4 | 5 | uses 6 | System.SysUtils, System.Classes, ZAbstractConnection, ZConnection, ZDataset, 7 | ZDbcCache, ZAbstractRODataset, ZDbcMySQL, ZDbcPostgreSQL, DB, ZSqlUpdate, 8 | ComCtrls, ZDbcInterbase6, ZSqlMonitor, ZAbstractDataset, ZSequence; 9 | 10 | type 11 | TDMModule = class(TDataModule) 12 | procedure DataModuleCreate(Sender: TObject); 13 | private 14 | { Private-Deklarationen } 15 | FConnection: TZConnection; 16 | FDataset: TZQuery; 17 | FUpdateSQL: TZUpdateSQL; 18 | FDatabaseName: string; 19 | 20 | public 21 | { Public-Deklarationen } 22 | property Connection: TZConnection read FConnection write Fconnection; 23 | property Dataset: TZQuery read FDataset write FDataset; 24 | property UpdateSQL: TZUpdateSQL read FUpdateSQL write FUpdateSQL; 25 | property DatabaseName: string read FDatabaseName write FDatabaseName; 26 | end; 27 | 28 | var 29 | DMModule: TDMModule; 30 | 31 | implementation 32 | 33 | {%CLASSGROUP 'Vcl.Controls.TControl'} 34 | {$R *.dfm} 35 | 36 | procedure TDMModule.DataModuleCreate(Sender: TObject); 37 | const 38 | cDB = 'Data\'; 39 | var 40 | sDirDB: string; 41 | begin 42 | sDirDB := ExtractFilePath(paramstr(0)) + cDB; 43 | ForceDirectories(sDirDB); 44 | 45 | DatabaseName := 'MyTest.db'; 46 | 47 | FConnection := TZConnection.Create(self); 48 | FConnection.Database := Concat(sDirDB, DatabaseName); 49 | FConnection.Protocol := 'sqLite'; 50 | FConnection.Connect; 51 | 52 | Dataset := TZQuery.Create(self); 53 | Dataset.Connection := FConnection; 54 | 55 | Dataset.SQL.Add 56 | ('CREATE TABLE IF NOT EXISTS STUDENT(ID integer NOT NULL PRIMARY KEY AUTOINCREMENT,Note1 integer NOT NULL,Note2 integer NOT NULL,Note3 integer NOT NULL,Note4 integer NOT NULL)'); 57 | Dataset.ExecSQL; 58 | // Set Stringgrid dimension 59 | 60 | end; 61 | 62 | 63 | end. 64 | -------------------------------------------------------------------------------- /MyStringGrid/MyStringGrid.dpr: -------------------------------------------------------------------------------- 1 | program MyStringGrid; 2 | 3 | uses 4 | Vcl.Forms, 5 | Main in 'Main.pas' {frmMain}, 6 | uStringGrid in 'uStringGrid.pas', 7 | uSettingPrint in 'uSettingPrint.pas', 8 | SetupPrinter in 'SetupPrinter.pas' {frmSetupPrinter}, 9 | Module in 'Module\Module.pas' {DMModule: TDataModule}, 10 | uIConnection in 'Api\uIConnection.pas', 11 | uTConnection in 'Implimentation\uTConnection.pas', 12 | About in 'About\About.pas' {frmAbout}; 13 | 14 | {$R *.res} 15 | 16 | begin 17 | Application.Initialize; 18 | Application.title:='MyStringGrid'; 19 | Application.MainFormOnTaskbar := True; 20 | Application.CreateForm(TfrmMain, frmMain); 21 | Application.CreateForm(TfrmAbout, frmAbout); 22 | Application.Run; 23 | end. 24 | -------------------------------------------------------------------------------- /MyStringGrid/MyStringGrid.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyStringGrid/MyStringGrid.png -------------------------------------------------------------------------------- /MyStringGrid/MyStringGrid.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyStringGrid/MyStringGrid.res -------------------------------------------------------------------------------- /MyStringGrid/MyStringGrid_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyStringGrid/MyStringGrid_Icon.ico -------------------------------------------------------------------------------- /MyStringGrid/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyStringGrid/Project1.res -------------------------------------------------------------------------------- /MyStringGrid/README.md: -------------------------------------------------------------------------------- 1 | # MyStringGrid 2 | - Export StringGrid to different File Formats 3 | ![](MyStringGrid.png) 4 | 5 | ## Built With 6 | 7 | * [Zeoslib](https://sourceforge.net/projects/zeoslib/) - Zeos Library 8 | 9 | 10 | # Features 11 | 12 | - Export to PDF,CSV or JSON. 13 | - Printing using windows API. 14 | - choosing the best parametrization by printing. 15 | 16 | 17 | ## Files 18 | 19 | | File | Contents | 20 | | --- | --- | 21 | | .gitignore | Git ignores the files in this file | 22 | | uStringGrid| in 'uStringGrid unit | 23 | | uSettingPrint| uSettingPrint unit | 24 | | uIConnection | uIConnection unit | 25 | | uTConnection | uTConnection unit | 26 | | Module| Main Module of the progmramme | 27 | | SetupPrinter | Setup Printer view of the programme| 28 | | About.pas | Information view of the programme | 29 | | About.pas | Information view of the programme | 30 | | Main.pas | The main view of the programme | 31 | | MyStringGrid.dpk | The compiler project file | 32 | | MyStringGrid.dproj | The MSBUILD project file | 33 | | README.md | The readme for this project | 34 | 35 | 36 | ------ 37 | ### Demo 38 | MyStringGrid - (Demo) : https://www.youtube.com/watch?v=JOr5_YSe47M 39 | 40 | -------------------------------------------------------------------------------- /MyStringGrid/SetupPrinter.dfm: -------------------------------------------------------------------------------- 1 | object frmSetupPrinter: TfrmSetupPrinter 2 | Left = 0 3 | Top = 0 4 | BorderStyle = bsDialog 5 | Caption = 'Printer' 6 | ClientHeight = 313 7 | ClientWidth = 211 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'Tahoma' 13 | Font.Style = [] 14 | OldCreateOrder = False 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object RGrpColor: TRadioGroup 19 | Left = 13 20 | Top = 8 21 | Width = 185 22 | Height = 82 23 | Caption = 'Color' 24 | ItemIndex = 0 25 | Items.Strings = ( 26 | 'Color' 27 | 'Back/white') 28 | TabOrder = 0 29 | OnClick = RGrpColorClick 30 | end 31 | object CBPrinter: TComboBox 32 | Left = 13 33 | Top = 184 34 | Width = 185 35 | Height = 21 36 | TabOrder = 1 37 | Text = 'Printers' 38 | OnChange = CBPrinterChange 39 | end 40 | object btnOK: TButton 41 | Left = 13 42 | Top = 268 43 | Width = 84 44 | Height = 28 45 | Caption = 'OK' 46 | ModalResult = 1 47 | TabOrder = 2 48 | end 49 | object btnCancel: TButton 50 | Left = 114 51 | Top = 268 52 | Width = 84 53 | Height = 28 54 | Caption = 'Cancel' 55 | ModalResult = 2 56 | TabOrder = 3 57 | end 58 | object RGrpSize: TRadioGroup 59 | Left = 13 60 | Top = 96 61 | Width = 185 62 | Height = 82 63 | Caption = 'Size' 64 | ItemIndex = 0 65 | Items.Strings = ( 66 | '1/1' 67 | '1/2') 68 | TabOrder = 4 69 | OnClick = RGrpSizeClick 70 | end 71 | end 72 | -------------------------------------------------------------------------------- /MyStringGrid/SetupPrinter.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyStringGrid/SetupPrinter.pas -------------------------------------------------------------------------------- /MyStringGrid/uSettingPrint.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyStringGrid/uSettingPrint.pas -------------------------------------------------------------------------------- /MyStringGrid/uStringGrid.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/MyStringGrid/uStringGrid.pas -------------------------------------------------------------------------------- /NOTyMSG/.gitignore: -------------------------------------------------------------------------------- 1 | # Uncomment these types if you want even more clean repository. But be careful. 2 | # It can make harm to an existing project source. Read explanations below. 3 | # 4 | # Resource files are binaries containing manifest, project icon and version info. 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. 6 | #*.res 7 | # 8 | # Type library file (binary). In old Delphi versions it should be stored. 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. 10 | #*.tlb 11 | # 12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. 13 | # Uncomment this if you are not using diagrams or use newer Delphi version. 14 | #*.ddp 15 | # 16 | # Visual LiveBindings file. Added in Delphi XE2. 17 | # Uncomment this if you are not using LiveBindings Designer. 18 | #*.vlb 19 | # 20 | # Deployment Manager configuration file for your project. Added in Delphi XE2. 21 | # Uncomment this if it is not mobile development and you do not use remote debug feature. 22 | #*.deployproj 23 | # 24 | # C++ object files produced when C/C++ Output file generation is configured. 25 | # Uncomment this if you are not using external objects (zlib library for example). 26 | #*.obj 27 | # 28 | 29 | # Delphi compiler-generated binaries (safe to delete) 30 | *.exe 31 | *.dll 32 | *.bpl 33 | *.bpi 34 | *.dcp 35 | *.so 36 | *.apk 37 | *.drc 38 | *.map 39 | *.dres 40 | *.rsm 41 | *.tds 42 | *.dcu 43 | *.lib 44 | *.a 45 | *.o 46 | *.ocx 47 | # Delphi autogenerated files (duplicated info) 48 | *.cfg 49 | *.hpp 50 | *Resource.rc 51 | 52 | # Delphi local files (user-specific info) 53 | *.local 54 | *.identcache 55 | *.projdata 56 | *.tvsconfig 57 | *.dsk 58 | 59 | # Delphi history and backups 60 | __history/ 61 | __recovery/ 62 | *.~* 63 | # Delphi DataBase 64 | *.db 65 | # Delphi Inifile 66 | *.ini 67 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi) 68 | *.stat 69 | -------------------------------------------------------------------------------- /NOTyMSG/DEBUG/Libary/html/main.htm: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 28 | 29 | 30 | 36 |
37 |
38 |
39 | 40 |
41 | 42 | 43 | -------------------------------------------------------------------------------- /NOTyMSG/DEBUG/Libary/png/test.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/NOTyMSG/DEBUG/Libary/png/test.png -------------------------------------------------------------------------------- /NOTyMSG/DEBUG/Libary/txt/Notify.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/NOTyMSG/DEBUG/Libary/txt/Notify.txt -------------------------------------------------------------------------------- /NOTyMSG/DEBUG/main.htm: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | Центр уведомлений (стиль) 6 | 30 | 31 | 32 | 38 |
39 |
40 |
41 | 42 |
43 | 44 | -------------------------------------------------------------------------------- /NOTyMSG/NOTyMSG/MainRecieve.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/NOTyMSG/NOTyMSG/MainRecieve.pas -------------------------------------------------------------------------------- /NOTyMSG/NOTyMSG/NOTyMSG.dpr: -------------------------------------------------------------------------------- 1 | program NOTyMSG; 2 | 3 | uses 4 | Vcl.Forms,System.SysUtils, 5 | MainRecieve in 'MainRecieve.pas' {frmMainRecieve}, 6 | uScript in 'Unit\uScript.pas', 7 | UresApp in 'Unit\UresApp.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | 13 | if (ParamCount = 0) then 14 | Exit; 15 | 16 | case ParamCount of 17 | 1: 18 | if (ParamStr(1) = 'NOTyMSG') then 19 | begin 20 | // 21 | end 22 | else 23 | Exit; 24 | end; 25 | Application.Initialize; 26 | Application.Title:= ChangeFileExt(ExtractFileName(Application.ExeName),''); 27 | Application.MainFormOnTaskbar := True; 28 | Application.CreateForm(TfrmMainRecieve, frmMainRecieve); 29 | Application.Run; 30 | end. 31 | -------------------------------------------------------------------------------- /NOTyMSG/NOTyMSG/NOTyMSG.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/NOTyMSG/NOTyMSG/NOTyMSG.ico -------------------------------------------------------------------------------- /NOTyMSG/NOTyMSG/NOTyMSG.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/NOTyMSG/NOTyMSG/NOTyMSG.res -------------------------------------------------------------------------------- /NOTyMSG/NOTyMSG/NOTyMSG.skincfg: -------------------------------------------------------------------------------- 1 | [ExpressSkins] 2 | Default=1 3 | ShowNotifications=1 4 | Enabled=1 5 | dxSkinBlack=1 6 | dxSkinBlue=1 7 | dxSkinBlueprint=1 8 | dxSkinCaramel=1 9 | dxSkinCoffee=1 10 | dxSkinDarkRoom=1 11 | dxSkinDarkSide=1 12 | dxSkinDevExpressDarkStyle=1 13 | dxSkinDevExpressStyle=1 14 | dxSkinFoggy=1 15 | dxSkinGlassOceans=1 16 | dxSkinHighContrast=1 17 | dxSkiniMaginary=1 18 | dxSkinLilian=1 19 | dxSkinLiquidSky=1 20 | dxSkinLondonLiquidSky=1 21 | dxSkinMcSkin=1 22 | dxSkinMetropolis=1 23 | dxSkinMetropolisDark=1 24 | dxSkinMoneyTwins=1 25 | dxSkinOffice2007Black=1 26 | dxSkinOffice2007Blue=1 27 | dxSkinOffice2007Green=1 28 | dxSkinOffice2007Pink=1 29 | dxSkinOffice2007Silver=1 30 | dxSkinOffice2010Black=1 31 | dxSkinOffice2010Blue=1 32 | dxSkinOffice2010Silver=1 33 | dxSkinOffice2013DarkGray=1 34 | dxSkinOffice2013LightGray=1 35 | dxSkinOffice2013White=1 36 | dxSkinOffice2016Colorful=1 37 | dxSkinOffice2016Dark=1 38 | dxSkinPumpkin=1 39 | dxSkinSeven=1 40 | dxSkinSevenClassic=1 41 | dxSkinSharp=1 42 | dxSkinSharpPlus=1 43 | dxSkinSilver=1 44 | dxSkinSpringTime=1 45 | dxSkinStardust=1 46 | dxSkinSummer2008=1 47 | dxSkinTheAsphaltWorld=1 48 | dxSkinsDefaultPainters=1 49 | dxSkinValentine=1 50 | dxSkinVisualStudio2013Blue=1 51 | dxSkinVisualStudio2013Dark=1 52 | dxSkinVisualStudio2013Light=1 53 | dxSkinVS2010=1 54 | dxSkinWhiteprint=1 55 | dxSkinXmas2008Blue=1 56 | -------------------------------------------------------------------------------- /NOTyMSG/NOTyMSG/Unit/UresApp.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/NOTyMSG/NOTyMSG/Unit/UresApp.pas -------------------------------------------------------------------------------- /NOTyMSG/NOTyMSG/Unit/uScript.pas: -------------------------------------------------------------------------------- 1 | { ============================================ 2 | Software Name : NOTyMSG 3 | ============================================ } 4 | { ******************************************** } 5 | { Written By WalWalWalides } 6 | { CopyRight © 2019 } 7 | { Email : WalWalWalides@gmail.com } 8 | { GitHub :https://github.com/walwalwalides } 9 | { ******************************************** } 10 | unit uScript; 11 | 12 | interface 13 | 14 | uses 15 | Winapi.Windows, system.Types, system.sysutils, system.classes, registry, ShellApi; 16 | 17 | procedure CrHTMLscript(AFilevbs, AFunc: string); 18 | 19 | 20 | 21 | implementation 22 | 23 | procedure CrHTMLscript(AFilevbs, AFunc: string); 24 | var 25 | HtmlScript: Tstringlist; 26 | begin 27 | HtmlScript := Tstringlist.Create; 28 | try 29 | HtmlScript.ADD(''); 30 | HtmlScript.ADD(''); 31 | HtmlScript.ADD(''); 32 | HtmlScript.ADD(''); 33 | HtmlScript.ADD(''); 34 | HtmlScript.ADD(''); 35 | HtmlScript.ADD(''); 59 | HtmlScript.ADD(''); 60 | HtmlScript.ADD(''); 61 | HtmlScript.ADD(''); 67 | HtmlScript.ADD('
'); 68 | HtmlScript.ADD('
'); 69 | HtmlScript.ADD('
'); 70 | HtmlScript.ADD(''); 71 | HtmlScript.ADD('
'); 72 | HtmlScript.ADD(''); 73 | HtmlScript.ADD(''); 74 | 75 | HtmlScript.SaveToFile(AFilevbs); 76 | finally 77 | HtmlScript.Free; 78 | end; 79 | 80 | end; 81 | 82 | end. 83 | -------------------------------------------------------------------------------- /NOTyMSG/NOTyMSG_.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/NOTyMSG/NOTyMSG_.png -------------------------------------------------------------------------------- /NOTyMSG/NOTyMSGgrp.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {CF08C228-8C1B-42A1-9942-1CF1C8C9D833} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /NOTyMSG/NOTySEND/MainSender.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/NOTyMSG/NOTySEND/MainSender.pas -------------------------------------------------------------------------------- /NOTyMSG/NOTySEND/NOTySEND.dpr: -------------------------------------------------------------------------------- 1 | program NOTySEND; 2 | 3 | uses 4 | Vcl.Forms, 5 | MainSender in 'MainSender.pas' {frmMainSender}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.MainFormOnTaskbar := True; 12 | Application.CreateForm(TfrmMainSender, frmMainSender); 13 | Application.Run; 14 | end. 15 | -------------------------------------------------------------------------------- /NOTyMSG/NOTySEND/NOTySEND.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/NOTyMSG/NOTySEND/NOTySEND.ico -------------------------------------------------------------------------------- /NOTyMSG/NOTySEND/NOTySEND.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/NOTyMSG/NOTySEND/NOTySEND.res -------------------------------------------------------------------------------- /NOTyMSG/NOTySEND/NOTySEND.skincfg: -------------------------------------------------------------------------------- 1 | [ExpressSkins] 2 | Default=1 3 | ShowNotifications=1 4 | Enabled=1 5 | dxSkinBlack=1 6 | dxSkinBlue=1 7 | dxSkinBlueprint=1 8 | dxSkinCaramel=1 9 | dxSkinCoffee=1 10 | dxSkinDarkRoom=1 11 | dxSkinDarkSide=1 12 | dxSkinDevExpressDarkStyle=1 13 | dxSkinDevExpressStyle=1 14 | dxSkinFoggy=1 15 | dxSkinGlassOceans=1 16 | dxSkinHighContrast=1 17 | dxSkiniMaginary=1 18 | dxSkinLilian=1 19 | dxSkinLiquidSky=1 20 | dxSkinLondonLiquidSky=1 21 | dxSkinMcSkin=1 22 | dxSkinMetropolis=1 23 | dxSkinMetropolisDark=1 24 | dxSkinMoneyTwins=1 25 | dxSkinOffice2007Black=1 26 | dxSkinOffice2007Blue=1 27 | dxSkinOffice2007Green=1 28 | dxSkinOffice2007Pink=1 29 | dxSkinOffice2007Silver=1 30 | dxSkinOffice2010Black=1 31 | dxSkinOffice2010Blue=1 32 | dxSkinOffice2010Silver=1 33 | dxSkinOffice2013DarkGray=1 34 | dxSkinOffice2013LightGray=1 35 | dxSkinOffice2013White=1 36 | dxSkinOffice2016Colorful=1 37 | dxSkinOffice2016Dark=1 38 | dxSkinPumpkin=1 39 | dxSkinSeven=1 40 | dxSkinSevenClassic=1 41 | dxSkinSharp=1 42 | dxSkinSharpPlus=1 43 | dxSkinSilver=1 44 | dxSkinSpringTime=1 45 | dxSkinStardust=1 46 | dxSkinSummer2008=1 47 | dxSkinTheAsphaltWorld=1 48 | dxSkinsDefaultPainters=1 49 | dxSkinValentine=1 50 | dxSkinVisualStudio2013Blue=1 51 | dxSkinVisualStudio2013Dark=1 52 | dxSkinVisualStudio2013Light=1 53 | dxSkinVS2010=1 54 | dxSkinWhiteprint=1 55 | dxSkinXmas2008Blue=1 56 | -------------------------------------------------------------------------------- /NOTyMSG/README.md: -------------------------------------------------------------------------------- 1 | # NOTyMSG 2 | - How to create a custom Notification in Windows. 3 | ![](NOTyMSG_.png) 4 | 5 | ## Built With 6 | - Using only standard Components. 7 | 8 | 9 | # Features 10 | 11 | - Communication between 2 Windows from Application. 12 | - Adding or modifying CSS styles,to change the look. 13 | 14 | 15 | 16 | ## Files 17 | 18 | | File | Contents | 19 | | --- | --- | 20 | | .gitignore | Git ignores the files in this file | 21 | | MainRecieve.pas | Main Reciever of the programme | 22 | | MainSender.pas | Main Sender of the programme | 23 | | Uscript.pas | Unit script of the programme | 24 | | uresApp.pas | Unit of resource string | 25 | | NOTyMSG.dpk | The compiler project NOTyMSG| 26 | | NOTyMSG.dproj | The MSBUILD project NOTyMSG| 27 | | NOTySEND.dpk | The compiler project NOTyMSG| 28 | | NOTySEND.dproj | The MSBUILD project NOTyMSG| 29 | | README.md | The readme for this project | 30 | 31 | ## To Install the Software: 32 | 33 | ### Install NOTyMSG 34 | Download Link : https://github.com/walwalwalides/Delphi-Collection-VCL/releases/download/NotyMSG/NotyMSG.7z 35 | 36 | 37 | 38 | 39 | -------------------------------------------------------------------------------- /NOTyMSG/clear.bat: -------------------------------------------------------------------------------- 1 | del *.obj 2 | del *.dcu 3 | del *.~* 4 | del *.hpp 5 | del *.dcp 6 | del *.dpl 7 | del *.cesettings 8 | del *.bak 9 | --del *.exe* -------------------------------------------------------------------------------- /RegisterKey/.gitignore: -------------------------------------------------------------------------------- 1 | # Uncomment these types if you want even more clean repository. But be careful. 2 | # It can make harm to an existing project source. Read explanations below. 3 | # 4 | # Resource files are binaries containing manifest, project icon and version info. 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. 6 | #*.res 7 | # 8 | # Type library file (binary). In old Delphi versions it should be stored. 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. 10 | #*.tlb 11 | # 12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. 13 | # Uncomment this if you are not using diagrams or use newer Delphi version. 14 | #*.ddp 15 | # 16 | # Visual LiveBindings file. Added in Delphi XE2. 17 | # Uncomment this if you are not using LiveBindings Designer. 18 | #*.vlb 19 | # 20 | # Deployment Manager configuration file for your project. Added in Delphi XE2. 21 | # Uncomment this if it is not mobile development and you do not use remote debug feature. 22 | #*.deployproj 23 | # 24 | # C++ object files produced when C/C++ Output file generation is configured. 25 | # Uncomment this if you are not using external objects (zlib library for example). 26 | #*.obj 27 | # 28 | 29 | # Delphi compiler-generated binaries (safe to delete) 30 | *.exe 31 | *.dll 32 | *.bpl 33 | *.bpi 34 | *.dcp 35 | *.so 36 | *.apk 37 | *.drc 38 | *.map 39 | *.dres 40 | *.rsm 41 | *.tds 42 | *.dcu 43 | *.lib 44 | *.a 45 | *.o 46 | *.ocx 47 | # Delphi autogenerated files (duplicated info) 48 | *.cfg 49 | *.hpp 50 | *Resource.rc 51 | 52 | # Delphi local files (user-specific info) 53 | *.local 54 | *.identcache 55 | *.projdata 56 | *.tvsconfig 57 | *.dsk 58 | 59 | # Delphi history and backups 60 | __history/ 61 | __recovery/ 62 | *.~* 63 | # Delphi DataBase 64 | *.db 65 | # Delphi Inifile 66 | *.ini 67 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi) 68 | *.stat 69 | -------------------------------------------------------------------------------- /RegisterKey/README.md: -------------------------------------------------------------------------------- 1 | # RegisterKey 2 | - Tools to Create Key in Registry. 3 | 4 | ![](RegisterKey.png) 5 | 6 | 7 | # Features 8 | 9 | - Insert Keys and Items into the Windows Registry 10 | - Auto Generate Regfile 11 | 12 | 13 | ## Files 14 | 15 | | File | Contents | 16 | | --- | --- | 17 | | .gitignore | Git ignores the files in this file | 18 | | ToolLib.pas | Toollib unit | 19 | | Main.pas | The main view of the programme | 20 | | RegisterKey.dpk | The compiler project file | 21 | | RegisterKey.dproj | The MSBUILD project file | 22 | | README.md | The readme for this project | 23 | 24 | -------------------------------------------------------------------------------- /RegisterKey/RegisterKey.dpr: -------------------------------------------------------------------------------- 1 | program RegisterKey; 2 | 3 | uses 4 | Vcl.Forms, 5 | Main in 'View\Main.pas' {frmMain}, 6 | ToolLib in 'Unit\ToolLib.pas'; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.MainFormOnTaskbar := True; 13 | Application.CreateForm(TfrmMain, frmMain); 14 | Application.Run; 15 | end. 16 | -------------------------------------------------------------------------------- /RegisterKey/RegisterKey.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/RegisterKey/RegisterKey.png -------------------------------------------------------------------------------- /RegisterKey/RegisterKey_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/RegisterKey/RegisterKey_Icon.ico -------------------------------------------------------------------------------- /RegisterKey/Unit/ToolLib.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/RegisterKey/Unit/ToolLib.pas -------------------------------------------------------------------------------- /RegisterKey/View/Main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/RegisterKey/View/Main.pas -------------------------------------------------------------------------------- /SoftwareLicense/About/About.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/SoftwareLicense/About/About.dfm -------------------------------------------------------------------------------- /SoftwareLicense/About/About.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/SoftwareLicense/About/About.pas -------------------------------------------------------------------------------- /SoftwareLicense/Bin/Doc/SoftwareLicense.html: -------------------------------------------------------------------------------- 1 | 2 | Contents 3 | 4 | 5 | 6 | 7 | 8 |

9 | Contents 10 |

11 | 12 | 15 | 16 | -------------------------------------------------------------------------------- /SoftwareLicense/Img/VMSoftwareLicense.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/SoftwareLicense/Img/VMSoftwareLicense.png -------------------------------------------------------------------------------- /SoftwareLicense/License.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/SoftwareLicense/License.dfm -------------------------------------------------------------------------------- /SoftwareLicense/License.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/SoftwareLicense/License.pas -------------------------------------------------------------------------------- /SoftwareLicense/Main.dfm: -------------------------------------------------------------------------------- 1 | object frmMain: TfrmMain 2 | Left = 0 3 | Top = 0 4 | Caption = 'frmMain' 5 | ClientHeight = 542 6 | ClientWidth = 798 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | Menu = MainMenu1 14 | OldCreateOrder = False 15 | OnClose = FormClose 16 | OnCreate = FormCreate 17 | OnShow = FormShow 18 | PixelsPerInch = 96 19 | TextHeight = 13 20 | object MainMenu1: TMainMenu 21 | Left = 24 22 | Top = 488 23 | object F1: TMenuItem 24 | Caption = 'File' 25 | object miExit: TMenuItem 26 | Caption = 'E&xit' 27 | ShortCut = 16472 28 | OnClick = miExitClick 29 | end 30 | end 31 | object N1: TMenuItem 32 | Caption = 'Help' 33 | object miAbout: TMenuItem 34 | Caption = '&About' 35 | ShortCut = 16449 36 | OnClick = miAboutClick 37 | end 38 | end 39 | end 40 | end 41 | -------------------------------------------------------------------------------- /SoftwareLicense/Main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/SoftwareLicense/Main.pas -------------------------------------------------------------------------------- /SoftwareLicense/README.md: -------------------------------------------------------------------------------- 1 | # SoftwareLicense 2 | SoftwareLicense is template end user license agreement. 3 | 4 | 5 | 6 | ![Platforms](https://img.shields.io/badge/Supported%20platforms-Win32%20and%20Win64-red.svg) 7 | 8 | ![GitHub](https://img.shields.io/github/license/walwalwalides/Delphi-Collection-VCL) 9 | 10 | 11 | 12 | 13 | 14 | ![](SoftwareLicense.png) 15 | **Authors:** *WalWalWalides* 16 | ------ 17 | 18 | `SoftwareLicense` help to create user license agreement. 19 | 20 | 21 | Principal Software Benefits: 22 | 23 | - Generate a html arguments liences. 24 | - Create a license agreement as scrollbox Text. 25 | 26 | 27 | ### Main View 28 | ![](Img/VMSoftwareLicense.png) 29 | 30 | 31 | 32 | ------ 33 | 34 | ## Contains 35 | 36 | 37 | | File | Contents | 38 | | --- | --- | 39 | | .gitignore | Git ignores the files in this file | 40 | | About.pas | About view of the programme | 41 | | Main.pas | Main view of the programme | 42 | | uExScrollbox.pas | ExScrollbox unit | 43 | | uToolLib.pas | ToolLib unit | 44 | | SoftwareLicense.dpk | The compiler project file | 45 | | SoftwareLicense.dproj | The MSBUILD project file | 46 | | README.md | The readme for this project | 47 | 48 | 49 | ------ 50 | 51 | # If You Want To Donate! 52 | 53 | [![paypal](https://www.paypalobjects.com/en_US/i/btn/btn_donateCC_LG.gif)](https://www.paypal.com/cgi-bin/webscr?cmd=_s-xclick&hosted_button_id=Y79F36A9BGLHS&source=url) 54 | -------------------------------------------------------------------------------- /SoftwareLicense/SoftwareLicense.dpr: -------------------------------------------------------------------------------- 1 | program SoftwareLicense; 2 | 3 | uses 4 | Vcl.Forms, 5 | Inifiles, 6 | Main in 'Main.pas' {frmMain}, 7 | License in 'License.pas' {frmLicense}, 8 | uExScrollBox in 'uExScrollBox.pas', 9 | uToolLib in 'uToolLib.pas', 10 | About in 'About\About.pas' {AboutBox}; 11 | 12 | {$R *.res} 13 | var 14 | Inif: TCustomIniFile; 15 | MyLicense: TForm; 16 | begin 17 | Application.Initialize; 18 | Application.MainFormOnTaskbar := false; 19 | 20 | LicenseRead := FALSE; // license acceptance? 21 | 22 | try 23 | Inif := TMemIniFile.Create(GetAppDataPath + IniFileName); 24 | LicenseRead := Inif.ReadBool(SetupSection, 'LicenseRead', FALSE); 25 | 26 | if not(LicenseRead) then 27 | begin 28 | MyLicense := TfrmLicense.Create(Application); 29 | Try 30 | MyLicense.ShowModal 31 | Finally 32 | MyLicense.Free; 33 | End; 34 | end; 35 | finally 36 | Inif.Free; 37 | end; 38 | // 39 | if not(LicenseRead) then 40 | exit; 41 | 42 | Application.CreateForm(TfrmMain, frmMain); 43 | Application.Run; 44 | end. 45 | -------------------------------------------------------------------------------- /SoftwareLicense/SoftwareLicense.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/SoftwareLicense/SoftwareLicense.png -------------------------------------------------------------------------------- /SoftwareLicense/SoftwareLicense.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/SoftwareLicense/SoftwareLicense.res -------------------------------------------------------------------------------- /SoftwareLicense/SoftwareLicense_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/SoftwareLicense/SoftwareLicense_Icon.ico -------------------------------------------------------------------------------- /SoftwareLicense/uExScrollBox.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/SoftwareLicense/uExScrollBox.pas -------------------------------------------------------------------------------- /SoftwareLicense/uToolLib.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/SoftwareLicense/uToolLib.pas -------------------------------------------------------------------------------- /StudNote/.gitignore: -------------------------------------------------------------------------------- 1 | # Uncomment these types if you want even more clean repository. But be careful. 2 | # It can make harm to an existing project source. Read explanations below. 3 | # 4 | # Resource files are binaries containing manifest, project icon and version info. 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. 6 | #*.res 7 | # 8 | # Type library file (binary). In old Delphi versions it should be stored. 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. 10 | #*.tlb 11 | # 12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. 13 | # Uncomment this if you are not using diagrams or use newer Delphi version. 14 | #*.ddp 15 | # 16 | # Visual LiveBindings file. Added in Delphi XE2. 17 | # Uncomment this if you are not using LiveBindings Designer. 18 | #*.vlb 19 | # 20 | # Deployment Manager configuration file for your project. Added in Delphi XE2. 21 | # Uncomment this if it is not mobile development and you do not use remote debug feature. 22 | #*.deployproj 23 | # 24 | # C++ object files produced when C/C++ Output file generation is configured. 25 | # Uncomment this if you are not using external objects (zlib library for example). 26 | #*.obj 27 | # 28 | 29 | # Delphi compiler-generated binaries (safe to delete) 30 | *.exe 31 | *.dll 32 | *.bpl 33 | *.bpi 34 | *.dcp 35 | *.so 36 | *.apk 37 | *.drc 38 | *.map 39 | *.dres 40 | *.rsm 41 | *.tds 42 | *.dcu 43 | *.lib 44 | *.a 45 | *.o 46 | *.ocx 47 | # Delphi autogenerated files (duplicated info) 48 | *.cfg 49 | *.hpp 50 | *Resource.rc 51 | 52 | # Delphi local files (user-specific info) 53 | *.local 54 | *.identcache 55 | *.projdata 56 | *.tvsconfig 57 | *.dsk 58 | 59 | # Delphi history and backups 60 | __history/ 61 | __recovery/ 62 | *.~* 63 | # Delphi DataBase 64 | *.db 65 | # Delphi Inifile 66 | *.ini 67 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi) 68 | *.stat 69 | -------------------------------------------------------------------------------- /StudNote/README.md: -------------------------------------------------------------------------------- 1 | # StudNote 2 | - Save student grades and calculate the average 3 | ![](StudNote_.png) 4 | 5 | 6 | # Features 7 | 8 | - Calculate the average of each students. 9 | - Save and Load student grades using inifile. 10 | - Create A Graph and export to Bitmap Fomat. 11 | 12 | 13 | ## Files 14 | 15 | | File | Contents | 16 | | --- | --- | 17 | | .gitignore | Git ignores the files in this file | 18 | | AboutSN.pas | Information view of the programme | 19 | | FormMain.pas | The main view of the programme | 20 | | StudNote.dpk | The compiler project file | 21 | | StudNote.dproj | The MSBUILD project file | 22 | | README.md | The readme for this project | 23 | -------------------------------------------------------------------------------- /StudNote/StudNote.dpr: -------------------------------------------------------------------------------- 1 | program StudNote; 2 | 3 | uses 4 | Forms, 5 | FormMain in 'View\FormMain.pas' {MainForm}, 6 | AboutSN in 'View\AboutSN.pas' {frmAboutSN}, 7 | ChartStudent in 'View\ChartStudent.pas' {frmChartStudent}; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.CreateForm(TfrmAboutSN, frmAboutSN); 16 | Application.Run; 17 | end. 18 | -------------------------------------------------------------------------------- /StudNote/StudNote.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/StudNote/StudNote.res -------------------------------------------------------------------------------- /StudNote/StudNote_.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/StudNote/StudNote_.png -------------------------------------------------------------------------------- /StudNote/StudNote_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/StudNote/StudNote_Icon.ico -------------------------------------------------------------------------------- /StudNote/Unit/README.txt: -------------------------------------------------------------------------------- 1 | unit folder -------------------------------------------------------------------------------- /StudNote/View/AboutSN.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/StudNote/View/AboutSN.pas -------------------------------------------------------------------------------- /StudNote/View/ChartStudent.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/StudNote/View/ChartStudent.pas -------------------------------------------------------------------------------- /StudNote/View/FormMain.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/StudNote/View/FormMain.pas -------------------------------------------------------------------------------- /TColorCSV/Img/MainView.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/Img/MainView.png -------------------------------------------------------------------------------- /TColorCSV/README.md: -------------------------------------------------------------------------------- 1 | # TColorCSV 2 | TColorCSV is a Software that deliver a good methode to Create and Save CSV table. 3 | 4 | ![Platforms](https://img.shields.io/badge/Supported%20platforms-Win32%20and%20Win64-red.svg) 5 | 6 | ![GitHub](https://img.shields.io/github/license/walwalwalides/TColorCSV) 7 | 8 | 9 | 10 | 11 | 12 | ![](TColorCSV.png) 13 | **Authors:** *WalWalWalides* 14 | ------ 15 | 16 | `TColorCSV` help to create easily CSV table. 17 | 18 | 19 | Principal Software Benefits: 20 | 21 | - Reading and Writing CSV Files 22 | 23 | - Save the different parameters of Table (Color ,Width...) 24 | 25 | - PDF printer 26 | 27 | 28 | ### Main View 29 | ![](Img/MainView.png) 30 | 31 | 32 | 33 | ------ 34 | 35 | ## Contains 36 | 37 | | File | Contents | 38 | | --- | --- | 39 | | .gitignore | Git ignores the Files in this File | 40 | |[TColorCSV.exe](https://github.com/walwalwalides/TColorCSV/releases/download/TColorCSV/TColorCSV__Setup.exe)| Download TColorCSV 41 | | README.md | The Readme for this Project| 42 | 43 | ------ 44 | 45 | # If You Want To Donate! 46 | 47 | [![paypal](https://www.paypalobjects.com/en_US/i/btn/btn_donateCC_LG.gif)](https://www.paypal.com/cgi-bin/webscr?cmd=_s-xclick&hosted_button_id=Y79F36A9BGLHS&source=url) 48 | -------------------------------------------------------------------------------- /TColorCSV/TColorCSV.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/TColorCSV.png -------------------------------------------------------------------------------- /TColorCSV/src/.gitignore: -------------------------------------------------------------------------------- 1 | # Uncomment these types if you want even more clean repository. But be careful. 2 | # It can make harm to an existing project source. Read explanations below. 3 | # 4 | # Resource files are binaries containing manifest, project icon and version info. 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. 6 | #*.res 7 | # 8 | # Type library file (binary). In old Delphi versions it should be stored. 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. 10 | #*.tlb 11 | # 12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. 13 | # Uncomment this if you are not using diagrams or use newer Delphi version. 14 | #*.ddp 15 | # 16 | # Visual LiveBindings file. Added in Delphi XE2. 17 | # Uncomment this if you are not using LiveBindings Designer. 18 | #*.vlb 19 | # 20 | # Deployment Manager configuration file for your project. Added in Delphi XE2. 21 | # Uncomment this if it is not mobile development and you do not use remote debug feature. 22 | #*.deployproj 23 | # 24 | # C++ object files produced when C/C++ Output file generation is configured. 25 | # Uncomment this if you are not using external objects (zlib library for example). 26 | #*.obj 27 | # 28 | 29 | # Delphi compiler-generated binaries (safe to delete) 30 | *.exe 31 | *.dll 32 | *.bpl 33 | *.bpi 34 | *.dcp 35 | *.so 36 | *.apk 37 | *.drc 38 | *.map 39 | *.dres 40 | *.rsm 41 | *.tds 42 | *.dcu 43 | *.lib 44 | *.a 45 | *.o 46 | *.ocx 47 | 48 | # Delphi autogenerated files (duplicated info) 49 | *.cfg 50 | *.hpp 51 | *Resource.rc 52 | 53 | # Delphi local files (user-specific info) 54 | *.local 55 | *.identcache 56 | *.projdata 57 | *.tvsconfig 58 | *.dsk 59 | 60 | # Delphi history and backups 61 | __history/ 62 | __recovery/ 63 | *.~* 64 | 65 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi) 66 | *.stat 67 | -------------------------------------------------------------------------------- /TColorCSV/src/About/About.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/About/About.dfm -------------------------------------------------------------------------------- /TColorCSV/src/About/About.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/About/About.pas -------------------------------------------------------------------------------- /TColorCSV/src/BIN/Libary/vsf/Silver.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/BIN/Libary/vsf/Silver.vsf -------------------------------------------------------------------------------- /TColorCSV/src/BIN/Student.csv: -------------------------------------------------------------------------------- 1 | Student;Math;Info;Philo;Sport;Art 2 | Alex;15;16;14,5;15;15,5 3 | Felix;12;14,5;12;16;18 4 | Patrick;11;17;13;17;16 5 | Philip;12;13;15;18;12 6 | wid:0,100 7 | wid:1,350 8 | wid:2,300 9 | wid:3,225 10 | wid:4,250 11 | wid:5,300 12 | col:0,0,0 13 | col:1,1,255 14 | col:1,1,255 15 | col:2,1,128 16 | col:1,1,128 17 | col:1,0,32768 18 | col:1,1,10485760 19 | col:2,0,16744576 20 | col:3,0,8404992 21 | col:1,1,16777215 22 | col:3,0,16512 23 | col:4,0,12632256 24 | col:5,0,65535 25 | col:1,1,128 26 | col:3,4,128 27 | col:4,3,128 28 | col:5,2,128 29 | col:2,1,16777215 30 | col:2,3,128 31 | col:0,0,0 32 | col:0,0,0 33 | col:0,0,0 34 | col:0,0,0 35 | col:0,0,0 36 | col:0,0,0 37 | col:0,0,0 38 | col:0,0,0 39 | col:0,0,0 40 | col:0,0,0 41 | col:0,0,0 42 | col:0,0,0 43 | col:0,0,0 44 | col:0,0,0 45 | col:0,0,0 46 | col:0,0,0 47 | col:0,0,0 48 | col:0,0,0 49 | col:0,0,0 50 | col:0,0,0 51 | col:0,0,0 52 | col:0,0,0 53 | col:0,0,0 54 | col:0,0,0 55 | col:0,0,0 56 | col:0,0,0 57 | col:0,0,0 58 | col:0,0,0 59 | col:0,0,0 60 | col:0,0,0 61 | col:0,0,0 62 | col:0,0,0 63 | col:0,0,0 64 | col:0,0,0 65 | col:0,0,0 66 | col:0,0,0 67 | col:0,0,0 68 | col:0,0,0 69 | col:0,0,0 70 | col:0,0,0 71 | col:0,0,0 72 | col:0,0,0 73 | col:0,0,0 74 | col:0,0,0 75 | col:0,0,0 76 | col:0,0,0 77 | col:0,0,0 78 | col:0,0,0 79 | col:0,0,0 80 | col:0,0,0 81 | col:0,0,0 82 | col:0,0,0 83 | col:0,0,0 84 | col:0,0,0 85 | col:0,0,0 86 | col:0,0,0 87 | col:0,0,0 88 | col:0,0,0 89 | col:0,0,0 90 | col:0,0,0 91 | col:0,0,0 92 | col:0,0,0 93 | col:0,0,0 94 | col:0,0,0 95 | col:0,0,0 96 | col:0,0,0 97 | col:0,0,0 98 | col:0,0,0 99 | col:0,0,0 100 | col:0,0,0 101 | col:0,0,0 102 | col:0,0,0 103 | col:0,0,0 104 | col:0,0,0 105 | col:0,0,0 106 | col:0,0,0 107 | col:0,0,0 108 | col:0,0,0 109 | col:0,0,0 110 | col:0,0,0 111 | col:0,0,0 112 | -------------------------------------------------------------------------------- /TColorCSV/src/BIN/license.txt: -------------------------------------------------------------------------------- 1 | Copyright (C)2020 - 2021 - walwalwalides 2 | 3 | TColorCSV is free. You don't have to pay for it, and you can use it any 4 | way you want. It is developed as an Open Source project under the GNU 5 | General Public License (GPL). That means you have full access to the source 6 | code of this program. You can find it at GitHub here: 7 | https://github.com/walwalwalides/GAlertService 8 | 9 | The General Public License (GPL) is shipped with the installer-package and 10 | should be located in the same folder as this file (gpl.txt). 11 | 12 | If you simply wish to install and use this software, you need only be aware 13 | of the disclaimer conditions in the license, which are set out below. 14 | 15 | NO WARRANTY 16 | 17 | Because the program is licensed free of charge, there is no warranty for the 18 | program, to the extent permitted by applicable law. Except when otherwise 19 | stated in writing the copyright holders and/or other parties provide the 20 | program "as is" without warranty of any kind, either expressed or implied, 21 | including, but not limited to, the implied warranties of merchantability and 22 | fitness for a particular purpose. The entire risk as to the quality and 23 | performance of the program is with you. Should the program prove defective, 24 | you assume the cost of all necessary servicing, repair or correction. 25 | In no event unless required by applicable law or agreed to in writing will 26 | any copyright holder, or any other party who may modify and/or redistribute 27 | the program as permitted above, be liable to you for damages, including any 28 | general, special, incidental or consequential damages arising out of the use 29 | or inability to use the program (including but not limited to loss of data 30 | or data being rendered inaccurate or losses sustained by you or third 31 | parties or a failure of the program to operate with any other programs), 32 | even if such holder or other party has been advised of the possibility of 33 | such damages. 34 | -------------------------------------------------------------------------------- /TColorCSV/src/BIN/test: -------------------------------------------------------------------------------- 1 | dyxcyxcx 2 | yxcyxcyxc 3 | -------------------------------------------------------------------------------- /TColorCSV/src/CSVUtils.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/CSVUtils.pas -------------------------------------------------------------------------------- /TColorCSV/src/GridView.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/GridView.pas -------------------------------------------------------------------------------- /TColorCSV/src/Img_Res/MMP_128.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/Img_Res/MMP_128.png -------------------------------------------------------------------------------- /TColorCSV/src/Img_Res/MMP_128_Black.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/Img_Res/MMP_128_Black.png -------------------------------------------------------------------------------- /TColorCSV/src/Img_Res/MMP_256_256.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/Img_Res/MMP_256_256.bmp -------------------------------------------------------------------------------- /TColorCSV/src/Img_Res/MMP_32.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/Img_Res/MMP_32.png -------------------------------------------------------------------------------- /TColorCSV/src/Img_Res/MMP_64.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/Img_Res/MMP_64.png -------------------------------------------------------------------------------- /TColorCSV/src/Img_Res/MMP_64_64.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/Img_Res/MMP_64_64.bmp -------------------------------------------------------------------------------- /TColorCSV/src/Img_Res/MMP_64_64.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/Img_Res/MMP_64_64.png -------------------------------------------------------------------------------- /TColorCSV/src/Img_Res/TColorCSV.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/Img_Res/TColorCSV.ico -------------------------------------------------------------------------------- /TColorCSV/src/Img_Res/TColorCSV.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/Img_Res/TColorCSV.png -------------------------------------------------------------------------------- /TColorCSV/src/Img_Res/TColorCSV_64_64.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/Img_Res/TColorCSV_64_64.bmp -------------------------------------------------------------------------------- /TColorCSV/src/Img_Res/mmp_256.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/Img_Res/mmp_256.png -------------------------------------------------------------------------------- /TColorCSV/src/Img_Res/rainbow-star.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/Img_Res/rainbow-star.bmp -------------------------------------------------------------------------------- /TColorCSV/src/Img_Res/rainbow-star.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/Img_Res/rainbow-star.png -------------------------------------------------------------------------------- /TColorCSV/src/MainView.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/MainView.png -------------------------------------------------------------------------------- /TColorCSV/src/ReadSaveCSV.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/ReadSaveCSV.res -------------------------------------------------------------------------------- /TColorCSV/src/ReadSaveCSV.skincfg: -------------------------------------------------------------------------------- 1 | [ExpressSkins] 2 | Default=1 3 | ShowNotifications=1 4 | Enabled=1 5 | dxSkinBlack=1 6 | dxSkinBlue=1 7 | dxSkinBlueprint=1 8 | dxSkinCaramel=1 9 | dxSkinCoffee=1 10 | dxSkinDarkroom=1 11 | dxSkinDarkSide=1 12 | dxSkinDevExpressDarkStyle=1 13 | dxSkinDevExpressStyle=1 14 | dxSkinFoggy=1 15 | dxSkinGlassOceans=1 16 | dxSkinHighContrast=1 17 | dxSkinLilian=1 18 | dxSkinLiquidSky=1 19 | dxSkinLondonLiquidSky=1 20 | dxSkinMcSkin=1 21 | dxSkinMetropolis=1 22 | dxSkinMetropolisDark=1 23 | dxSkinMoneyTwins=1 24 | dxSkinOffice2007Black=1 25 | dxSkinOffice2007Blue=1 26 | dxSkinOffice2007Green=1 27 | dxSkinOffice2007Pink=1 28 | dxSkinOffice2007Silver=1 29 | dxSkinOffice2010Black=1 30 | dxSkinOffice2010Blue=1 31 | dxSkinOffice2010Silver=1 32 | dxSkinOffice2013DarkGray=1 33 | dxSkinOffice2013LightGray=1 34 | dxSkinOffice2013White=1 35 | dxSkinOffice2016Colorful=1 36 | dxSkinOffice2016Dark=1 37 | dxSkinOffice2019Colorful=1 38 | dxSkinPumpkin=1 39 | dxSkinSeven=1 40 | dxSkinSevenClassic=1 41 | dxSkinSharp=1 42 | dxSkinSharpPlus=1 43 | dxSkinSilver=1 44 | dxSkinSpringtime=1 45 | dxSkinStardust=1 46 | dxSkinSummer2008=1 47 | dxSkinTheAsphaltWorld=1 48 | dxSkinTheBezier=1 49 | dxSkinsDefaultPainters=1 50 | dxSkinValentine=1 51 | dxSkinVisualStudio2013Blue=1 52 | dxSkinVisualStudio2013Dark=1 53 | dxSkinVisualStudio2013Light=1 54 | dxSkinVS2010=1 55 | dxSkinWhiteprint=1 56 | dxSkinXmas2008Blue=1 57 | -------------------------------------------------------------------------------- /TColorCSV/src/TColorCSV.dpr: -------------------------------------------------------------------------------- 1 | program TColorCSV; 2 | 3 | uses 4 | Vcl.Forms, 5 | Vcl.Themes, 6 | Vcl.Styles, 7 | ShellAPI, 8 | Sysutils, 9 | System.IOUtils, 10 | Types, 11 | Winapi.Windows, 12 | GridView in 'GridView.pas' {frmGridView} , 13 | CSVUtils in 'CSVUtils.pas', 14 | About in 'About\About.pas' {AboutBox}; 15 | 16 | {$R *.res} 17 | function PathCanonicalize(lpszDst: PChar; lpszSrc: PChar): LongBool; stdcall; 18 | external 'shlwapi.dll' name 'PathCanonicalizeW'; 19 | 20 | function ResolvePath(const RelPath, BasePath: string): string; 21 | var 22 | lpszDst: array [0 .. MAX_PATH - 1] of char; 23 | begin 24 | PathCanonicalize(@lpszDst[0], PChar(IncludeTrailingPathDelimiter(BasePath) + 25 | RelPath)); 26 | Exit(lpszDst); 27 | end; 28 | 29 | procedure LoadVCLStyles; 30 | var 31 | f, s: string; 32 | LFiles: TStringDynArray; 33 | StyleInfo: TStyleInfo; 34 | begin 35 | s := ExtractFilePath(ParamStr(0)); 36 | LFiles := TDirectory.GetFiles(s, '*.vsf'); 37 | if Length(LFiles) > 0 then 38 | begin 39 | for f in TDirectory.GetFiles(s, '*.vsf') do 40 | if TStyleManager.IsValidStyle(f, StyleInfo) and 41 | SameText(StyleInfo.Name, 'Tablet Light') then 42 | TStyleManager.LoadFromFile(f) 43 | end 44 | else 45 | begin 46 | s := ResolvePath('Libary\vsf', ExtractFilePath(ParamStr(0))); 47 | for f in TDirectory.GetFiles(s, '*.vsf') do 48 | if TStyleManager.IsValidStyle(f, StyleInfo) and 49 | SameText(StyleInfo.Name, 'Silver') then 50 | TStyleManager.LoadFromFile(f); 51 | end; 52 | end; 53 | 54 | begin 55 | LoadVCLStyles; 56 | TStyleManager.TrySetStyle('Silver'); 57 | Application.Initialize; 58 | Application.Title := 'TColorCSV'; 59 | Application.MainFormOnTaskbar := True; 60 | Application.CreateForm(TfrmGridView, frmGridView); 61 | Application.CreateForm(TAboutBox, AboutBox); 62 | 63 | Application.Run; 64 | 65 | end. 66 | -------------------------------------------------------------------------------- /TColorCSV/src/TColorCSV.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/TColorCSV.res -------------------------------------------------------------------------------- /TColorCSV/src/TColorCSV.skincfg: -------------------------------------------------------------------------------- 1 | [ExpressSkins] 2 | Default=1 3 | ShowNotifications=1 4 | Enabled=1 5 | dxSkinBlack=1 6 | dxSkinBlue=1 7 | dxSkinBlueprint=1 8 | dxSkinCaramel=1 9 | dxSkinCoffee=1 10 | dxSkinDarkroom=1 11 | dxSkinDarkSide=1 12 | dxSkinDevExpressDarkStyle=1 13 | dxSkinDevExpressStyle=1 14 | dxSkinFoggy=1 15 | dxSkinGlassOceans=1 16 | dxSkinHighContrast=1 17 | dxSkinLilian=1 18 | dxSkinLiquidSky=1 19 | dxSkinLondonLiquidSky=1 20 | dxSkinMcSkin=1 21 | dxSkinMetropolis=1 22 | dxSkinMetropolisDark=1 23 | dxSkinMoneyTwins=1 24 | dxSkinOffice2007Black=1 25 | dxSkinOffice2007Blue=1 26 | dxSkinOffice2007Green=1 27 | dxSkinOffice2007Pink=1 28 | dxSkinOffice2007Silver=1 29 | dxSkinOffice2010Black=1 30 | dxSkinOffice2010Blue=1 31 | dxSkinOffice2010Silver=1 32 | dxSkinOffice2013DarkGray=1 33 | dxSkinOffice2013LightGray=1 34 | dxSkinOffice2013White=1 35 | dxSkinOffice2016Colorful=1 36 | dxSkinOffice2016Dark=1 37 | dxSkinOffice2019Colorful=1 38 | dxSkinPumpkin=1 39 | dxSkinSeven=1 40 | dxSkinSevenClassic=1 41 | dxSkinSharp=1 42 | dxSkinSharpPlus=1 43 | dxSkinSilver=1 44 | dxSkinSpringtime=1 45 | dxSkinStardust=1 46 | dxSkinSummer2008=1 47 | dxSkinTheAsphaltWorld=1 48 | dxSkinTheBezier=1 49 | dxSkinsDefaultPainters=1 50 | dxSkinValentine=1 51 | dxSkinVisualStudio2013Blue=1 52 | dxSkinVisualStudio2013Dark=1 53 | dxSkinVisualStudio2013Light=1 54 | dxSkinVS2010=1 55 | dxSkinWhiteprint=1 56 | dxSkinXmas2008Blue=1 57 | -------------------------------------------------------------------------------- /TColorCSV/src/TColorCSV_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/TColorCSV_Icon.ico -------------------------------------------------------------------------------- /TColorCSV/src/TaColorCSV.skincfg: -------------------------------------------------------------------------------- 1 | [ExpressSkins] 2 | Default=1 3 | ShowNotifications=1 4 | Enabled=1 5 | dxSkinBlack=1 6 | dxSkinBlue=1 7 | dxSkinBlueprint=1 8 | dxSkinCaramel=1 9 | dxSkinCoffee=1 10 | dxSkinDarkroom=1 11 | dxSkinDarkSide=1 12 | dxSkinDevExpressDarkStyle=1 13 | dxSkinDevExpressStyle=1 14 | dxSkinFoggy=1 15 | dxSkinGlassOceans=1 16 | dxSkinHighContrast=1 17 | dxSkinLilian=1 18 | dxSkinLiquidSky=1 19 | dxSkinLondonLiquidSky=1 20 | dxSkinMcSkin=1 21 | dxSkinMetropolis=1 22 | dxSkinMetropolisDark=1 23 | dxSkinMoneyTwins=1 24 | dxSkinOffice2007Black=1 25 | dxSkinOffice2007Blue=1 26 | dxSkinOffice2007Green=1 27 | dxSkinOffice2007Pink=1 28 | dxSkinOffice2007Silver=1 29 | dxSkinOffice2010Black=1 30 | dxSkinOffice2010Blue=1 31 | dxSkinOffice2010Silver=1 32 | dxSkinOffice2013DarkGray=1 33 | dxSkinOffice2013LightGray=1 34 | dxSkinOffice2013White=1 35 | dxSkinOffice2016Colorful=1 36 | dxSkinOffice2016Dark=1 37 | dxSkinOffice2019Colorful=1 38 | dxSkinPumpkin=1 39 | dxSkinSeven=1 40 | dxSkinSevenClassic=1 41 | dxSkinSharp=1 42 | dxSkinSharpPlus=1 43 | dxSkinSilver=1 44 | dxSkinSpringtime=1 45 | dxSkinStardust=1 46 | dxSkinSummer2008=1 47 | dxSkinTheAsphaltWorld=1 48 | dxSkinTheBezier=1 49 | dxSkinsDefaultPainters=1 50 | dxSkinValentine=1 51 | dxSkinVisualStudio2013Blue=1 52 | dxSkinVisualStudio2013Dark=1 53 | dxSkinVisualStudio2013Light=1 54 | dxSkinVS2010=1 55 | dxSkinWhiteprint=1 56 | dxSkinXmas2008Blue=1 57 | -------------------------------------------------------------------------------- /TColorCSV/src/TabCSV.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TColorCSV/src/TabCSV.res -------------------------------------------------------------------------------- /TColorCSV/src/TabCSV.skincfg: -------------------------------------------------------------------------------- 1 | [ExpressSkins] 2 | Default=1 3 | ShowNotifications=1 4 | Enabled=1 5 | dxSkinBlack=1 6 | dxSkinBlue=1 7 | dxSkinBlueprint=1 8 | dxSkinCaramel=1 9 | dxSkinCoffee=1 10 | dxSkinDarkroom=1 11 | dxSkinDarkSide=1 12 | dxSkinDevExpressDarkStyle=1 13 | dxSkinDevExpressStyle=1 14 | dxSkinFoggy=1 15 | dxSkinGlassOceans=1 16 | dxSkinHighContrast=1 17 | dxSkinLilian=1 18 | dxSkinLiquidSky=1 19 | dxSkinLondonLiquidSky=1 20 | dxSkinMcSkin=1 21 | dxSkinMetropolis=1 22 | dxSkinMetropolisDark=1 23 | dxSkinMoneyTwins=1 24 | dxSkinOffice2007Black=1 25 | dxSkinOffice2007Blue=1 26 | dxSkinOffice2007Green=1 27 | dxSkinOffice2007Pink=1 28 | dxSkinOffice2007Silver=1 29 | dxSkinOffice2010Black=1 30 | dxSkinOffice2010Blue=1 31 | dxSkinOffice2010Silver=1 32 | dxSkinOffice2013DarkGray=1 33 | dxSkinOffice2013LightGray=1 34 | dxSkinOffice2013White=1 35 | dxSkinOffice2016Colorful=1 36 | dxSkinOffice2016Dark=1 37 | dxSkinOffice2019Colorful=1 38 | dxSkinPumpkin=1 39 | dxSkinSeven=1 40 | dxSkinSevenClassic=1 41 | dxSkinSharp=1 42 | dxSkinSharpPlus=1 43 | dxSkinSilver=1 44 | dxSkinSpringtime=1 45 | dxSkinStardust=1 46 | dxSkinSummer2008=1 47 | dxSkinTheAsphaltWorld=1 48 | dxSkinTheBezier=1 49 | dxSkinsDefaultPainters=1 50 | dxSkinValentine=1 51 | dxSkinVisualStudio2013Blue=1 52 | dxSkinVisualStudio2013Dark=1 53 | dxSkinVisualStudio2013Light=1 54 | dxSkinVS2010=1 55 | dxSkinWhiteprint=1 56 | dxSkinXmas2008Blue=1 57 | -------------------------------------------------------------------------------- /TColorCSV/src/VirtualForm.pas: -------------------------------------------------------------------------------- 1 | unit VirtualForm; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 7 | Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.IniFiles, Vcl.StdCtrls, Vcl.ComCtrls, 8 | System.ImageList, Vcl.ImgList, Vcl.Menus; 9 | 10 | type 11 | TVirtualForm = class(TCustomForm) 12 | Btn1 : TButton; 13 | private 14 | DialogStatus: PInteger; 15 | procedure OnClosing(Sender : TObject; var Action: TCloseAction); 16 | function GetWidthText(const Text:String; Font:TFont) : Integer; 17 | public 18 | constructor Create(AOwner: TComponent); 19 | reintroduce; 20 | end; 21 | 22 | implementation 23 | 24 | function TVirtualForm.GetWidthText(const Text:String; Font:TFont) : Integer; 25 | var 26 | LBmp: TBitmap; 27 | begin 28 | LBmp := TBitmap.Create; 29 | try 30 | LBmp.Canvas.Font := Font; 31 | Result := LBmp.Canvas.TextWidth(Text); 32 | finally 33 | LBmp.Free; 34 | end; 35 | end; 36 | 37 | constructor TVirtualForm.Create(AOwner: TComponent); 38 | var 39 | strbtn : string; 40 | begin 41 | inherited CreateNew(AOwner); 42 | 43 | DefaultMonitor := dmMainForm; 44 | Position := poScreenCenter; 45 | FormStyle := fsStayOnTop; 46 | OnClose := OnClosing; 47 | 48 | Btn1 := TButton.Create(Self); 49 | Btn1.Caption := 'Save'; 50 | Btn1.Width := GetWidthText(Btn1.Caption, Btn1.Font)+20; 51 | Btn1.Left := Self.Width-(Btn1.Width+10); 52 | Btn1.Top := Self.Height-(Btn1.Height+10); 53 | Btn1.Anchors := [akRight,akBottom]; 54 | Btn1.Parent := Self; 55 | 56 | Show; 57 | end; 58 | 59 | procedure TVirtualForm.OnClosing(Sender: TObject; var Action: TCloseAction); 60 | begin 61 | Action := caFree; 62 | end; 63 | 64 | end. 65 | -------------------------------------------------------------------------------- /TColorCSV/src/csvparser.pas: -------------------------------------------------------------------------------- 1 | {==============================================================================| 2 | | Project : Delphi Simple CSV Parser module | Version : Github Varsion | 3 | |==============================================================================| 4 | | Initial Developers of the Original Code are: | 5 | | NanakSR (Indonesia) nanaksr.com | 6 | | All Rights Reserved. | 7 | |==============================================================================|} 8 | 9 | unit csvparser; 10 | 11 | interface 12 | 13 | uses 14 | Classes, SysUtils, Windows; 15 | 16 | type 17 | TCSVParseMultiArray = array of array of string; 18 | 19 | TCSVParser = class(TObject) 20 | private 21 | FDataFile : ShortString; 22 | FDelimiter : Char; 23 | FColCount : integer; 24 | FRowCount : integer; 25 | FIndex: Integer; 26 | Feof: Boolean; 27 | 28 | FCol : TStringList; 29 | FRow : TStringList; 30 | function GetFields(ColNo: Integer) : String; 31 | function GetFieldByName(ColName: string) : String; 32 | public 33 | constructor Create; 34 | property SetDataFile : ShortString read FDataFile write FDataFile; 35 | property SetDelimeter : Char read FDelimiter write FDelimiter default ','; 36 | procedure Open; 37 | property RowCount : integer read FRowCount; 38 | property Fields[index : integer] : string read GetFields; 39 | property FieldByName[index : string] : string read GetFieldByName; 40 | 41 | procedure Next; 42 | property Eof: Boolean read FEof; 43 | private 44 | 45 | published 46 | 47 | end; 48 | 49 | implementation 50 | 51 | constructor TCSVParser.Create; 52 | begin 53 | FDataFile := ''; 54 | FDelimiter := ','; 55 | FCol := TStringList.Create; 56 | FRow := TStringList.Create; 57 | FColCount := 0; 58 | FRowCount := 0; 59 | FIndex := -1; 60 | end; 61 | 62 | procedure TCSVParser.Open; 63 | var 64 | GetFiles,Colmn : TStringList; 65 | I,J : integer; 66 | begin 67 | GetFiles := TStringList.Create; 68 | GetFiles.LoadFromFile(FDataFile); 69 | 70 | Colmn := TStringList.Create; 71 | Colmn.StrictDelimiter := True; 72 | Colmn.Delimiter := FDelimiter; 73 | Colmn.DelimitedText := GetFiles.Strings[0]; 74 | FColCount := Colmn.Count-1; 75 | 76 | for I := 0 to FColCount do 77 | begin 78 | FCol.Add(Colmn.Strings[I]); 79 | end; 80 | 81 | FRowCount := 0; 82 | for J := 1 to GetFiles.Count-1 do 83 | begin 84 | Inc(FRowCount); 85 | FRow.Add(GetFiles.Strings[J]); 86 | end; 87 | 88 | FIndex := 0; 89 | Feof := False; 90 | end; 91 | 92 | function TCSVParser.GetFields(ColNo: Integer) : String; 93 | var 94 | Row: TStringList; 95 | begin 96 | if ColNo > FColCount then 97 | raise Exception.Create('out of index column, Max: Fields['+IntToStr(FColCount)+']'); 98 | 99 | Row := TStringList.Create; 100 | Row.StrictDelimiter := True; 101 | Row.Delimiter := FDelimiter; 102 | Row.DelimitedText := FRow.Strings[FIndex]; 103 | Result := Row.Strings[ColNo]; 104 | end; 105 | 106 | function TCSVParser.GetFieldByName(ColName: string) : String; 107 | var 108 | Row: TStringList; 109 | ColIndex : integer; 110 | begin 111 | ColIndex := FCol.IndexOf(ColName); 112 | if ColIndex = -1 then 113 | raise Exception.Create('Column '+ColName+' Not Found'); 114 | 115 | Row := TStringList.Create; 116 | Row.StrictDelimiter := True; 117 | Row.Delimiter := FDelimiter; 118 | Row.DelimitedText := FRow.Strings[FIndex]; 119 | Result := Row.Strings[ColIndex]; 120 | end; 121 | 122 | procedure TCSVParser.Next; 123 | begin 124 | Inc(FIndex); 125 | if FIndex = FRow.Count then 126 | FEof := True; 127 | end; 128 | 129 | end. 130 | -------------------------------------------------------------------------------- /TraitExcept/.gitignore: -------------------------------------------------------------------------------- 1 | # Uncomment these types if you want even more clean repository. But be careful. 2 | # It can make harm to an existing project source. Read explanations below. 3 | # 4 | # Resource files are binaries containing manifest, project icon and version info. 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. 6 | #*.res 7 | # 8 | # Type library file (binary). In old Delphi versions it should be stored. 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. 10 | #*.tlb 11 | # 12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. 13 | # Uncomment this if you are not using diagrams or use newer Delphi version. 14 | #*.ddp 15 | # 16 | # Visual LiveBindings file. Added in Delphi XE2. 17 | # Uncomment this if you are not using LiveBindings Designer. 18 | #*.vlb 19 | # 20 | # Deployment Manager configuration file for your project. Added in Delphi XE2. 21 | # Uncomment this if it is not mobile development and you do not use remote debug feature. 22 | #*.deployproj 23 | # 24 | # C++ object files produced when C/C++ Output file generation is configured. 25 | # Uncomment this if you are not using external objects (zlib library for example). 26 | #*.obj 27 | # 28 | 29 | # Delphi compiler-generated binaries (safe to delete) 30 | *.dll 31 | *.bpl 32 | *.bpi 33 | *.dcp 34 | *.so 35 | *.apk 36 | *.drc 37 | *.map 38 | *.dres 39 | *.rsm 40 | *.tds 41 | *.dcu 42 | *.lib 43 | *.a 44 | *.o 45 | *.ocx 46 | # Delphi autogenerated files (duplicated info) 47 | *.cfg 48 | *.hpp 49 | *Resource.rc 50 | 51 | # Delphi local files (user-specific info) 52 | *.local 53 | *.identcache 54 | *.projdata 55 | *.tvsconfig 56 | *.dsk 57 | 58 | # Delphi history and backups 59 | __history/ 60 | __recovery/ 61 | *.~* 62 | # Delphi DataBase 63 | *.db 64 | # Delphi Inifile 65 | *.ini 66 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi) 67 | *.stat 68 | -------------------------------------------------------------------------------- /TraitExcept/DEBUG/Exception/Exception_2019-04-20.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TraitExcept/DEBUG/Exception/Exception_2019-04-20.txt -------------------------------------------------------------------------------- /TraitExcept/DEBUG/Exception/Exception_2019-08-19.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TraitExcept/DEBUG/Exception/Exception_2019-08-19.txt -------------------------------------------------------------------------------- /TraitExcept/Exception.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TraitExcept/Exception.res -------------------------------------------------------------------------------- /TraitExcept/Exception.skincfg: -------------------------------------------------------------------------------- 1 | [ExpressSkins] 2 | Default=1 3 | ShowNotifications=1 4 | Enabled=1 5 | dxSkinBlack=1 6 | dxSkinBlue=1 7 | dxSkinBlueprint=1 8 | dxSkinCaramel=1 9 | dxSkinCoffee=1 10 | dxSkinDarkRoom=1 11 | dxSkinDarkSide=1 12 | dxSkinDevExpressDarkStyle=1 13 | dxSkinDevExpressStyle=1 14 | dxSkinFoggy=1 15 | dxSkinGlassOceans=1 16 | dxSkinHighContrast=1 17 | dxSkiniMaginary=1 18 | dxSkinLilian=1 19 | dxSkinLiquidSky=1 20 | dxSkinLondonLiquidSky=1 21 | dxSkinMcSkin=1 22 | dxSkinMetropolis=1 23 | dxSkinMetropolisDark=1 24 | dxSkinMoneyTwins=1 25 | dxSkinOffice2007Black=1 26 | dxSkinOffice2007Blue=1 27 | dxSkinOffice2007Green=1 28 | dxSkinOffice2007Pink=1 29 | dxSkinOffice2007Silver=1 30 | dxSkinOffice2010Black=1 31 | dxSkinOffice2010Blue=1 32 | dxSkinOffice2010Silver=1 33 | dxSkinOffice2013DarkGray=1 34 | dxSkinOffice2013LightGray=1 35 | dxSkinOffice2013White=1 36 | dxSkinOffice2016Colorful=1 37 | dxSkinOffice2016Dark=1 38 | dxSkinPumpkin=1 39 | dxSkinSeven=1 40 | dxSkinSevenClassic=1 41 | dxSkinSharp=1 42 | dxSkinSharpPlus=1 43 | dxSkinSilver=1 44 | dxSkinSpringTime=1 45 | dxSkinStardust=1 46 | dxSkinSummer2008=1 47 | dxSkinTheAsphaltWorld=1 48 | dxSkinsDefaultPainters=1 49 | dxSkinValentine=1 50 | dxSkinVisualStudio2013Blue=1 51 | dxSkinVisualStudio2013Dark=1 52 | dxSkinVisualStudio2013Light=1 53 | dxSkinVS2010=1 54 | dxSkinWhiteprint=1 55 | dxSkinXmas2008Blue=1 56 | -------------------------------------------------------------------------------- /TraitExcept/README.md: -------------------------------------------------------------------------------- 1 | # TraitExcept 2 | - How to Define Custom Exceptions in Delphi 3 | 4 | ![](TraitExcept.png) 5 | 6 | 7 | 8 | 9 | # Features 10 | - Define error exception. 11 | - Save error message. 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | ## Files 22 | 23 | | File | Contents | 24 | | --- | --- | 25 | | .gitignore | Git ignores the files in this file | 26 | | uAbout.pas | About view of the programme | 27 | | uBase.pas | Base view of the programme | 28 | | uMain.pas | Main view of the programme | 29 | | uSignal.pas | Notification Thread unit | 30 | | TraitExcept.dpk | The compiler project file | 31 | | TraitExcept.dproj | The MSBUILD project file | 32 | | README.md | The readme for this project | 33 | 34 | ------ 35 | 36 | ## To Install the Software: 37 | 38 | ### Install TraitExcept 39 | Download Link : https://github.com/walwalwalides/Delphi-Collection-VCL/releases/download/TraitExcept/TraitExcept.7z 40 | -------------------------------------------------------------------------------- /TraitExcept/TraitExcept.dpr: -------------------------------------------------------------------------------- 1 | program TraitExcept; 2 | 3 | uses 4 | Vcl.Forms, 5 | UBase in 'View\UBase.pas' {frmBase}, 6 | UProgExcep in 'View\UProgExcep.pas' {frmProgExcep}, 7 | UMain in 'View\UMain.pas' {frmMain}, 8 | uSignal in 'Unit\uSignal.pas', 9 | uAbout in 'View\uAbout.pas' {frmAbout}; 10 | 11 | {$R *.res} 12 | 13 | begin 14 | Application.Initialize; 15 | Application.MainFormOnTaskbar := True; 16 | Application.Title:='TraitException'; 17 | Application.CreateForm(TfrmMain, frmMain); 18 | Application.CreateForm(TfrmAbout, frmAbout); 19 | Application.Run; 20 | end. 21 | -------------------------------------------------------------------------------- /TraitExcept/TraitExcept.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TraitExcept/TraitExcept.png -------------------------------------------------------------------------------- /TraitExcept/TraitExcept.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TraitExcept/TraitExcept.res -------------------------------------------------------------------------------- /TraitExcept/TraitException.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TraitExcept/TraitException.res -------------------------------------------------------------------------------- /TraitExcept/TraitException.skincfg: -------------------------------------------------------------------------------- 1 | [ExpressSkins] 2 | Default=1 3 | ShowNotifications=1 4 | Enabled=1 5 | dxSkinBlack=1 6 | dxSkinBlue=1 7 | dxSkinBlueprint=1 8 | dxSkinCaramel=1 9 | dxSkinCoffee=1 10 | dxSkinDarkRoom=1 11 | dxSkinDarkSide=1 12 | dxSkinDevExpressDarkStyle=1 13 | dxSkinDevExpressStyle=1 14 | dxSkinFoggy=1 15 | dxSkinGlassOceans=1 16 | dxSkinHighContrast=1 17 | dxSkiniMaginary=1 18 | dxSkinLilian=1 19 | dxSkinLiquidSky=1 20 | dxSkinLondonLiquidSky=1 21 | dxSkinMcSkin=1 22 | dxSkinMetropolis=1 23 | dxSkinMetropolisDark=1 24 | dxSkinMoneyTwins=1 25 | dxSkinOffice2007Black=1 26 | dxSkinOffice2007Blue=1 27 | dxSkinOffice2007Green=1 28 | dxSkinOffice2007Pink=1 29 | dxSkinOffice2007Silver=1 30 | dxSkinOffice2010Black=1 31 | dxSkinOffice2010Blue=1 32 | dxSkinOffice2010Silver=1 33 | dxSkinOffice2013DarkGray=1 34 | dxSkinOffice2013LightGray=1 35 | dxSkinOffice2013White=1 36 | dxSkinOffice2016Colorful=1 37 | dxSkinOffice2016Dark=1 38 | dxSkinPumpkin=1 39 | dxSkinSeven=1 40 | dxSkinSevenClassic=1 41 | dxSkinSharp=1 42 | dxSkinSharpPlus=1 43 | dxSkinSilver=1 44 | dxSkinSpringTime=1 45 | dxSkinStardust=1 46 | dxSkinSummer2008=1 47 | dxSkinTheAsphaltWorld=1 48 | dxSkinsDefaultPainters=1 49 | dxSkinValentine=1 50 | dxSkinVisualStudio2013Blue=1 51 | dxSkinVisualStudio2013Dark=1 52 | dxSkinVisualStudio2013Light=1 53 | dxSkinVS2010=1 54 | dxSkinWhiteprint=1 55 | dxSkinXmas2008Blue=1 56 | -------------------------------------------------------------------------------- /TraitExcept/TraitException_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TraitExcept/TraitException_Icon.ico -------------------------------------------------------------------------------- /TraitExcept/Unit/uSignal.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TraitExcept/Unit/uSignal.pas -------------------------------------------------------------------------------- /TraitExcept/View/UBase.dfm: -------------------------------------------------------------------------------- 1 | object frmBase: TfrmBase 2 | Left = 510 3 | Top = 433 4 | Caption = 'frmBase' 5 | ClientHeight = 56 6 | ClientWidth = 632 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | PixelsPerInch = 96 15 | TextHeight = 13 16 | object TmrException: TTimer 17 | Enabled = False 18 | Interval = 8000 19 | OnTimer = TmrExceptionTimer 20 | Left = 33 21 | Top = 4 22 | end 23 | end 24 | -------------------------------------------------------------------------------- /TraitExcept/View/UBase.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TraitExcept/View/UBase.pas -------------------------------------------------------------------------------- /TraitExcept/View/UMain.dfm: -------------------------------------------------------------------------------- 1 | inherited frmMain: TfrmMain 2 | Caption = 'TraitException' 3 | ClientHeight = 431 4 | Menu = MainMenu1 5 | OnCreate = FormCreate 6 | ExplicitHeight = 490 7 | PixelsPerInch = 96 8 | TextHeight = 13 9 | object LblMessage: TLabel [0] 10 | AlignWithMargins = True 11 | Left = 3 12 | Top = 3 13 | Width = 626 14 | Height = 24 15 | Align = alTop 16 | Alignment = taCenter 17 | Caption = '---------------------' 18 | Font.Charset = DEFAULT_CHARSET 19 | Font.Color = clRed 20 | Font.Height = -20 21 | Font.Name = 'Tahoma' 22 | Font.Style = [fsBold] 23 | ParentFont = False 24 | ExplicitWidth = 189 25 | end 26 | object btnException: TButton [1] 27 | Left = 8 28 | Top = 351 29 | Width = 81 30 | Height = 57 31 | Cursor = crHandPoint 32 | Anchors = [akLeft, akBottom] 33 | Caption = 'Exception' 34 | TabOrder = 0 35 | OnClick = btnExceptionClick 36 | ExplicitTop = 371 37 | end 38 | object pnlSignal: TPanel [2] 39 | AlignWithMargins = True 40 | Left = 3 41 | Top = 414 42 | Width = 626 43 | Height = 14 44 | Align = alBottom 45 | TabOrder = 1 46 | ExplicitTop = 434 47 | end 48 | object radGrpState: TRadioGroup [3] 49 | Left = 8 50 | Top = 248 51 | Width = 185 52 | Height = 81 53 | Caption = 'STATE' 54 | ItemIndex = 0 55 | Items.Strings = ( 56 | 'NO ERROR' 57 | 'ERROR 1' 58 | 'ERROR 2') 59 | TabOrder = 2 60 | end 61 | inherited TmrException: TTimer 62 | Left = 17 63 | Top = 60 64 | end 65 | object MainMenu1: TMainMenu 66 | Left = 48 67 | Top = 216 68 | object File1: TMenuItem 69 | Caption = 'File' 70 | object N1: TMenuItem 71 | Caption = '-' 72 | end 73 | object Exit2: TMenuItem 74 | Action = actExit 75 | end 76 | end 77 | object A2: TMenuItem 78 | Caption = 'About' 79 | object actAbout1: TMenuItem 80 | Action = actAbout 81 | end 82 | end 83 | end 84 | object ActionList1: TActionList 85 | Left = 57 86 | Top = 96 87 | object actOpenFile: TAction 88 | Category = 'File' 89 | Caption = 'Open File(s)...' 90 | end 91 | object actShowInExplorer: TAction 92 | Caption = 'Show in Explorer' 93 | end 94 | object actOpenFolder: TAction 95 | Category = 'File' 96 | Caption = 'Open Folder(s)...' 97 | end 98 | object actExit: TAction 99 | Category = 'File' 100 | Caption = 'Exit' 101 | end 102 | object actOption: TAction 103 | Category = 'Option' 104 | Caption = 'Option' 105 | ShortCut = 16463 106 | end 107 | object actAbout: TAction 108 | Category = 'About' 109 | Caption = 'Info' 110 | ShortCut = 16457 111 | OnExecute = actAboutExecute 112 | end 113 | end 114 | end 115 | -------------------------------------------------------------------------------- /TraitExcept/View/UMain.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TraitExcept/View/UMain.pas -------------------------------------------------------------------------------- /TraitExcept/View/UProgExcep.dfm: -------------------------------------------------------------------------------- 1 | object frmProgExcep: TfrmProgExcep 2 | Left = 99 3 | Top = 297 4 | BorderIcons = [] 5 | BorderStyle = bsNone 6 | Caption = 'frmProgExcep' 7 | ClientHeight = 30 8 | ClientWidth = 600 9 | Color = clBtnFace 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'Tahoma' 14 | Font.Style = [] 15 | OldCreateOrder = False 16 | Position = poScreenCenter 17 | OnClose = FormClose 18 | OnShow = FormShow 19 | PixelsPerInch = 96 20 | TextHeight = 13 21 | object Gauge1: TGauge 22 | Left = 0 23 | Top = 0 24 | Width = 600 25 | Height = 30 26 | Align = alClient 27 | ForeColor = clRed 28 | Progress = 0 29 | ExplicitLeft = 152 30 | ExplicitTop = 8 31 | ExplicitWidth = 100 32 | ExplicitHeight = 100 33 | end 34 | object Timer: TTimer 35 | Enabled = False 36 | Interval = 100 37 | OnTimer = TimerTimer 38 | Left = 32 39 | end 40 | end 41 | -------------------------------------------------------------------------------- /TraitExcept/View/UProgExcep.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TraitExcept/View/UProgExcep.pas -------------------------------------------------------------------------------- /TraitExcept/View/uAbout.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/TraitExcept/View/uAbout.pas -------------------------------------------------------------------------------- /XMLDLL/.gitignore: -------------------------------------------------------------------------------- 1 | # Uncomment these types if you want even more clean repository. But be careful. 2 | # It can make harm to an existing project source. Read explanations below. 3 | # 4 | # Resource files are binaries containing manifest, project icon and version info. 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. 6 | #*.res 7 | # 8 | # Type library file (binary). In old Delphi versions it should be stored. 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. 10 | #*.tlb 11 | # 12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. 13 | # Uncomment this if you are not using diagrams or use newer Delphi version. 14 | #*.ddp 15 | # 16 | # Visual LiveBindings file. Added in Delphi XE2. 17 | # Uncomment this if you are not using LiveBindings Designer. 18 | #*.vlb 19 | # 20 | # Deployment Manager configuration file for your project. Added in Delphi XE2. 21 | # Uncomment this if it is not mobile development and you do not use remote debug feature. 22 | #*.deployproj 23 | # 24 | # C++ object files produced when C/C++ Output file generation is configured. 25 | # Uncomment this if you are not using external objects (zlib library for example). 26 | #*.obj 27 | # 28 | 29 | # Delphi compiler-generated binaries (safe to delete) 30 | *.dll 31 | *.bpl 32 | *.bpi 33 | *.dcp 34 | *.so 35 | *.apk 36 | *.drc 37 | *.map 38 | *.dres 39 | *.rsm 40 | *.tds 41 | *.dcu 42 | *.lib 43 | *.a 44 | *.o 45 | *.ocx 46 | # Delphi autogenerated files (duplicated info) 47 | *.cfg 48 | *.hpp 49 | *Resource.rc 50 | 51 | # Delphi local files (user-specific info) 52 | *.local 53 | *.identcache 54 | *.projdata 55 | *.tvsconfig 56 | *.dsk 57 | 58 | # Delphi history and backups 59 | __history/ 60 | __recovery/ 61 | *.~* 62 | # Delphi DataBase 63 | *.db 64 | # Delphi Inifile 65 | *.ini 66 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi) 67 | *.stat 68 | -------------------------------------------------------------------------------- /XMLDLL/README.md: -------------------------------------------------------------------------------- 1 | # XMLDLL 2 | - Relite Main Application with DLL using XML files. 3 | 4 | ![](XMLDLL.png) 5 | 6 | 7 | ## Built With 8 | 9 | * [jvcl Library](https://github.com/project-jedi/jvcl) - jvcl Library 10 | 11 | # Features 12 | 13 | - Generate XML File and Bind a DLL to the Main Application. 14 | - Managing Data Exchange and Parsing XML Files. 15 | - Define a class to represent a Xml File in the Programme. 16 | 17 | 18 | 19 | ## Files 20 | 21 | | File | Contents | 22 | | --- | --- | 23 | | .gitignore | Git ignores the files in this file | 24 | | Main.pas | main view of the programme | 25 | | About.pas | About view of the programme | 26 | | LogUser.pas | LogUser view of the programme | 27 | | AccessUser.pas | AccessUser view of the programme | 28 | | NewUser.pas | NewUser view of the programme | 29 | | Configuration.pas |Configuration Unit | 30 | | MainSkinRect.pas |MainSkinRect Unit | 31 | | Skins.pas |Skins Unit | 32 | | ButtonEventList.pas|ButtonEventList Unit | 33 | | SkinBase.pas| SkinBase Unit | 34 | | pluginlist.pas |pluginlist Unit | 35 | | XmlFileSettings.pas |XmlFileSettings Unit | 36 | | UtilsFunc.pas |UtilsFunc Unit | 37 | | XmlFileHome.pas |XmlFileHome Unit | 38 | | ResImg.pas |ResImg Unit | 39 | | ResXml.pas| ResXml Unit | 40 | | XMLDLL.dpk | The compiler project file | 41 | | XMLDLL.dproj | The MSBUILD project file | 42 | | MainHome.pas | Main View of DLL | 43 | | Home.dproj | The MSBUILD DLL project| 44 | | README.md | The readme for this project | 45 | 46 | -------------------------------------------------------------------------------- /XMLDLL/XMLDLL.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/XMLDLL.png -------------------------------------------------------------------------------- /XMLDLL/XMLDLL_Grp.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {FDDCCCED-F19C-463C-828C-7CB122CC841C} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /XMLDLL/bin/Plugins/DLLHome/Config.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 10 | 11 | -------------------------------------------------------------------------------- /XMLDLL/bin/Skins/MainSkin/Logo/About.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/bin/Skins/MainSkin/Logo/About.png -------------------------------------------------------------------------------- /XMLDLL/bin/Skins/MainSkin/Screens/Main_Back.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/bin/Skins/MainSkin/Screens/Main_Back.png -------------------------------------------------------------------------------- /XMLDLL/bin/Skins/MainSkin/Screens/Main_Front.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/bin/Skins/MainSkin/Screens/Main_Front.png -------------------------------------------------------------------------------- /XMLDLL/bin/System/settings.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | MainSkin 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/About.pas: -------------------------------------------------------------------------------- 1 | unit About; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, Vcl.Imaging.pngimage, ExtCtrls, PngFunctions, acPNG, dxGDIPlusClasses; 8 | 9 | type 10 | TfrmAboutBox = class(TForm) 11 | Label2: TLabel; 12 | ImagClose: TImage; 13 | lblAppname: TLabel; 14 | procedure lblAppnameClick(Sender: TObject); 15 | procedure FormPaint(Sender: TObject); 16 | procedure ImagCloseClick(Sender: TObject); 17 | procedure FormShow(Sender: TObject); 18 | procedure FormClick(Sender: TObject); 19 | procedure FormCreate(Sender: TObject); 20 | private 21 | { Private declarations } 22 | public 23 | { Public declarations } 24 | end; 25 | 26 | var 27 | frmAboutBox: TfrmAboutBox; 28 | 29 | implementation 30 | 31 | uses main; 32 | 33 | {$R *.dfm} 34 | 35 | procedure TfrmAboutBox.lblAppnameClick(Sender: TObject); 36 | begin 37 | Close; 38 | end; 39 | 40 | procedure TfrmAboutBox.FormClick(Sender: TObject); 41 | begin 42 | Close; 43 | end; 44 | 45 | procedure TfrmAboutBox.FormCreate(Sender: TObject); 46 | begin 47 | lblAppname.caption:=Application.Title; 48 | end; 49 | 50 | procedure TfrmAboutBox.FormPaint(Sender: TObject); 51 | var 52 | PngOffObj: TPNGObject; 53 | BmpOff : TBitmap; 54 | BackPath : string; 55 | begin 56 | BackPath := MainForm.Settings.SkinPath + '\Logo\About.png'; 57 | PngOffObj := TPNGObject.Create; 58 | PngOffObj.LoadFromFile(BackPath); 59 | 60 | BmpOff := TBitmap.Create; 61 | BmpOff.Width := PngOffObj.Width; 62 | BmpOff.Height := PngOffObj.Height; 63 | BmpOff.Canvas.Brush.Style := bsSolid; 64 | BmpOff.Canvas.Brush.Color := $00E7BFC8; 65 | BmpOff.Canvas.FillRect(Rect(0, 0, PngOffObj.Width, PngOffObj.Height)); 66 | BmpOff.Canvas.Draw(0, 0, PngOffObj); 67 | BmpOff.Canvas.Pixels[0, BmpOff.Height-1] := clBtnFace; 68 | 69 | Canvas.StretchDraw(ClientRect,BmpOff); 70 | PngOffObj.Free; 71 | BmpOff.Free; 72 | end; 73 | 74 | procedure TfrmAboutBox.FormShow(Sender: TObject); 75 | begin 76 | color:= $00E7BFC8; 77 | end; 78 | 79 | procedure TfrmAboutBox.ImagCloseClick(Sender: TObject); 80 | begin 81 | Close; 82 | end; 83 | 84 | end. 85 | -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/ButtonEventList.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/src/MainApplication/ButtonEventList.pas -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/Clean.bat: -------------------------------------------------------------------------------- 1 | del *.dcu -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/Configuration.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/src/MainApplication/Configuration.pas -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/MainSkinRect.pas: -------------------------------------------------------------------------------- 1 | unit MainSkinRect; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Controls, Graphics, JvSimpleXml, 7 | Dialogs, Forms, Configuration, Vcl.Imaging.pngimage, ButtonEventList, Skins, pluginlist; 8 | 9 | type 10 | TDLLFunc = function (): TForm; 11 | 12 | TClickEvent = procedure (Sender: TObject; FormName,Event: string) of object; 13 | TPos = class(TObject) 14 | X,Y,W,H: integer; 15 | end; 16 | 17 | TClickResult = packed record 18 | FormName, Text: string; 19 | end; 20 | 21 | TMainSkinsRect = class(TComponent) 22 | private 23 | FClickEvent: TClickEvent; 24 | FList: TStringList; 25 | procedure SetSettings(val: TSettings); 26 | procedure PluginLoadAndShow(PluginName: string; proc: Ansistring); 27 | 28 | public 29 | FormWidth, FormHeight: integer; 30 | FSettings: TSettings; 31 | Skin : TSkins; 32 | constructor Create(AOwner: TComponent); override; 33 | destructor Destroy; override; 34 | procedure ButtonClick(FormName,Text: string); 35 | published 36 | property OnClickEvent: TClickEvent read FClickEvent write FClickEvent; 37 | property Settings: TSettings read FSettings write SetSettings; 38 | end; 39 | 40 | implementation 41 | 42 | constructor TMainSkinsRect.Create(AOwner: TComponent); 43 | begin 44 | inherited Create(AOwner); 45 | FList := TStringList.Create; 46 | end; 47 | 48 | destructor TMainSkinsRect.Destroy; 49 | begin 50 | FList.Free; 51 | inherited Destroy; 52 | end; 53 | 54 | function GetClickResult(str: string): TClickResult; 55 | var 56 | tmp: string; 57 | begin 58 | tmp := str; 59 | Result.FormName := copy(tmp,1,Pos('=',tmp)-1); 60 | Result.Text := copy(tmp,Pos('=',tmp)+1,length(tmp)); 61 | end; 62 | 63 | procedure TMainSkinsRect.SetSettings(val: TSettings); 64 | begin 65 | FSettings := val; 66 | end; 67 | 68 | 69 | 70 | procedure TMainSkinsRect.ButtonClick(FormName,Text: string);// 71 | var 72 | PluginName,eventName,callFunction,caption: string; 73 | begin 74 | Skin.ButtonEventList.EventList.First; 75 | while not Skin.ButtonEventList.EventList.Eof do 76 | begin 77 | 78 | if (Skin.ButtonEventList.EventList.FieldByName('formname').AsString = FormName) and 79 | (Skin.ButtonEventList.EventList.FieldByName('buttonname').AsString = Text) then 80 | begin 81 | PluginName := Skin.ButtonEventList.EventList.FieldByName('pluginname').AsString; 82 | eventName := Skin.ButtonEventList.EventList.FieldByName('eventname').AsString; 83 | callFunction := Skin.ButtonEventList.EventList.FieldByName('callfunction').AsString; 84 | break; 85 | end; 86 | Skin.ButtonEventList.EventList.Next; 87 | end; 88 | if PluginName <> '' then 89 | begin 90 | PluginLoadAndShow(PluginName,callFunction); 91 | end else begin 92 | 93 | end; 94 | if Assigned(FClickEvent) then FClickEvent(Self,FormName,Text); 95 | end; 96 | 97 | procedure TMainSkinsRect.PluginLoadAndShow(PluginName: string; proc: Ansistring); 98 | const 99 | DLLFunc: TDLLFunc = nil; 100 | var 101 | DLLHandle: THandle; 102 | Form,tmpForm: TForm; 103 | i: integer; 104 | begin 105 | Form := FSettings.PluginList.GetPluginForm(PluginName); 106 | if Form = nil then 107 | begin 108 | if UpperCase(PluginName) = 'HOME' then 109 | begin 110 | tmpForm := FSettings.PluginList.GetPluginForm('HOME'); 111 | if tmpForm <> nil then 112 | begin 113 | tmpForm := nil; 114 | FSettings.PluginList.DeletePluginForm('HOME'); 115 | end; 116 | 117 | 118 | end; 119 | 120 | DLLHandle := FSettings.PluginList.GetPluginHandle(PluginName); 121 | try 122 | @DLLFunc := GetProcAddress(DLLHandle,Pansichar(proc)); 123 | Form := DLLFunc; 124 | FSettings.PluginList.SetPluginForm(PluginName, Form); 125 | Form.Show; //Call Home DLL 126 | 127 | finally 128 | 129 | end; 130 | end else Form.Show; 131 | 132 | end; 133 | 134 | end. 135 | -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/ResImages.rc: -------------------------------------------------------------------------------- 1 | Main_Front RCDATA Skins\MainSkin\Screens\Main_Front.png 2 | Main_Back RCDATA Skins\MainSkin\Screens\Main_Back.png 3 | About RCDATA Skins\MainSkin\Logo\About.png 4 | -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/ResImages.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/src/MainApplication/ResImages.res -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/SkinBase.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/src/MainApplication/SkinBase.pas -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/Skins/MainSkin/Logo/About.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/src/MainApplication/Skins/MainSkin/Logo/About.png -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/Skins/MainSkin/Screens/Main_Back.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/src/MainApplication/Skins/MainSkin/Screens/Main_Back.png -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/Skins/MainSkin/Screens/Main_Front.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/src/MainApplication/Skins/MainSkin/Screens/Main_Front.png -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/Skins/MainSkin/skin_.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 1920 5 | 1080 6 | 7 | 8 | 0 9 | 0 10 | 1920 11 | 1080 12 | 0 13 | 0 14 | 1920 15 | 1080 16 | 17 | 18 | 19 |
20 | 21 | 22 |
23 | 24 | -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/UnitRes/ResImg.pas: -------------------------------------------------------------------------------- 1 | unit ResImg; 2 | 3 | interface 4 | 5 | uses forms,SysUtils,PngImage; 6 | 7 | const 8 | FolderLogo = 'Skins\MainSkin\Logo\'; 9 | FolderScreens = 'Skins\MainSkin\Screens\'; 10 | procedure CheckImgRes; 11 | procedure CreateResImages(Const nameRes: string; const pathRes: string); 12 | 13 | implementation 14 | 15 | procedure CheckImgRes; 16 | 17 | var 18 | sLink: string; 19 | sApp: string; 20 | Begin 21 | sApp:=ExtractFilePath(Application.ExeName); 22 | sLink := ''; 23 | sLink := sApp + FolderScreens + 'Main_Back.png'; 24 | if not fileexists(sLink) then 25 | begin 26 | if not DirectoryExists(sApp + FolderScreens) then 27 | ForceDirectories(sApp + FolderScreens); 28 | CreateResImages('Main_Back', sLink); //Generate Image from Resource 29 | end; 30 | 31 | sLink := ''; 32 | sLink := sApp + FolderScreens + 'Main_Front.png'; 33 | if not fileexists(sLink) then 34 | begin 35 | if not DirectoryExists(sApp + FolderScreens) then 36 | ForceDirectories(sApp + FolderScreens); 37 | CreateResImages('Main_Front', sLink); //Generate Image from Resource 38 | end; 39 | 40 | sLink := ''; 41 | sLink := sApp + FolderLogo + 'About.png'; 42 | if not fileexists(sLink) then 43 | begin 44 | if not DirectoryExists(sApp + FolderLogo) then 45 | ForceDirectories(sApp + FolderLogo); 46 | CreateResImages('About', sLink); 47 | end; 48 | end; 49 | 50 | procedure CreateResImages(Const nameRes: string; const pathRes: string); 51 | var 52 | Png: TPngImage; 53 | begin 54 | Png := TPngImage.Create; 55 | try 56 | Png.LoadFromResourceName(HInstance, nameRes); 57 | Png.SaveToFile(pathRes); 58 | finally 59 | Png.Free; 60 | end; 61 | end; 62 | 63 | end. 64 | -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/UnitRes/ResXml.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/src/MainApplication/UnitRes/ResXml.pas -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/UtilsFunc.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/src/MainApplication/UtilsFunc.pas -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/XMLDLL.dpr: -------------------------------------------------------------------------------- 1 | program XMLDLL; 2 | 3 | 4 | 5 | {$R 'ResImages.res' 'ResImages.rc'} 6 | 7 | uses 8 | Forms, 9 | System.SysUtils, 10 | main in 'main.pas' {MainForm}, 11 | Configuration in 'Configuration.pas', 12 | MainSkinRect in 'MainSkinRect.pas', 13 | Skins in 'Skins.pas', 14 | ButtonEventList in 'ButtonEventList.pas', 15 | SkinBase in 'SkinBase.pas', 16 | About in 'About.pas' {frmAboutBox}, 17 | pluginlist in 'pluginlist.pas', 18 | XmlFileSettings in 'XmlFileSettings.pas', 19 | UtilsFunc in 'UtilsFunc.pas', 20 | XmlFileHome in 'XmlFileHome.pas', 21 | ResImg in 'UnitRes\ResImg.pas', 22 | ResXml in 'UnitRes\ResXml.pas'; 23 | 24 | {$R *.res} 25 | 26 | 27 | begin 28 | Application.Initialize; 29 | Application.Title := 'XMLDLL'; 30 | 31 | CheckImgRes; 32 | CheckXmlRes; 33 | 34 | Application.CreateForm(TMainForm, MainForm); 35 | Application.CreateForm(TfrmAboutBox, frmAboutBox); 36 | Application.Run; 37 | 38 | end. 39 | -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/XMLDLL.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/src/MainApplication/XMLDLL.res -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/XMLDLL.skincfg: -------------------------------------------------------------------------------- 1 | [ExpressSkins] 2 | Default=1 3 | ShowNotifications=1 4 | Enabled=1 5 | dxSkinBlack=1 6 | dxSkinBlue=1 7 | dxSkinBlueprint=1 8 | dxSkinCaramel=1 9 | dxSkinCoffee=1 10 | dxSkinDarkroom=1 11 | dxSkinDarkSide=1 12 | dxSkinDevExpressDarkStyle=1 13 | dxSkinDevExpressStyle=1 14 | dxSkinFoggy=1 15 | dxSkinGlassOceans=1 16 | dxSkinHighContrast=1 17 | dxSkinLilian=1 18 | dxSkinLiquidSky=1 19 | dxSkinLondonLiquidSky=1 20 | dxSkinMcSkin=1 21 | dxSkinMetropolis=1 22 | dxSkinMetropolisDark=1 23 | dxSkinMoneyTwins=1 24 | dxSkinOffice2007Black=1 25 | dxSkinOffice2007Blue=1 26 | dxSkinOffice2007Green=1 27 | dxSkinOffice2007Pink=1 28 | dxSkinOffice2007Silver=1 29 | dxSkinOffice2010Black=1 30 | dxSkinOffice2010Blue=1 31 | dxSkinOffice2010Silver=1 32 | dxSkinOffice2013DarkGray=1 33 | dxSkinOffice2013LightGray=1 34 | dxSkinOffice2013White=1 35 | dxSkinOffice2016Colorful=1 36 | dxSkinOffice2016Dark=1 37 | dxSkinOffice2019Colorful=1 38 | dxSkinPumpkin=1 39 | dxSkinSeven=1 40 | dxSkinSevenClassic=1 41 | dxSkinSharp=1 42 | dxSkinSharpPlus=1 43 | dxSkinSilver=1 44 | dxSkinSpringtime=1 45 | dxSkinStardust=1 46 | dxSkinSummer2008=1 47 | dxSkinTheAsphaltWorld=1 48 | dxSkinTheBezier=1 49 | dxSkinsDefaultPainters=1 50 | dxSkinValentine=1 51 | dxSkinVisualStudio2013Blue=1 52 | dxSkinVisualStudio2013Dark=1 53 | dxSkinVisualStudio2013Light=1 54 | dxSkinVS2010=1 55 | dxSkinWhiteprint=1 56 | dxSkinXmas2008Blue=1 57 | -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/XMLDLL_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/src/MainApplication/XMLDLL_Icon.ico -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/XmlFileHome.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/src/MainApplication/XmlFileHome.pas -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/XmlFileSettings.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/src/MainApplication/XmlFileSettings.pas -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/main.ddp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/src/MainApplication/main.ddp -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/src/MainApplication/main.pas -------------------------------------------------------------------------------- /XMLDLL/src/MainApplication/pluginlist.pas: -------------------------------------------------------------------------------- 1 | unit pluginlist; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, JvSimpleXml, 7 | Dialogs, Forms, Vcl.Imaging.pngimage; 8 | 9 | type 10 | TPluginHandle = class(TComponent) 11 | private 12 | 13 | public 14 | PluginHandle: THandle; 15 | Form : TForm; 16 | constructor Create(AOwner: TComponent); override; 17 | destructor Destroy; override; 18 | end; 19 | 20 | TPluginList = class(TComponent) 21 | private 22 | 23 | public 24 | FList: TStringList; 25 | constructor Create(AOwner: TComponent); override; 26 | destructor Destroy; override; 27 | 28 | procedure AddPlugin(PluginName,FileName: string); 29 | function GetPluginHandle(PluginName: string): THandle; 30 | function GetPluginForm(PluginName: string): TForm; 31 | function DeletePluginForm(PluginName: string): TForm; 32 | procedure SetPluginForm(PluginName: string; Form: TForm); 33 | end; 34 | 35 | 36 | implementation 37 | 38 | 39 | constructor TPluginHandle.Create(AOwner: TComponent); 40 | begin 41 | inherited Create(AOwner); 42 | Form := nil; 43 | end; 44 | 45 | destructor TPluginHandle.Destroy; 46 | begin 47 | inherited Destroy; 48 | end; 49 | 50 | //------------------------------------------------------------------------------ 51 | 52 | constructor TPluginList.Create(AOwner: TComponent); 53 | begin 54 | inherited Create(AOwner); 55 | FList := TStringList.Create; 56 | end; 57 | 58 | destructor TPluginList.Destroy; 59 | var 60 | i: integer; 61 | begin 62 | for i := FList.Count - 1 downto 0 do 63 | begin 64 | FreeLibrary(TPluginHandle(FList.Objects[i]).PluginHandle); 65 | TPluginHandle(FList.Objects[i]).Free; 66 | FList.Delete(i); 67 | end; 68 | FList.Free; 69 | inherited Destroy; 70 | end; 71 | 72 | procedure TPluginList.AddPlugin(PluginName,FileName: string); 73 | var 74 | PluginHandle : TPluginHandle; 75 | begin 76 | PluginHandle := TPluginHandle.Create(nil); 77 | PluginHandle.PluginHandle := LoadLibrary(PChar(filename)); 78 | FList.AddObject(PluginName,PluginHandle); 79 | end; 80 | 81 | function TPluginList.GetPluginHandle(PluginName: string): THandle; 82 | var 83 | i: integer; 84 | begin 85 | for i := 0 to FList.Count -1 do 86 | begin 87 | if LowerCase(FList[i]) = LowerCase(PluginName) then 88 | begin 89 | Result := TPluginHandle(FList.Objects[i]).PluginHandle; 90 | break; 91 | end; 92 | end; 93 | end; 94 | 95 | function TPluginList.GetPluginForm(PluginName: string): TForm; 96 | var 97 | i: integer; 98 | girdi: boolean; 99 | tmp: TForm; 100 | begin 101 | girdi := false; 102 | for i := 0 to FList.Count -1 do 103 | begin 104 | if LowerCase(FList[i]) = LowerCase(PluginName) then 105 | begin 106 | girdi := true; 107 | tmp := TPluginHandle(FList.Objects[i]).Form; 108 | break; 109 | end; 110 | end; 111 | if girdi then 112 | Result := tmp 113 | else 114 | Result := nil; 115 | end; 116 | 117 | function TPluginList.DeletePluginForm(PluginName: string): TForm; 118 | var 119 | i: integer; 120 | F: TForm; 121 | begin 122 | for i := FList.Count -1 downto 0 do 123 | begin 124 | if LowerCase(FList[i]) = LowerCase(PluginName) then 125 | begin 126 | TPluginHandle(FList.Objects[i]).Form.Free; 127 | TPluginHandle(FList.Objects[i]).Form := nil; 128 | // FreeLibrary(TPluginHandle(FList.Objects[i]).PluginHandle); 129 | // TPluginHandle(FList.Objects[i]).Free; 130 | // FList.Delete(i); 131 | end; 132 | end; 133 | end; 134 | 135 | procedure TPluginList.SetPluginForm(PluginName: string; Form: TForm); 136 | var 137 | i: integer; 138 | begin 139 | for i := 0 to FList.Count -1 do 140 | begin 141 | if LowerCase(FList[i]) = LowerCase(PluginName) then 142 | begin 143 | TPluginHandle(FList.Objects[i]).Form := Form; 144 | break; 145 | end; 146 | end; 147 | 148 | end; 149 | 150 | 151 | end. 152 | -------------------------------------------------------------------------------- /XMLDLL/src/Plugins/Home/Home.dpr: -------------------------------------------------------------------------------- 1 | library Home; 2 | 3 | uses 4 | SysUtils, 5 | Classes, 6 | Forms, 7 | MainHome in 'MainHome.pas' {frmMainHome}; 8 | 9 | {$R *.res} 10 | 11 | function ShowNavigationForm: TForm; stdcall; export; 12 | begin 13 | frmMainHome:= TfrmMainHome.Create(nil); 14 | Result := frmMainHome; 15 | end; 16 | 17 | exports 18 | ShowNavigationForm; 19 | 20 | begin 21 | end. 22 | -------------------------------------------------------------------------------- /XMLDLL/src/Plugins/Home/Home.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/walwalwalides/Delphi-Collection-VCL/0524ca62a1d652c7040c20f15bb0486b808548be/XMLDLL/src/Plugins/Home/Home.res -------------------------------------------------------------------------------- /XMLDLL/src/Plugins/Home/MainHome.pas: -------------------------------------------------------------------------------- 1 | unit MainHome; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, jpeg, ExtCtrls, Vcl.Imaging.pngimage,Buttons, PngFunctions, System.ImageList, Vcl.ImgList, Vcl.ComCtrls, Vcl.ToolWin; 8 | 9 | type 10 | TfrmMainHome = class(TForm) 11 | imlIcons: TImageList; 12 | ToolBar2: TToolBar; 13 | ToolButton1: TToolButton; 14 | ToolButton2: TToolButton; 15 | tbtnHome: TToolButton; 16 | ToolButton3: TToolButton; 17 | tbtnAbout: TToolButton; 18 | ToolButton4: TToolButton; 19 | tbtnClose: TToolButton; 20 | procedure ToolButton1Click(Sender: TObject); 21 | private 22 | { Private declarations } 23 | public 24 | { Public declarations } 25 | end; 26 | 27 | var 28 | frmMainHome: TfrmMainHome; 29 | 30 | implementation 31 | 32 | {$R *.dfm} 33 | 34 | 35 | procedure TfrmMainHome.ToolButton1Click(Sender: TObject); 36 | begin 37 | close; 38 | end; 39 | 40 | end. 41 | --------------------------------------------------------------------------------