Changeset 738 for cprs/branches/tmg-cprs/CPRS-Chart/fImages.pas

Timestamp:

Apr 19, 2010, 5:24:20 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Fixed Text Object Parameters

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fImages.pas (modified) (3 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/fImages.pas

@@ -99 +99 @@
     CurImageToLoad : integer;
     InTimerFn : Boolean;
-    DropBoxDir : string;
-    UseDropBox : boolean;
     procedure EnsureImageListLoaded();
     procedure ClearImageList();
@@ -112 +110 @@
   public
     CacheDir : AnsiString;
+    UseDropBox : boolean;
+    DropBoxDir : string;
     NullImageName : AnsiString;
     function Decode(input: AnsiString) : AnsiString;
@@ -214 +214 @@
   if not DirectoryExists(CacheDir) then ForceDirectories(CacheDir);
 
-  UseDropBox := uTMGOptions.ReadBool('Use dropbox directory for transfers',false);
+  //UseDropBox := uTMGOptions.ReadBool('Use dropbox directory for transfers',false);
+  if uTMGOptions.ReadInteger('ImageTransferMethod',0) = 0 then begin
+     UseDropBox := True;
+  end else begin
+     UseDropBox := False;
+  end;   
   DropBoxDir := uTMGOptions.ReadString('Dropbox directory','??');
   if DropBoxDir='??' then begin  //just on first run.