Changeset 21 for trunk/Messg.pas

Timestamp:

Jan 8, 2017, 3:12:18 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Run as 64-bit application. Can't load 32-bit StdAI library in 64-bit mode.
• Fixed: Various Warnings and Hints.

File:

• trunk/Messg.pas (modified) (2 diffs)

trunk/Messg.pas

@@ -16 +16 @@
 type
   TDrawDlg = class(TForm)
+  public
     constructor Create(AOwner: TComponent); override;
-  public
     procedure SmartInvalidate; virtual;
   protected
@@ -126 +126 @@
       TButtonBase(Components[cix]).Graphic := GrExt[HGrSystem].Data;
       // if ButtonDownSound<>'*' then
-      // DownSound:=HomeDir+'Sounds'+DirectorySeparator+ButtonDownSound+'.wav';
+      // DownSound:=HomeDir+'Sounds\'+ButtonDownSound+'.wav';
       // if ButtonUpSound<>'*' then
-      // UpSound:=HomeDir+'Sounds'+DirectorySeparator+ButtonUpSound+'.wav';
+      // UpSound:=HomeDir+'Sounds\'+ButtonUpSound+'.wav';
       if Components[cix] is TButtonA then
         TButtonA(Components[cix]).Font := UniFont[ftButton];