Remove unused variables

This commit is contained in:
Ansgar Becker
2015-12-16 18:35:24 +00:00
parent f8067452d2
commit ae206eec29

View File

@ -222,12 +222,10 @@ end;
} }
procedure Toptionsform.Apply(Sender: TObject); procedure Toptionsform.Apply(Sender: TObject);
var var
i, j: Integer; i: Integer;
Attri: TSynHighlighterAttributes; Attri: TSynHighlighterAttributes;
Grid: TVirtualStringTree;
CatNode, ItemNode: PVirtualNode; CatNode, ItemNode: PVirtualNode;
Data: PShortcutItemData; Data: PShortcutItemData;
QueryTab: TQueryTab;
LangCode: String; LangCode: String;
begin begin
Screen.Cursor := crHourGlass; Screen.Cursor := crHourGlass;