paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 15:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Tools: Reorder and clean uses sections. Prevent "deprecated" warnings.

Browse Source 
git-svn-id: trunk@49624 -
This commit is contained in:
juha 2015-08-08 21:06:51 +00:00
parent b64a6fdd26
commit c96d141c52
26 changed files with 62 additions and 464 deletions

2
lcl/lclproc.pas
View File

@ -387,7 +387,7 @@ function UTF8ToUTF16(const S: AnsiString): UTF16String; inline; deprecated 'Use
function UTF16ToUTF8(const S: UTF16String): AnsiString; inline; deprecated 'Use the function in LazUTF8 unit';
// locale
procedure LCLGetLanguageIDs(var Lang, FallbackLang: String); inline; deprecated 'Use the function in LazUTF8 unit';
procedure LCLGetLanguageIDs(var Lang, FallbackLang: String); inline; deprecated 'Use function LazGetLanguageIDs in LazUTF8 unit';
{$ENDIF DisableWrapperFunctions}
// identifier

4
tools/apiwizz/apiwizard.pp
View File

@ -31,8 +31,8 @@ unit APIWizard;
interface
uses
Classes, SysUtils, FileUtil, LazUTF8Classes, LResources, Forms, Controls,
Graphics, Dialogs, StdCtrls, Buttons, ExtCtrls, LCLproc, ComCtrls;
Classes, SysUtils, Forms, Controls, Dialogs, StdCtrls, ExtCtrls, LCLproc, ComCtrls,
LazFileUtils, LazUTF8, LazUTF8Classes;
type

4
tools/chmmaker/chmmaker.lpr
View File

@ -7,8 +7,8 @@ uses
cthreads,
{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, LazFileUtils
{ add your units here }, unit1, CHMSiteMapEditor, lhelpcontrolpkg;
Forms, LazFileUtils,
unit1, CHMSiteMapEditor, lhelpcontrolpkg;
var
i: Integer;

6
tools/chmmaker/chmsitemapeditor.pas
View File

@ -5,8 +5,8 @@ unit CHMSiteMapEditor;
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, chmsitemap,
ComCtrls, ExtCtrls, StdCtrls, Buttons;
Classes, SysUtils, chmsitemap,
Forms, Controls, Graphics, Dialogs, ComCtrls, ExtCtrls, StdCtrls;
type
@ -48,12 +48,10 @@ type
procedure SubItemBtnClick(Sender: TObject);
procedure URLEditChange(Sender: TObject);
private
{ private declarations }
FStream: TStream;
FSiteMapType: TSiteMapType;
procedure InitControls;
public
{ public declarations }
procedure LoadFromStream(AStream: TStream);
function Execute(AStream: TStream; SiteType: TSiteMapType; AvailableLinks: TStrings): Boolean;
end;

6
tools/chmmaker/unit1.pas
View File

@ -5,9 +5,9 @@ unit unit1;
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons, ComCtrls, chmsitemap, SynEdit, LazFileUtils, LazLogger, Menus,
ExtCtrls, EditBtn, LCLProc, chmfilewriter, types;
Classes, SysUtils, types, chmsitemap, chmfilewriter,
Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls, Menus, ExtCtrls, EditBtn,
LazFileUtils;
type

8
tools/debugserver/frmmain.pp
View File

@ -24,8 +24,8 @@ unit frmmain;
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
Menus, ActnList, ComCtrls, ExtCtrls, simpleipc, dbugmsg, clipbrd;
Classes, SysUtils, IniFiles, simpleipc, dbugmsg,
Forms, Controls, Dialogs, Menus, ActnList, ComCtrls, ExtCtrls, Clipbrd;
type
@ -99,7 +99,6 @@ type
procedure MIToolbarClick(Sender: TObject);
procedure MViewClick(Sender: TObject);
private
{ private declarations }
FPaused : Boolean;
FSrv : TSimpleIPCServer;
FShowOnStartUp,
@ -132,7 +131,6 @@ type
procedure StartServer;
procedure StopServer;
public
{ public declarations }
Property StayOnTop : Boolean Read GetStayOnTop Write SetStayOnTop;
Property ShowToolbar : Boolean Read GetShowToolbar Write SetShowToolBar;
end;
@ -144,7 +142,7 @@ implementation
{$R *.lfm}
uses inifiles,frmoptions;
uses frmoptions;
{ TMainForm }

5
tools/debugserver/frmoptions.pp
View File

@ -24,8 +24,7 @@ unit frmOptions;
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ButtonPanel, StdCtrls;
Forms, ButtonPanel, StdCtrls;
type
@ -44,9 +43,7 @@ type
function GetB(AIndex: integer): Boolean;
function GetCB(AIndex: Integer): TCheckBox;
procedure SetB(AIndex: integer; const AValue: Boolean);
{ private declarations }
public
{ public declarations }
Property ShowOnStartup : Boolean Index 0 Read GetB Write SetB;
Property ShowOnMessage : Boolean Index 1 Read GetB Write SetB;
Property NewMessageAtBottom : Boolean Index 2 Read GetB Write SetB;

388
tools/glazres/glazres.lpi
View File

@ -1,15 +1,15 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="glazres"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
@ -17,7 +17,7 @@
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="2" Active="Release">
<BuildModes Count="2">
<Item1 Name="Debug" Default="True"/>
<Item2 Name="Release">
<CompilerOptions>
@ -49,12 +49,6 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</Item2>
</BuildModes>
@ -73,15 +67,10 @@
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="33">
<Units Count="2">
<Unit0>
<Filename Value="glazres.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="glazres"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="39"/>
</Unit0>
<Unit1>
<Filename Value="glazresmain.pp"/>
@ -89,370 +78,8 @@
<ComponentName Value="GLazResForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="glazresmain"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="508"/>
<CursorPos X="6" Y="431"/>
<UsageCount Value="39"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="C:\Documents and Settings\AndyK\My Documents\lazprojects\Addons\TabbedHeader.pas"/>
<UnitName Value="TabbedHeader"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="3" Y="7"/>
<UsageCount Value="14"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit2>
<Unit3>
<Filename Value="..\lcl\include\canvas.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="916"/>
<CursorPos X="1" Y="932"/>
<UsageCount Value="8"/>
</Unit3>
<Unit4>
<Filename Value="..\lcl\buttons.pp"/>
<UnitName Value="Buttons"/>
<WindowIndex Value="0"/>
<TopLine Value="506"/>
<CursorPos X="21" Y="382"/>
<UsageCount Value="8"/>
</Unit4>
<Unit5>
<Filename Value="..\lcl\chart.pp"/>
<UnitName Value="Chart"/>
<WindowIndex Value="0"/>
<TopLine Value="332"/>
<CursorPos X="32" Y="249"/>
<UsageCount Value="8"/>
</Unit5>
<Unit6>
<Filename Value="..\lcl\comctrls.pp"/>
<UnitName Value="ComCtrls"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="93" Y="3"/>
<UsageCount Value="8"/>
</Unit6>
<Unit7>
<Filename Value="..\lcl\controls.pp"/>
<UnitName Value="Controls"/>
<WindowIndex Value="0"/>
<TopLine Value="3864"/>
<CursorPos X="29" Y="3884"/>
<UsageCount Value="8"/>
</Unit7>
<Unit8>
<Filename Value="..\lcl\editbtn.pas"/>
<UnitName Value="EditBtn"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="8"/>
</Unit8>
<Unit9>
<Filename Value="..\lcl\grids.pas"/>
<UnitName Value="Grids"/>
<WindowIndex Value="0"/>
<TopLine Value="595"/>
<CursorPos X="28" Y="3253"/>
<UsageCount Value="8"/>
</Unit9>
<Unit10>
<Filename Value="..\lcl\include\customcontrol.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="114"/>
<CursorPos X="1" Y="134"/>
<UsageCount Value="8"/>
</Unit10>
<Unit11>
<Filename Value="..\lcl\include\control.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="3460"/>
<CursorPos X="1" Y="3480"/>
<UsageCount Value="8"/>
</Unit11>
<Unit12>
<Filename Value="..\lcl\include\rasterimage.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="293"/>
<CursorPos X="1" Y="308"/>
<UsageCount Value="8"/>
</Unit12>
<Unit13>
<Filename Value="..\lcl\include\custombitmap.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="335"/>
<CursorPos X="1" Y="354"/>
<UsageCount Value="8"/>
</Unit13>
<Unit14>
<Filename Value="..\lcl\graphics.pp"/>
<UnitName Value="Graphics"/>
<WindowIndex Value="0"/>
<TopLine Value="986"/>
<CursorPos X="34" Y="984"/>
<UsageCount Value="8"/>
</Unit14>
<Unit15>
<Filename Value="..\lcl\include\brush.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="181"/>
<CursorPos X="1" Y="197"/>
<UsageCount Value="8"/>
</Unit15>
<Unit16>
<Filename Value="..\lcl\include\winapi.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="276"/>
<CursorPos X="1" Y="289"/>
<UsageCount Value="8"/>
</Unit16>
<Unit17>
<Filename Value="..\lcl\interfaces\win32\win32winapi.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="1444"/>
<CursorPos X="1" Y="1460"/>
<UsageCount Value="8"/>
</Unit17>
<Unit18>
<Filename Value="lazres.pp"/>
<UnitName Value="LazRes"/>
<WindowIndex Value="0"/>
<TopLine Value="22"/>
<CursorPos X="1" Y="34"/>
<UsageCount Value="18"/>
</Unit18>
<Unit19>
<Filename Value="..\lcl\lresources.pp"/>
<UnitName Value="LResources"/>
<WindowIndex Value="0"/>
<TopLine Value="1197"/>
<CursorPos X="1" Y="1211"/>
<UsageCount Value="14"/>
</Unit19>
<Unit20>
<Filename Value="C:\Documents and Settings\AndyK\My Documents\lazprojects\Addons\smithchart.pas"/>
<UnitName Value="Smithchart"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="52" Y="15"/>
<UsageCount Value="14"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit20>
<Unit21>
<Filename Value="C:\Documents and Settings\AndyK\My Documents\lazprojects\Addons\Smithchart.lrs"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="17" Y="1"/>
<UsageCount Value="14"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit21>
<Unit22>
<Filename Value="C:\devel\lazarus\tools\lazres.pp"/>
<UnitName Value="LazRes"/>
<WindowIndex Value="0"/>
<TopLine Value="31"/>
<CursorPos X="1" Y="56"/>
<UsageCount Value="10"/>
</Unit22>
<Unit23>
<Filename Value="C:\devel\lazarus\lcl\stdctrls.pp"/>
<UnitName Value="StdCtrls"/>
<WindowIndex Value="0"/>
<TopLine Value="1538"/>
<CursorPos X="46" Y="1549"/>
<UsageCount Value="13"/>
</Unit23>
<Unit24>
<Filename Value="C:\devel\lazarus\lcl\include\customlistbox.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="459"/>
<CursorPos X="3" Y="462"/>
<UsageCount Value="13"/>
</Unit24>
<Unit25>
<Filename Value="C:\devel\lazarus\lcl\lcltype.pp"/>
<UnitName Value="LCLType"/>
<WindowIndex Value="0"/>
<TopLine Value="1127"/>
<CursorPos X="5" Y="1141"/>
<UsageCount Value="13"/>
</Unit25>
<Unit26>
<Filename Value="glazresmain.lfm"/>
<WindowIndex Value="0"/>
<TopLine Value="217"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="10"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit26>
<Unit27>
<Filename Value="C:\devel\lazarus\lcl\lresources.pp"/>
<UnitName Value="LResources"/>
<WindowIndex Value="0"/>
<TopLine Value="3038"/>
<CursorPos X="3" Y="3040"/>
<UsageCount Value="12"/>
</Unit27>
<Unit28>
<Filename Value="C:\devel\lazarus\lcl\forms.pp"/>
<UnitName Value="Forms"/>
<WindowIndex Value="0"/>
<TopLine Value="1356"/>
<CursorPos X="15" Y="1369"/>
<UsageCount Value="10"/>
</Unit28>
<Unit29>
<Filename Value="C:\devel\fpc\source\rtl\objpas\sysutils\osutilsh.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="25"/>
<CursorPos X="10" Y="39"/>
<UsageCount Value="11"/>
</Unit29>
<Unit30>
<Filename Value="C:\devel\fpc\source\rtl\win\sysutils.pp"/>
<UnitName Value="sysutils"/>
<WindowIndex Value="0"/>
<TopLine Value="1089"/>
<CursorPos X="3" Y="1091"/>
<UsageCount Value="11"/>
</Unit30>
<Unit31>
<Filename Value="C:\devel\fpc\source\rtl\objpas\sysutils\osutil.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="67"/>
<CursorPos X="30" Y="84"/>
<UsageCount Value="11"/>
</Unit31>
<Unit32>
<Filename Value="C:\devel\fpc\source\packages\fcl-base\src\inifiles.pp"/>
<UnitName Value="IniFiles"/>
<WindowIndex Value="0"/>
<TopLine Value="608"/>
<CursorPos X="3" Y="612"/>
<UsageCount Value="11"/>
</Unit32>
</Units>
<JumpHistory Count="28" HistoryIndex="27">
<Position1>
<Filename Value="glazresmain.pp"/>
<Caret Line="423" Column="20" TopLine="409"/>
</Position1>
<Position2>
<Filename Value="glazresmain.pp"/>
<Caret Line="85" Column="34" TopLine="61"/>
</Position2>
<Position3>
<Filename Value="glazresmain.pp"/>
<Caret Line="319" Column="3" TopLine="283"/>
</Position3>
<Position4>
<Filename Value="glazresmain.pp"/>
<Caret Line="425" Column="20" TopLine="414"/>
</Position4>
<Position5>
<Filename Value="glazresmain.pp"/>
<Caret Line="75" Column="26" TopLine="52"/>
</Position5>
<Position6>
<Filename Value="glazresmain.pp"/>
<Caret Line="114" Column="72" TopLine="97"/>
</Position6>
<Position7>
<Filename Value="glazresmain.pp"/>
<Caret Line="449" Column="22" TopLine="442"/>
</Position7>
<Position8>
<Filename Value="glazresmain.pp"/>
<Caret Line="455" Column="1" TopLine="441"/>
</Position8>
<Position9>
<Filename Value="glazresmain.pp"/>
<Caret Line="341" Column="6" TopLine="330"/>
</Position9>
<Position10>
<Filename Value="glazresmain.pp"/>
<Caret Line="351" Column="14" TopLine="330"/>
</Position10>
<Position11>
<Filename Value="glazresmain.pp"/>
<Caret Line="379" Column="1" TopLine="378"/>
</Position11>
<Position12>
<Filename Value="glazresmain.pp"/>
<Caret Line="510" Column="16" TopLine="487"/>
</Position12>
<Position13>
<Filename Value="glazresmain.pp"/>
<Caret Line="160" Column="1" TopLine="132"/>
</Position13>
<Position14>
<Filename Value="glazresmain.pp"/>
<Caret Line="132" Column="14" TopLine="119"/>
</Position14>
<Position15>
<Filename Value="glazresmain.pp"/>
<Caret Line="536" Column="1" TopLine="521"/>
</Position15>
<Position16>
<Filename Value="glazresmain.pp"/>
<Caret Line="150" Column="1" TopLine="134"/>
</Position16>
<Position17>
<Filename Value="glazresmain.pp"/>
<Caret Line="525" Column="1" TopLine="525"/>
</Position17>
<Position18>
<Filename Value="glazresmain.pp"/>
<Caret Line="155" Column="1" TopLine="134"/>
</Position18>
<Position19>
<Filename Value="glazresmain.pp"/>
<Caret Line="535" Column="1" TopLine="516"/>
</Position19>
<Position20>
<Filename Value="glazresmain.pp"/>
<Caret Line="163" Column="6" TopLine="150"/>
</Position20>
<Position21>
<Filename Value="glazresmain.pp"/>
<Caret Line="474" Column="1" TopLine="474"/>
</Position21>
<Position22>
<Filename Value="glazresmain.pp"/>
<Caret Line="453" Column="1" TopLine="332"/>
</Position22>
<Position23>
<Filename Value="glazresmain.pp"/>
<Caret Line="356" Column="1" TopLine="342"/>
</Position23>
<Position24>
<Filename Value="glazresmain.pp"/>
<Caret Line="66" Column="51" TopLine="52"/>
</Position24>
<Position25>
<Filename Value="glazresmain.pp"/>
<Caret Line="188" Column="8" TopLine="160"/>
</Position25>
<Position26>
<Filename Value="glazresmain.pp"/>
<Caret Line="193" Column="3" TopLine="191"/>
</Position26>
<Position27>
<Filename Value="glazresmain.pp"/>
<Caret Line="500" Column="37" TopLine="497"/>
</Position27>
<Position28>
<Filename Value="glazresmain.pp"/>
<Caret Line="469" Column="34" TopLine="453"/>
</Position28>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
@ -477,12 +104,6 @@
<UseHeaptrc Value="True"/>
</Debugging>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
@ -497,5 +118,4 @@
</Item3>
</Exceptions>
</Debugging>
<EditorMacros Count="0"/>
</CONFIG>

18
tools/glazres/glazresmain.lfm
View File

@ -184,12 +184,12 @@ object GLazResForm: TGLazResForm
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
LCLVersion = '1.3'
LCLVersion = '1.5'
object LrsLabel: TLabel
Left = 16
Height = 15
Height = 17
Top = 14
Width = 174
Width = 154
Caption = 'Lazarus Resource Filename'
ParentColor = False
end
@ -258,16 +258,14 @@ object GLazResForm: TGLazResForm
ItemHeight = 0
MultiSelect = True
OnDrawItem = FileListBoxDrawItem
ScrollWidth = 572
Style = lbOwnerDrawFixed
TabOrder = 1
TopIndex = -1
end
object FilesLabel: TLabel
Left = 16
Height = 15
Height = 17
Top = 64
Width = 94
Width = 86
Caption = 'Files to include'
ParentColor = False
end
@ -373,7 +371,7 @@ object GLazResForm: TGLazResForm
end
object DestEdt: TFileNameEdit
Left = 16
Height = 21
Height = 31
Top = 32
Width = 552
OnAcceptFileName = DestEdtAcceptFileName
@ -392,9 +390,9 @@ object GLazResForm: TGLazResForm
end
object MessagesLabel: TLabel
Left = 16
Height = 15
Height = 17
Top = 304
Width = 64
Width = 56
Caption = 'Messages'
ParentColor = False
end

8
tools/glazres/glazresmain.pp
View File

@ -33,9 +33,10 @@ unit glazresmain;
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
LCLProc, LResources, Buttons, EditBtn, LazUtf8Classes, Types, LCLType,
ExtDlgs, IniFiles;
Classes, SysUtils, Types, IniFiles,
Forms, Controls, Graphics, Dialogs, StdCtrls, Buttons, ExtDlgs, EditBtn,
LResources, LCLProc, LCLType,
LazFileUtils, LazUTF8, LazUtf8Classes;
type
@ -70,7 +71,6 @@ type
procedure AddAnyBtnClick(Sender: TObject);
procedure StartBtnClick(Sender: TObject);
private
{ private declarations }
FIniFileName: String;
procedure CreateAnchors;
procedure ResizeControls({%H-}Dummy: PtrInt);

3
tools/iconvtable.pas
View File

@ -23,7 +23,8 @@ program iconvtable;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, Unix, LazUTF8, FileUtil, LazUTF8Classes;
Classes, SysUtils, Unix,
LazFileUtils, LazUTF8, LazUTF8Classes;
var
Table: array[0..255] of shortstring;

4
tools/iconvtable_dbcs.pas
View File

@ -25,8 +25,8 @@ uses
{$IFDEF Unix}
cthreads,
{$ENDIF}
Classes, SysUtils, Unix, LazUTF8, FileUtil, LazLogger, LazFileUtils, MTProcs,
LConvEncoding, LazUTF8Classes;
Classes, SysUtils, Unix, MTProcs,
LazFileUtils, LazUTF8, LazUTF8Classes, LazLogger, LConvEncoding;
var
FromEncoding: String;

8
tools/jsonviewer/frmmain.pp
View File

@ -25,8 +25,8 @@ unit frmmain;
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ActnList,
Menus, ComCtrls, IniPropStorage, fpJSON, JSONParser, PropertyStorage, DefaultTranslator;
Classes, SysUtils, fpJSON, JSONParser,
Forms, Controls, Dialogs, ActnList, Menus, ComCtrls, IniPropStorage, PropertyStorage;
type
@ -180,9 +180,8 @@ type
procedure SetCaption;
procedure ShowJSONData(AParent: TTreeNode; Data: TJSONData);
procedure ShowJSONDocument;
{ private declarations }
public
{ public declarations }
end;
var
@ -576,7 +575,6 @@ procedure TMainForm.AddNewValue(AType : TJSONType);
Var
D : TJSONData;
N : String;
I : Integer;
begin
Case AType of

5
tools/jsonviewer/frmnewboolean.pp
View File

@ -24,8 +24,7 @@ unit frmNewBoolean;
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel,
StdCtrls;
Forms, ButtonPanel, StdCtrls;
type
@ -44,9 +43,7 @@ type
procedure SetAllowName(const AValue: Boolean);
procedure SetMemberName(const AValue: String);
procedure SetValue(const AValue: Boolean);
{ private declarations }
public
{ public declarations }
Property AllowName: Boolean Read GetAllowName Write SetAllowName;
Property MemberName : String Read GetMemberName Write SetMemberName;
Property Value : Boolean Read GetValue Write SetValue;

5
tools/jsonviewer/frmnewinteger.pp
View File

@ -24,8 +24,7 @@ unit frmnewinteger;
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel,
StdCtrls, ExtCtrls, fpjson;
SysUtils, Forms, Controls, Dialogs, ButtonPanel, StdCtrls, ExtCtrls, fpjson;
type
@ -49,9 +48,7 @@ type
procedure SetAllowName(const AValue: Boolean);
procedure SetMemberName(const AValue: String);
procedure SetNumberType(const AValue: TJSONNumberType);
{ private declarations }
public
{ public declarations }
Property AllowName: Boolean Read GetAllowName Write SetAllowName;
Property MemberName : String Read GetMemberName Write SetMemberName;
Property NumberType : TJSONNumberType Read GetNumberType Write SetNumberType;

5
tools/jsonviewer/frmnewstring.pp
View File

@ -24,8 +24,7 @@ unit frmnewstring;
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ButtonPanel;
Forms, StdCtrls, ButtonPanel;
type
@ -45,9 +44,7 @@ type
procedure SetAllowName(const AValue: Boolean);
procedure SetMemberName(const AValue: String);
procedure SetValue(const AValue: String);
{ private declarations }
public
{ public declarations }
Property AllowName: Boolean Read GetAllowName Write SetAllowName;
Property MemberName : String Read GetMemberName Write SetMemberName;
Property Value : String Read GetValue Write SetValue;

3
tools/jsonviewer/msgjsonviewer.pp
View File

@ -4,9 +4,6 @@ unit msgjsonviewer;
interface
uses
Classes, SysUtils;
Resourcestring
SCaption = 'JSON Viewer';

5
tools/lazdatadesktop/dicteditor.pp
View File

@ -25,8 +25,9 @@ unit dicteditor;
interface
uses
Classes, SysUtils, FileUtil, fpdatadict, Controls, ComCtrls, StdCtrls,
ExtCtrls, Graphics, ImgList, RTTIGrids, LResources, menus, dialogs;
Classes, SysUtils, fpdatadict,
Controls, ComCtrls, ExtCtrls, Graphics, Menus, Dialogs, RTTIGrids,
LazUTF8;
Type
TEditObjectType = (eotUnknown,eotDictionary,

12
tools/lazdatadesktop/frmmain.pp
View File

@ -25,10 +25,10 @@ unit frmmain;
interface
uses
Classes, SysUtils, LResources, FileUtil, Forms, Controls, Graphics, Dialogs,
Menus, ActnList, StdActns, ComCtrls, dicteditor, fpdatadict, IniPropStorage,
conneditor, LCLType, RTTICtrls, ExtCtrls, {StdCtrls,} ddfiles, LCLProc,
Translations, lazdatadeskstr;
Classes, SysUtils, Forms, Controls, Dialogs, Menus, ActnList, StdActns,
ComCtrls, IniPropStorage, LCLType, ExtCtrls, LCLProc, Translations,
dicteditor, conneditor, ddfiles, fpdatadict, lazdatadeskstr,
FileUtil, LazFileUtils, LazUTF8;
type
TEngineMenuItem = Class(TMenuItem)
@ -226,9 +226,7 @@ type
procedure DoImport(Const EngineName : String);
procedure DoImport(Const EngineName,ConnectionString : String);
Procedure DoDDEProgress(Sender : TObject; Const Msg : String);
{ private declarations }
public
{ public declarations }
procedure OpenDataDict(DDF : TRecentDataDict);
procedure OpenFile(AFileName : String);
procedure RaiseEditor(DDE: TDataDictEditor);
@ -1610,7 +1608,7 @@ begin
LangID2 := '';
if Trim(LangId1) = '' then
begin
LCLGetLanguageIDs(LangID1,LangID2);
LazGetLanguageIDs(LangID1,LangID2);
if LangID2 = 'pt' then
begin
LangID1 := 'pb';

6
tools/lazres.pp
View File

@ -36,9 +36,9 @@ program LazRes;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, FileUtil, LazUTF8Classes, LCLProc, LResources,
resource, reswriter, bitmapresource, groupresource, groupiconresource,
groupcursorresource;
Classes, SysUtils, LCLProc, LResources, resource, reswriter,
bitmapresource, groupresource, groupiconresource, groupcursorresource,
LazFileUtils, LazUTF8, LazUTF8Classes;
type
TOutputFileType = (ftLrs, ftRc, ftRes);

4
tools/lplupdate.lpr
View File

@ -33,7 +33,9 @@ program lplupdate;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, CustApp, FileProcs, contnrs, Laz_XMLCfg;
Classes, SysUtils, CustApp, contnrs,
FileProcs,
LazFileUtils, LazUTF8, Laz_XMLCfg;
type

2
tools/lrstolfm.lpr
View File

@ -35,7 +35,7 @@ program lrstolfm;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, LResources, FileUtil;
Classes, SysUtils, LResources;
procedure FindResourceInLRS(List: TStrings; var ResourceName: string; var Index: Integer; out ResType: String);
const

5
tools/svn2revisioninc.pas
View File

@ -57,8 +57,9 @@ program Svn2RevisionInc;
{$mode objfpc}{$H+}
uses
Classes, CustApp, SysUtils, Process, UTF8Process, LazFileUtils, LazUTF8,
LazLogger, FileUtil, LazUTF8Classes, Dom, XmlRead, GetOpts;
Classes, CustApp, SysUtils, Process, Dom, XmlRead,
// LazUtils
FileUtil, LazFileUtils, LazUTF8, LazUTF8Classes, UTF8Process, LazLogger;
type

3
tools/updatemakefiles.lpr
View File

@ -33,8 +33,7 @@ program updatemakefiles;
{$mode objfpc}{$H+}
uses
Classes, sysutils, LazFileUtils, Laz2_XMLCfg, FileProcs, DefineTemplates,
UTF8Process;
Classes, sysutils, FileProcs, DefineTemplates, LazFileUtils, Laz2_XMLCfg;
var
LazarusDir: String;

2
tools/updatepofiles.pas
View File

@ -37,7 +37,7 @@ program UpdatePoFiles;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, FileUtil, Translations;
Classes, SysUtils, Translations, LazFileUtils, LazUTF8;
var
Files: TStringList;

5
tools/xpm_to_png/xpm_to_png.lpr
View File

@ -7,9 +7,8 @@ uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, SysUtils, Math, interfaces, LCLType, Graphics, GraphType, IntfGraphics,
InterfaceBase
{ you can add units after this };
Classes, SysUtils,
interfaces, LCLType, Graphics, GraphType, IntfGraphics, InterfaceBase;
// portions of this file has been copied from imglist.inc