Changeset 41 for trunk/Forms/UFormMain.pas

Timestamp:

May 8, 2019, 11:54:23 AM (5 years ago)

Author:

chronos

Message:

• Modified: Build under Lazarus 2.0.
• Modified: Used .lrj files instead of .lrt files.
• Modified: Removed TemplateGenerics package.

File:

• trunk/Forms/UFormMain.pas (modified) (4 diffs)

trunk/Forms/UFormMain.pas

@@ -171 +171 @@
   SModifiedFlag = '(modified)';
   SNewProject = 'New project';
-  SSelectDriveForScan = 'Select drive for scan';
   SOpenStoredProject = 'Open stored scan project';
   SSaveProject = 'Save scan project';
@@ -227 +226 @@
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
-  PrefixMultiplier := TPrefixMultiplier.Create;
+  PrefixMultiplier := TPrefixMultiplier.Create(nil);
 end;
 
@@ -588 +587 @@
 procedure TFormMain.SaveConfig;
 begin
-  Core.XMLConfig1.SetValue('DriveName', LastDriveName);
+  Core.XMLConfig1.SetValue('DriveName', UnicodeString(LastDriveName));
   LastOpenedList1.SaveToXMLConfig(Core.XMLConfig1, 'RecentProjects');
   Core.XMLConfig1.SetValue('ShowToolBar', ShowToolBar);
@@ -595 +594 @@
 procedure TFormMain.LoadConfig;
 begin
-  LastDriveName := Core.XMLConfig1.GetValue('DriveName', '');
+  LastDriveName := string(Core.XMLConfig1.GetValue('DriveName', UnicodeString('')));
   LastOpenedList1.LoadFromXMLConfig(Core.XMLConfig1, 'RecentProjects');
   ShowToolBar := Core.XMLConfig1.GetValue('ShowToolBar', False);