Jelajahi Sumber

add methods to save/load key-color association from config file

Lulu 1 tahun lalu
induk
melakukan
9ff344928a
1 mengubah file dengan 14 tambahan dan 0 penghapusan
  1. 14 0
      lazpaint/uconfig.pas

+ 14 - 0
lazpaint/uconfig.pas

@@ -269,6 +269,10 @@ type
     function DefaultTransformSelectionAnswer: TModalResult;
     function DefaultTransformSelectionAnswer: TModalResult;
     procedure SetDefaultTransformSelectionAnswer(value: TModalResult);
     procedure SetDefaultTransformSelectionAnswer(value: TModalResult);
 
 
+    //palette
+    function DefaultColorsBoundToKeys: string;
+    procedure SetDefaultColorsBoundToKeys(value: string);
+
     //radial blur config
     //radial blur config
     function DefaultBlurRadius: single;
     function DefaultBlurRadius: single;
     procedure SetDefaultBlurRadius(value: single);
     procedure SetDefaultBlurRadius(value: single);
@@ -1164,6 +1168,16 @@ begin
   iniOptions.WriteInteger('Tool','TransformSelectionAnswer', value);
   iniOptions.WriteInteger('Tool','TransformSelectionAnswer', value);
 end;
 end;
 
 
+function TLazPaintConfig.DefaultColorsBoundToKeys: string;
+begin
+  result := iniOptions.ReadString('Palette','ColorsBoundToKeys','');
+end;
+
+procedure TLazPaintConfig.SetDefaultColorsBoundToKeys(value: string);
+begin
+   iniOptions.WriteString('Palette','ColorsBoundToKeys',value);
+end;
+
 function TLazPaintConfig.DefaultBlurRadius: single;
 function TLazPaintConfig.DefaultBlurRadius: single;
 begin
 begin
   result := iniOptions.ReadFloat('Filter','BlurRadius',5);
   result := iniOptions.ReadFloat('Filter','BlurRadius',5);