Bugfixes pre 1.0 release

G940LEDControl/Forms/MainFrm.dfm

@@ -280,7 +280,7 @@ object MainForm: TMainForm
         Top = 67
         Width = 41
         Height = 41
-        Caption = 'P1'
+        Caption = 'P&1'
         TabOrder = 3
       end
       object btnP2: TButton
@@ -288,7 +288,7 @@ object MainForm: TMainForm
         Top = 114
         Width = 41
         Height = 41
-        Caption = 'P2'
+        Caption = 'P&2'
         TabOrder = 4
       end
       object btnP3: TButton
@@ -296,7 +296,7 @@ object MainForm: TMainForm
         Top = 161
         Width = 41
         Height = 41
-        Caption = 'P3'
+        Caption = 'P&3'
         TabOrder = 5
       end
       object btnP4: TButton
@@ -304,7 +304,7 @@ object MainForm: TMainForm
         Top = 208
         Width = 41
         Height = 41
-        Caption = 'P4'
+        Caption = 'P&4'
         TabOrder = 6
       end
       object btnP5: TButton
@@ -312,7 +312,7 @@ object MainForm: TMainForm
         Top = 255
         Width = 41
         Height = 41
-        Caption = 'P5'
+        Caption = 'P&5'
         TabOrder = 7
       end
       object btnP6: TButton
@@ -320,7 +320,7 @@ object MainForm: TMainForm
         Top = 302
         Width = 41
         Height = 41
-        Caption = 'P6'
+        Caption = 'P&6'
         TabOrder = 8
       end
       object btnP7: TButton
@@ -328,7 +328,7 @@ object MainForm: TMainForm
         Top = 349
         Width = 41
         Height = 41
-        Caption = 'P7'
+        Caption = 'P&7'
         TabOrder = 9
       end
       object btnP8: TButton
@@ -336,7 +336,7 @@ object MainForm: TMainForm
         Top = 396
         Width = 41
         Height = 41
-        Caption = 'P8'
+        Caption = 'P&8'
         TabOrder = 10
       end
       object cmbProfiles: TComboBox

G940LEDControl/Forms/MainFrm.pas

@@ -851,6 +851,9 @@ begin
     if InputQuery('Save profile as', 'Save this profile as:', name) then
     begin
       existingProfile := Profiles.Find(name);
+      if existingProfile = profile then
+        existingProfile := nil;
+
       if Assigned(existingProfile) then
       begin
         case MessageBox(Self.Handle, PChar(Format('A profile named "%s" exists, do you want to overwrite it?', [name])),

G940LEDControl/G940LEDControl.dproj

@@ -8,7 +8,7 @@
 			<FrameworkType>VCL</FrameworkType>
 			<ProjectVersion>13.4</ProjectVersion>
 			<Base>True</Base>
-			<Config Condition="'$(Config)'==''">Release</Config>
+			<Config Condition="'$(Config)'==''">Debug</Config>
 			<Platform Condition="'$(Platform)'==''">Win32</Platform>
 			<TargetedPlatforms>1</TargetedPlatforms>
 			<AppType>Application</AppType>

G940LEDControl/Units/Profile.pas

@@ -261,7 +261,10 @@ begin
     begin
       FButtons.Add(button);
     end else
+    begin
+      FButtons.Add(nil);
       FreeAndNil(button);
+    end;
   finally
     AReader.EndSection;
     Inc(buttonIndex);
@@ -280,7 +283,8 @@ begin
   begin
     if AWriter.BeginSection(SectionButton + IntToStr(buttonIndex)) then
     try
-      FButtons[buttonIndex].Save(AWriter);
+      if Assigned(FButtons[buttonIndex]) then
+        FButtons[buttonIndex].Save(AWriter);
     finally
       AWriter.EndSection;
     end;