paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 19:39:28 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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'; function UTF16ToUTF8(const S: UTF16String): AnsiString; inline; deprecated 'Use the function in LazUTF8 unit';
// locale // 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} {$ENDIF DisableWrapperFunctions}
// identifier // identifier

4
tools/apiwizz/apiwizard.pp
View File

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

4
tools/chmmaker/chmmaker.lpr
View File

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

6
tools/chmmaker/chmsitemapeditor.pas
View File

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

6
tools/chmmaker/unit1.pas
View File

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

8
tools/debugserver/frmmain.pp
View File

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

5
tools/debugserver/frmoptions.pp
View File

@ -24,8 +24,7 @@ unit frmOptions;
interface interface
uses uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, Forms, ButtonPanel, StdCtrls;
ButtonPanel, StdCtrls;
type type
@ -44,9 +43,7 @@ type
function GetB(AIndex: integer): Boolean; function GetB(AIndex: integer): Boolean;
function GetCB(AIndex: Integer): TCheckBox; function GetCB(AIndex: Integer): TCheckBox;
procedure SetB(AIndex: integer; const AValue: Boolean); procedure SetB(AIndex: integer; const AValue: Boolean);
{ private declarations }
public public
{ public declarations }
Property ShowOnStartup : Boolean Index 0 Read GetB Write SetB; Property ShowOnStartup : Boolean Index 0 Read GetB Write SetB;
Property ShowOnMessage : Boolean Index 1 Read GetB Write SetB; Property ShowOnMessage : Boolean Index 1 Read GetB Write SetB;
Property NewMessageAtBottom : Boolean Index 2 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> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="9"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<Title Value="glazres"/> <Title Value="glazres"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<Icon Value="0"/> <Icon Value="0"/>
<ActiveWindowIndexAtStart Value="0"/>
</General> </General>
<i18n> <i18n>
<EnableI18N LFM="False"/> <EnableI18N LFM="False"/>
@ -17,7 +17,7 @@
<VersionInfo> <VersionInfo>
<StringTable ProductVersion=""/> <StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="2" Active="Release"> <BuildModes Count="2">
<Item1 Name="Debug" Default="True"/> <Item1 Name="Debug" Default="True"/>
<Item2 Name="Release"> <Item2 Name="Release">
<CompilerOptions> <CompilerOptions>
@ -49,12 +49,6 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</Item2> </Item2>
</BuildModes> </BuildModes>
@ -73,15 +67,10 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="33"> <Units Count="2">
<Unit0> <Unit0>
<Filename Value="glazres.lpr"/> <Filename Value="glazres.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="glazres"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="39"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="glazresmain.pp"/> <Filename Value="glazresmain.pp"/>
@ -89,370 +78,8 @@
<ComponentName Value="GLazResForm"/> <ComponentName Value="GLazResForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <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> </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> </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> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="11"/> <Version Value="11"/>
@ -477,12 +104,6 @@
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
</Linking> </Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<Exceptions Count="3"> <Exceptions Count="3">
@ -497,5 +118,4 @@
</Item3> </Item3>
</Exceptions> </Exceptions>
</Debugging> </Debugging>
<EditorMacros Count="0"/>
</CONFIG> </CONFIG>

18
tools/glazres/glazresmain.lfm
View File

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

8
tools/glazres/glazresmain.pp
View File

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

3
tools/iconvtable.pas
View File

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

4
tools/iconvtable_dbcs.pas
View File

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

8
tools/jsonviewer/frmmain.pp
View File

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

5
tools/jsonviewer/frmnewboolean.pp
View File

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

5
tools/jsonviewer/frmnewinteger.pp
View File

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

5
tools/jsonviewer/frmnewstring.pp
View File

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

3
tools/jsonviewer/msgjsonviewer.pp
View File

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

5
tools/lazdatadesktop/dicteditor.pp
View File

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

12
tools/lazdatadesktop/frmmain.pp
View File

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

6
tools/lazres.pp
View File

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

4
tools/lplupdate.lpr
View File

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

2
tools/lrstolfm.lpr
View File

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

5
tools/svn2revisioninc.pas
View File

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

3
tools/updatemakefiles.lpr
View File

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

2
tools/updatepofiles.pas
View File

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

5
tools/xpm_to_png/xpm_to_png.lpr
View File

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