Skip to content

Commit 407ab1b

Browse files
author
César Cardoso
committed
feature/ajustes-about-e-splash
1 parent f7bf16b commit 407ab1b

3 files changed

Lines changed: 10 additions & 15 deletions

File tree

Src/Consts/C4D.Wizard.Consts.pas

Lines changed: 5 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -38,9 +38,11 @@ TC4DConsts = class
3838

3939
//ABOUT AND SPLASH
4040
C_ABOUT_TITLE = 'Code4Delphi Wizard';
41-
C_ABOUT_COPY_RIGHT = 'Copyright 2023 Code4Delphi Team';
42-
C_ABOUT_DESCRIPTION = 'Code4delphi Wizard aims to help with productivity in development';
43-
C_WIZARD_LICENSE = ''; //Freeware
41+
C_ABOUT_COPY_RIGHT = 'Copyright 2024 Code4Delphi Team.';
42+
C_ABOUT_DESCRIPTION = 'Wizard/plugin designed to be used in the Delphi IDE.' + sLineBreak +
43+
'https://github.com/Code4Delphi/Code4D-Wizard';
44+
C_WIZARD_LICENSE = 'MIT license';
45+
IS_UNREGISTERED = False;
4446

4547
//NAMES FILES AND IMAGES RESOURCE
4648
C_RESOURCE_c4d_logo_24x24 = 'c4d_logo_24x24';

Src/IDE/About/C4D.Wizard.IDE.About.pas

Lines changed: 3 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -17,13 +17,9 @@ implementation
1717
procedure RegisterAboutBox;
1818
begin
1919
if(Supports(BorlandIDEServices, IOTAAboutBoxServices, OTAAboutBoxServices))then
20-
IndexAboutBox := OTAAboutBoxServices.AddPluginInfo(
21-
TC4DConsts.C_ABOUT_TITLE,
22-
TC4DConsts.C_ABOUT_COPY_RIGHT + sLineBreak + TC4DConsts.C_ABOUT_DESCRIPTION,
23-
LoadBitmap(HInstance, TC4DConsts.C_RESOURCE_c4d_logo_48x48),
24-
False,
25-
TC4DConsts.C_WIZARD_LICENSE
26-
);
20+
IndexAboutBox := OTAAboutBoxServices.AddPluginInfo(TC4DConsts.C_ABOUT_TITLE,
21+
TC4DConsts.C_ABOUT_COPY_RIGHT + sLineBreak + TC4DConsts.C_ABOUT_DESCRIPTION + sLineBreak + TC4DConsts.C_WIZARD_LICENSE,
22+
LoadBitmap(HInstance, TC4DConsts.C_RESOURCE_c4d_logo_48x48), TC4DConsts.IS_UNREGISTERED, TC4DConsts.C_WIZARD_LICENSE);
2723
end;
2824

2925
procedure UnregisterAboutBox;

Src/IDE/Splash/C4D.Wizard.IDE.Splash.pas

Lines changed: 2 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -14,11 +14,8 @@ implementation
1414
procedure RegisterSplashScreen;
1515
begin
1616
ForceDemandLoadState(dlDisable);
17-
SplashScreenServices.AddPluginBitmap(
18-
TC4DConsts.C_ABOUT_TITLE,
19-
LoadBitmap(HInstance, TC4DConsts.C_RESOURCE_c4d_logo_24x24),
20-
False,
21-
TC4DConsts.C_WIZARD_LICENSE);
17+
SplashScreenServices.AddPluginBitmap(TC4DConsts.C_ABOUT_TITLE, LoadBitmap(HInstance, TC4DConsts.C_RESOURCE_c4d_logo_24x24),
18+
TC4DConsts.IS_UNREGISTERED, TC4DConsts.C_WIZARD_LICENSE);
2219
end;
2320

2421
initialization

0 commit comments

Comments
 (0)