Skip to content

Add save tags values. #3

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wqmeng wants to merge 2 commits into
base: master
Choose a base branch
from
Open

Add save tags values. #3

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
9f1a239
Add support save tags.
wqmeng Nov 6, 2025
db23b02
Tweak add to pairs.
wqmeng Nov 6, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
28 changes: 27 additions & 1 deletion AutomateSaveState/SaveStateHelper.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -26,6 +26,9 @@ interface
TSaveStateHelper = class helper for TCustomForm
public const
DATA_FIELD = 'data';
TAG = 'tag';
TAG_FLOAT = 'tagfloat';
TAG_STRING = 'tagstring';
procedure SaveFormState;
procedure LoadFormState;
end;
Expand All @@ -44,6 +47,7 @@ procedure TSaveStateHelper.LoadFormState;
I: Integer;
FMXObj: TFmxObject;
FMXJObj: TJSONObject;
FMXJValue: TJSONValue;
begin
try
SaveState.StoragePath := TPath.GetHomePath;
Expand All @@ -60,6 +64,9 @@ procedure TSaveStateHelper.LoadFormState;
continue;
FMXObj := Self.Components[I] as TFmxObject;
FMXJObj := FormJSONObject.Values[FMXObj.Name] as TJSONObject;
if not Assigned(FMXJObj) then
Continue;

case FMXObj.Data.Kind of
tkUnknown:
;
Expand Down Expand Up @@ -107,6 +114,17 @@ procedure TSaveStateHelper.LoadFormState;
tkProcedure:
;
end;

// Tags
FMXJValue := FMXJObj.GetValue(TAG);
if Assigned(FMXJValue) and (FMXJValue is TJSONNumber) then
FMXObj.Tag := (FMXJValue as TJSONNumber).AsInt;
FMXJValue := FMXJObj.GetValue(TAG_FLOAT);
if Assigned(FMXJValue) and (FMXJValue is TJSONNumber) then
FMXObj.TagFloat := (FMXJValue as TJSONNumber).AsDouble;
FMXJValue := FMXJObj.GetValue(TAG_STRING);
if Assigned(FMXJValue) and (FMXJValue is TJSONString) then
FMXObj.TagString := (FMXJValue as TJSONString).Value;
end;
finally
FormJSONObject.Free;
Expand Down Expand Up @@ -183,7 +201,15 @@ procedure TSaveStateHelper.SaveFormState;
tkProcedure:
;
end;
FormJSONObject.AddPair(FMXObj.Name, FMXJObj)

// Tags
FMXJObj.AddPair(TAG,
TJSONNumber.Create(FMXObj.Tag));
FMXJObj.AddPair(TAG_FLOAT,
TJSONNumber.Create(FMXObj.TagFloat));
FMXJObj.AddPair(TAG_STRING, FMXObj.TagString);

FormJSONObject.AddPair(FMXObj.Name, FMXJObj);
end;
SaveState.Stream.Clear;
W := TBinaryWriter.Create(SaveState.Stream);
Expand Down