|
@@ -241,9 +241,9 @@ type
|
|
Procedure FinishedLoadingApp;
|
|
Procedure FinishedLoadingApp;
|
|
Procedure FillAccountInformation(Const Strings : TStrings; Const AccountNumber : Cardinal);
|
|
Procedure FillAccountInformation(Const Strings : TStrings; Const AccountNumber : Cardinal);
|
|
Procedure FillOperationInformation(Const Strings : TStrings; Const OperationResume : TOperationResume);
|
|
Procedure FillOperationInformation(Const Strings : TStrings; Const OperationResume : TOperationResume);
|
|
|
|
+ Procedure InitMacOSMenu;
|
|
{$IFDEF TESTNET}
|
|
{$IFDEF TESTNET}
|
|
Procedure InitMenuForTesting;
|
|
Procedure InitMenuForTesting;
|
|
- Procedure InitMacOSMenu;
|
|
|
|
Procedure Test_RandomOperations(Sender: TObject);
|
|
Procedure Test_RandomOperations(Sender: TObject);
|
|
Procedure Test_AskForFreeAccount(Sender: TObject);
|
|
Procedure Test_AskForFreeAccount(Sender: TObject);
|
|
{$IFDEF TESTING_NO_POW_CHECK}
|
|
{$IFDEF TESTING_NO_POW_CHECK}
|
|
@@ -965,16 +965,16 @@ begin
|
|
end;
|
|
end;
|
|
|
|
|
|
Procedure TFRMWallet.InitMacOSMenu;
|
|
Procedure TFRMWallet.InitMacOSMenu;
|
|
-{$ifdef fpc}
|
|
|
|
|
|
+{$IFDEF FPC}
|
|
var
|
|
var
|
|
mi : TMenuItem;
|
|
mi : TMenuItem;
|
|
app : TMenuItem;
|
|
app : TMenuItem;
|
|
-{$endif}
|
|
|
|
|
|
+{$ENDIF}
|
|
begin
|
|
begin
|
|
- {$ifdef fpc}
|
|
|
|
- {$ifndef darwin}
|
|
|
|
|
|
+ {$IFDEF FPC}
|
|
|
|
+ {$IFNDEF DARWIN}
|
|
Exit;
|
|
Exit;
|
|
- {$endif}
|
|
|
|
|
|
+ {$ENDIF}
|
|
app := TMenuItem.Create(MainMenu);
|
|
app := TMenuItem.Create(MainMenu);
|
|
app := TMenuItem.Create(MainMenu);
|
|
app := TMenuItem.Create(MainMenu);
|
|
app.Caption:=#$EF#$A3#$BF;
|
|
app.Caption:=#$EF#$A3#$BF;
|
|
@@ -1010,6 +1010,7 @@ begin
|
|
{$endif}
|
|
{$endif}
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
+
|
|
{$IFDEF TESTNET}
|
|
{$IFDEF TESTNET}
|
|
procedure TFRMWallet.InitMenuForTesting;
|
|
procedure TFRMWallet.InitMenuForTesting;
|
|
var mi : TMenuItem;
|
|
var mi : TMenuItem;
|