paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 01:57:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

Tools, JSON viewer: enabled localization.

Browse Source 
git-svn-id: trunk@27435 -
This commit is contained in:
maxim 2010-09-22 16:33:54 +00:00
parent ce65293986
commit 2c8f9466a1
3 changed files with 42 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
tools/jsonviewer/frmmain.lfm
View File

@ -3,9 +3,8 @@ object MainForm: TMainForm
Height = 509
Top = 225
Width = 695
ActiveControl = TVJSON
Caption = 'JSON Viewer'
ClientHeight = 487
ClientHeight = 489
ClientWidth = 695
Icon.Data = {
7E04000000000100010010100000010020006804000016000000280000001000
@ -129,7 +128,7 @@ object MainForm: TMainForm
end
object TVJSON: TTreeView
Left = 0
Height = 461
Height = 463
Top = 26
Width = 695
Align = alClient
@ -639,6 +638,42 @@ object MainForm: TMainForm
end
object MIFInd: TMenuItem
Action = AFind
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003E39
34FF393430FF332F2BFF2C2925FF272421FF201D1BFF1716141A110F0EDB0B0A
09FF070706FF040403FF000000FF000000FFFFFFFF00FFFFFF00FFFFFF004641
3BFF857A70FFC3B8AEFF7C7268FF7F756BFF36322DFF1E1C190F282522D49589
7DFFBAAEA2FF7C7268FF7F756BFF010101FFFFFFFF00FFFFFF00FFFFFF004D47
41FF83786FFFCCC3BAFF786F65FF7B7167FF2F2B28F9272421011D1B18EE9589
7DFFC2B8ADFF786F65FF7C7268FF060505FFFFFFFF00FFFFFF00FFFFFF00534C
46FC83786FFFCCC3BAFF797066FF71685FFF37332ED5FFFFFF00252220D5857A
70FFC2B8ADFF786F65FF7B7167FF0A0908FCFFFFFF00FFFFFF00FFFFFF005A52
4CC39F9286FFCCC3BAFFC0B4AAFFA6988BFF3E3934A8FFFFFF002C2925A89084
79FFC2B8ADFFC0B4AAFFA89B8EFF110F0EC3FFFFFF00FFFFFF00797066055C55
4EF9423D38FF58514AFF3D3833FF332F2BFF23201DE5171614301E1C19B51A18
16FF252220FF191715FF0F0E0DFF010101EE00000002FFFFFF009F9286059D91
85FFB1A396FF7F756BFF7C7268FF776D64FF6C635BFF2E2A26FF564F48FF8076
6CFF7C7268FF776D64FF70675EFF000000FE00000005FFFFFF00AB9D9004AFA1
94E1BAAEA2FF82776DFF82776DFFAA917BFFBAA794FFB7A48EFAB09781FF9F8D
7DFF836D5BFF716357FF95897DFF040403E000000003FFFFFF00B9ACA008877D
72489B8E82FF9D9185FF867B71FF564F48FF504A44FF80766CFF6E665DFF826C
58FFA6917DFF948474FF564F48FF0C0B0B7A07070601FFFFFF00FFFFFF00FFFF
FF00746B62FFA4978AFF95897DFF9F9286FF3E3934FFFFFFFF004C4640FF7E74
6AFF857A70FF3E3934FF453F3AA72522200C15131102FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF008E8378E2C3B8AEFF655D55FFFFFFFF007C7268FFA89B
8EFF9C8F83E4FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF009C8F83E2BCB0A4FF9D9185FFFFFFFF00AEA093FF9D91
85FF655D55DAFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
end
object MenuItem2: TMenuItem
Caption = '-'
@ -1501,7 +1536,6 @@ object MainForm: TMainForm
OnRestore = PSMainStoredValues2Restore
end>
Active = False
OnRestoreProperties = PSMainRestoreProperties
left = 196
top = 96
end

15
tools/jsonviewer/frmmain.pp
View File

@ -30,7 +30,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ActnList,
Menus, ComCtrls, IniPropStorage, fpJSON, JSONParser, PropertyStorage;
Menus, ComCtrls, IniPropStorage, fpJSON, JSONParser, PropertyStorage, DefaultTranslator;
type
@ -143,15 +143,12 @@ type
procedure MIdocumentClick(Sender: TObject);
procedure MISortMembersClick(Sender: TObject);
procedure MIStrictClick(Sender: TObject);
procedure PSMainRestoreProperties(Sender: TObject);
procedure PSMainStoredValues0Restore(Sender: TStoredValue;
var Value: TStoredType);
procedure PSMainStoredValues1Restore(Sender: TStoredValue;
var Value: TStoredType);
procedure PSMainStoredValues2Restore(Sender: TStoredValue;
var Value: TStoredType);
procedure TVJSONChanging(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
procedure TVJSONEdited(Sender: TObject; Node: TTreeNode; var S: string);
procedure TVJSONEditing(Sender: TObject; Node: TTreeNode;
var AllowEdit: Boolean);
@ -215,11 +212,6 @@ begin
PSMain.StoredValue['strict']:=IntToStr(Ord(Fstrict));
end;
procedure TMainForm.PSMainRestoreProperties(Sender: TObject);
begin
end;
procedure TMainForm.PSMainStoredValues0Restore(Sender: TStoredValue;
var Value: TStoredType);
begin
@ -238,11 +230,6 @@ begin
FSortObjectMembers:=StrToIntDef(Value,0)=1;
end;
procedure TMainForm.TVJSONChanging(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
begin
end;
procedure TMainForm.TVJSONEdited(Sender: TObject; Node: TTreeNode; var S: string
);

8
tools/jsonviewer/jsonviewer.lpi
View File

@ -1,15 +1,13 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="8"/>
<Version Value="9"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
<UseDefaultCompilerOptions Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<Title Value="JSON Data viewer"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
@ -22,7 +20,7 @@
<VersionInfo>
<Language Value=""/>
<CharSet Value=""/>
<StringTable Comments="" CompanyName="" FileDescription="" FileVersion="" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
<StringTable ProductVersion=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
@ -85,7 +83,7 @@
<CompilerOptions>
<Version Value="9"/>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)/"/>
<IncludeFiles Value="$(ProjOutDir)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>