From be50d35b676daa11972d491e5c01a376b25b8ccb Mon Sep 17 00:00:00 2001 From: RRUZ Date: Wed, 8 Nov 2023 23:00:41 -0300 Subject: [PATCH] * Added RAD Studio 12.0 Athens support. --- README.md | 2 +- delphi-ide-theme-editor/DITE.dproj | 4 +-- delphi-ide-theme-editor/DITE.res | Bin 64612 -> 64612 bytes .../Units/DITE.DelphiVersions.pas | 24 +++++++++++------- .../Units/DITE.HelpInsight.pas | 3 ++- .../default/DefaultThemes.RC | 3 ++- .../default/RAD Studio 12.0.reg | Bin 0 -> 21434 bytes 7 files changed, 22 insertions(+), 14 deletions(-) create mode 100644 delphi-ide-theme-editor/default/RAD Studio 12.0.reg diff --git a/README.md b/README.md index 45222a2..ea42806 100644 --- a/README.md +++ b/README.md @@ -12,7 +12,7 @@ DITE supports * Delphi 7. * RAD Studio 2005-2010 * RAD Studio XE-XE8 -* RAD Studio 10 Seattle, RAD Studio 10.1 Berlin, RAD Studio 10.2 Tokyo, RAD Studio 10.3 Rio, RAD Studio 10.4 Sydney, RAD Studio 11 Alexandria +* RAD Studio 10 Seattle, 10.1 Berlin, 10.2 Tokyo, 10.3 Rio, 10.4 Sydney, 11 Alexandria, 12 Athens * Lazarus v1.0.6 * Appmethod 1.13-1.16 * Smart Mobile Studio IDE v1.1.2.17 diff --git a/delphi-ide-theme-editor/DITE.dproj b/delphi-ide-theme-editor/DITE.dproj index 3476444..20040e0 100644 --- a/delphi-ide-theme-editor/DITE.dproj +++ b/delphi-ide-theme-editor/DITE.dproj @@ -131,10 +131,10 @@ true 3 true - 97 + 98 1 false - CompanyName=The road to Delphi;FileDescription=Delphi IDE Theme Editor;FileVersion=1.97.1.1;InternalName=DITE;LegalCopyright=RRUZ;LegalTrademarks=;OriginalFilename=;ProductName=Delphi IDE Theme Editor;ProductVersion=1.0.0.0;Comments=That is not dead which can eternal lie. + CompanyName=The road to Delphi;FileDescription=Delphi IDE Theme Editor;FileVersion=1.98.1.1;InternalName=DITE;LegalCopyright=RRUZ;LegalTrademarks=;OriginalFilename=;ProductName=Delphi IDE Theme Editor;ProductVersion=1.0.0.0;Comments=That is not dead which can eternal lie. And with strange aeons even death may die.;ProgramID=com.embarcadero.$(MSBuildProjectName) $(BDS)\bin\default_app.manifest diff --git a/delphi-ide-theme-editor/DITE.res b/delphi-ide-theme-editor/DITE.res index 4555efaecbbe1047c7b4c5d9bdf3cb9cbf0cc6d9..23deb094d28d7623f5db78d1405db146f95b533d 100644 GIT binary patch delta 21 dcmaFzgZar1<_QIiNgE4w85u1$&u2XP3jlG#3B3RS delta 21 dcmaFzgZar1<_QIii5m-b85zwt&u2XP3jlGj3A+FQ diff --git a/delphi-ide-theme-editor/Units/DITE.DelphiVersions.pas b/delphi-ide-theme-editor/Units/DITE.DelphiVersions.pas index dfc415d..738b9e2 100644 --- a/delphi-ide-theme-editor/Units/DITE.DelphiVersions.pas +++ b/delphi-ide-theme-editor/Units/DITE.DelphiVersions.pas @@ -42,7 +42,7 @@ interface Delphi7, Delphi8, Delphi2005, Delphi2006, Delphi2007, Delphi2009, Delphi2010, DelphiXE, DelphiXE2, DelphiXE3, DelphiXE4, DelphiXE5, Appmethod, DelphiXE6, DelphiXE7, DelphiXE8, Delphi10Seattle, Delphi10Berlin, Delphi10Tokyo, Delphi10Rio, - Delphi10Sydney, Delphi11Alexandria); + Delphi10Sydney, Delphi11Alexandria, Delphi12Athens); TDelphiVersionData = Class private @@ -103,7 +103,7 @@ interface 'RAD Studio XE6/Appmethod 1.14', 'RAD Studio XE7/Appmethod 1.15', 'RAD Studio XE8', 'RAD Studio 10 Seattle', 'RAD Studio 10.1 Berlin', 'RAD Studio 10.2 Tokyo', 'RAD Studio 10.3 Rio', 'RAD Studio 10.4 Sydney', - 'RAD Studio 11.0 Alexandria'); + 'RAD Studio 11.0 Alexandria', 'RAD Studio 12.0 Athens'); DelphiVersionNumbers: array [TDelphiVersions] of double = ( {$IFDEF DELPHI_OLDER_VERSIONS_SUPPORT} @@ -131,7 +131,8 @@ interface 32, // 'RAD Studio 10.2 Tokyo' 33, // 'RAD Studio 10.3 Rio' 34, // 'RAD Studio 10.4 Sydney' - 35 // 'RAD Studio 11.0 Alexandria' + 35, // 'RAD Studio 11.0 Alexandria' + 36 // 'RAD Studio 12.0 Athens' ); DelphiVCLStylesPaths: array [TDelphiVersions] of string = ( @@ -152,7 +153,8 @@ interface 'Embarcadero\Studio\19.0\Styles', 'Embarcadero\Studio\20.0\Styles', 'Embarcadero\Studio\21.0\Styles', - 'Embarcadero\Studio\22.0\Styles' + 'Embarcadero\Studio\22.0\Styles', + 'Embarcadero\Studio\23.0\Styles' ); procedure FillCurrentDelphiVersion(Data: TDelphiVersionData); @@ -220,7 +222,8 @@ implementation '\Software\Embarcadero\BDS\19.0', '\Software\Embarcadero\BDS\20.0', '\Software\Embarcadero\BDS\21.0', - '\Software\Embarcadero\BDS\22.0' + '\Software\Embarcadero\BDS\22.0', + '\Software\Embarcadero\BDS\23.0' ); DelphiCustomRegPaths: array [TDelphiVersions] of string = ( @@ -249,7 +252,8 @@ implementation '\Software\Embarcadero\%s\19.0', // BDS '\Software\Embarcadero\%s\20.0', // BDS '\Software\Embarcadero\%s\21.0', // BDS - '\Software\Embarcadero\%s\22.0' // BDS + '\Software\Embarcadero\%s\22.0', // BDS + '\Software\Embarcadero\%s\23.0' // BDS ); DelphiRegPathNumbers: array [TDelphiVersions] of Integer = ( @@ -279,7 +283,8 @@ implementation 19, // 'RAD Studio 10.2 Tokyo' 20, // 'RAD Studio 10.3 Rio' 21, // 'RAD Studio 10.4 Sydney' - 22 // 'RAD Studio 11.0 Alexandria' + 22, // 'RAD Studio 11.0 Alexandria' + 23 // 'RAD Studio 12.0 Athens' ); DelphiCmpnyNames: array [TDelphiVersions] of TDelphiCmpnyName = ( @@ -308,7 +313,8 @@ implementation Embarcadero, // 'RAD Studio 10.2 Tokyo Embarcadero, // 'RAD Studio 10.3 Rio Embarcadero, // 'RAD Studio 10.4 Sydney - Embarcadero // 'RAD Studio 11 Alexandria + Embarcadero, // 'RAD Studio 11 Alexandria + Embarcadero // 'RAD Studio 12 Athens ); {$IFDEF DELPHI_OLDER_VERSIONS_SUPPORT} @@ -506,7 +512,7 @@ TBDSKeysItem = record BDSKeysItems[2].Key := '\Software\CodeGear'; BDSKeysItems[3].MinValue := DelphiRegPathNumbers[DelphiXE]; - BDSKeysItems[3].MaxValue := DelphiRegPathNumbers[Delphi11Alexandria]; + BDSKeysItems[3].MaxValue := DelphiRegPathNumbers[Delphi12Athens]; BDSKeysItems[3].Company := Embarcadero; BDSKeysItems[3].Key := '\Software\Embarcadero'; diff --git a/delphi-ide-theme-editor/Units/DITE.HelpInsight.pas b/delphi-ide-theme-editor/Units/DITE.HelpInsight.pas index 32b5f83..d6ba934 100644 --- a/delphi-ide-theme-editor/Units/DITE.HelpInsight.pas +++ b/delphi-ide-theme-editor/Units/DITE.HelpInsight.pas @@ -54,7 +54,8 @@ interface '\ObjRepos\en', // 10.2 Tokyo '\ObjRepos\en', // 10.3 Rio '\ObjRepos\en', // 10.4 Sydney - '\ObjRepos\en' // 11.0 Alexandria + '\ObjRepos\en', // 11.0 Alexandria + '\ObjRepos\en' // 12.0 Athens ); procedure ApplyThemeHelpInsight(const ATheme: TIDETheme; IDEData: TDelphiVersionData); diff --git a/delphi-ide-theme-editor/default/DefaultThemes.RC b/delphi-ide-theme-editor/default/DefaultThemes.RC index 9029d4f..a638a62 100644 --- a/delphi-ide-theme-editor/default/DefaultThemes.RC +++ b/delphi-ide-theme-editor/default/DefaultThemes.RC @@ -20,4 +20,5 @@ Delphi10Berlin RCDATA "RAD Studio 10.1 Berlin.reg" Delphi10Tokyo RCDATA "RAD Studio 10.2 Tokio.reg" Delphi10Rio RCDATA "RAD Studio 10.3.reg" Delphi10Sydney RCDATA "RAD Studio 10.4.reg" -Delphi11Alexandria RCDATA "RAD Studio 11.0.reg" \ No newline at end of file +Delphi11Alexandria RCDATA "RAD Studio 11.0.reg" +Delphi12Athens RCDATA "RAD Studio 12.0.reg" \ No newline at end of file diff --git a/delphi-ide-theme-editor/default/RAD Studio 12.0.reg b/delphi-ide-theme-editor/default/RAD Studio 12.0.reg new file mode 100644 index 0000000000000000000000000000000000000000..40030019eba3ae9dd4b82b56dffce2c154ce85da GIT binary patch literal 21434 zcmeHPU2oeq6ur*{_8$ae&%@BI$@R%TbKBME`3}@f_MJ)G;k-TICdZnd4YEu$Ba!o4RgH>IY1lS zH$qEAzd1Ey%@O49Cg?@cFPr%89PM4>mvi*1ZN{J2Nb%pbY3HHG?xLN(e0b2YdFM%h zBwo8k;30Z;d)Mzi_U__s+t2Pq-ua5#_|f2ZTYke>?ch4wXj>1OiJ+MoXU>l?u06d& zxL!n@ppVxETfC1A%;5W2${QbxCHKh9qk)KeV`ky}-z(r%{Qta0B+T(jF>}vwf7!nT z%-REg41o~KdwNmfGu9??LAyrow1~_@U@=2HHcY$*CdOt4MpP^x)lgBf3zncwBtsM_ zq%fJnXPI&~#HxWkC=R}wvQ>jKcH|$-!k#icu?Oo$)lGcRhUnK5{+MpkavWg{Q@JwQ zD?Ix_Wj!!Fac(p=eU%B6dSaBu5Z{EXD|}>CWsB!xU)2y|S*I<(!uzmqT|Nj=a%ptt z1h}Y<2v^^0^GDtOl|ut{;!AJ^XU(LB-O%cPG{Ft$cqOnM_oEus5#i6kbzs6B*N58= zzklU1v6=`4^$4RA{M5w`3tZ5WFh(&4QWzhMxLAMW%3@+0sMuDEi%X#42DpfLSU(=J zD5kzhCV658+hOCF1K5!>V=a4#4Qoe+ZwEGOL#Qiy$j8*vm$V)lnW6<-5plt+4s#s$ zvn%{xmm6L1DoA%tle4vbZxN@N6k1V+%G^>oM6MNyvJj#X6uRUO(z zo#YrV`q;J>Gs}l-*9j31>!=nc9wvxQ+sfG(lPnW^a{YiRaRxVEs>PSEdf{=_PgQ3M zKSohaMbxjyZlUsuQOP!{UUg+V7sxn-T4Gi9V^9EG~Ai7HJC=o6oRPNEc(gGLfjv z^Pt9vnT%`=(Q;&vYq`3idQ|Eyj;7w{`Zist_+G4st47N6L%4B?KTQobeGl#4r_b}Q zeOY%rBFxCt5yrk}Vw0@6W~5qw{>q)vn?^z%??Q8?;t1+-h?NGcci`F`uKQ$UJ95La zs<{)~DKcnvjo|7}EinkzU~r{)YHBB`8*dFB1_g+4=jCHu5$;|?d9}b5u{V_~hN!rpUE5O;krWYcPacVW&k$bifQ`2(If484LBbL%5NK4iph{6|9ic zjsbTZqkl=QSNFMCeCpOGa6ljGkr@g;(~B!`{L1if@v#au>9Ty;taoN{?6anr=hPLK z&O=FjDp{3vIblXDPrw-O3q1{&yJHN3Pe99yjTdWD%`u2YtZW94leQz|RlP2n%f}w- JT8knqd`C literal 0 HcmV?d00001