Skip to content

Commit

Permalink
chore: Eliminating warning.
Browse files Browse the repository at this point in the history
  • Loading branch information
gcarreno committed Feb 1, 2021
1 parent 3d7a933 commit 8f4e6e9
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 2 deletions.
8 changes: 6 additions & 2 deletions src/forms/ljv.forms.main.pas
Original file line number Diff line number Diff line change
Expand Up @@ -173,6 +173,10 @@ procedure TfrmMain.lbFilesSelectionChange(Sender: TObject; User: boolean);
var
index: Integer;
begin
if User then
begin
// Do nothing. Just to eliminate warning about variable User
end;
if lbFiles.ItemIndex > -1 then
begin
Caption:= Format(rsFormCaptionFile, [FFileList[lbFiles.ItemIndex], cVersion]);
Expand Down Expand Up @@ -624,7 +628,7 @@ procedure TfrmMain.ShowValue(const AJSONData: TJSONData);
posY: Integer;
lbl, lblBin, lblHex, lblBytes, lblDateTime: TLabel;
edt, edtBin, edtHex, edtBytes, edtDateTime, edtFloat: TEdit;
tmpInt64: Int64;
//tmpInt64: Int64;
mem: TMemo;
begin
repeat
Expand Down Expand Up @@ -748,7 +752,7 @@ procedure TfrmMain.ShowValue(const AJSONData: TJSONData);
edtDateTime.Text:= FormatDateTime(cDateTimeFormat, UnixToDateTime(AJSONData.AsInteger));
end;
ntInt64:begin
tmpInt64:= AJSONData.AsInt64;
//tmpInt64:= AJSONData.AsInt64;
edt.Text:= Format('%d', [AJSONData.AsInt64]);

{ #todo -ogcarreno : Need to fix IntToBin only outputting 32 bits }
Expand Down
Binary file modified src/lazJSONViewer.res
Binary file not shown.

0 comments on commit 8f4e6e9

Please sign in to comment.