Revision | 491 (tree) |
---|---|
Time | 2020-02-07 04:14:27 |
Author | ![]() |
Melhoria na detecção de depuração
@@ -64,10 +64,8 @@ | ||
64 | 64 | procedure TKODMMain.Loaded; |
65 | 65 | begin |
66 | 66 | inherited; |
67 | - {$IFDEF RELEASE} | |
68 | - AboutBoxInfos[1].Active := False; | |
69 | - SplashScreenIcons[1].Active := False; | |
70 | - {$ENDIF} | |
67 | + AboutBoxInfos[1].Active := DebugHook > 0; | |
68 | + SplashScreenIcons[1].Active := DebugHook > 0; | |
71 | 69 | end; |
72 | 70 | |
73 | 71 | procedure TKODMMain.MNUIAboutClick(Sender: TObject); |