Index: files/patch-addtorrent.pas =================================================================== --- files/patch-addtorrent.pas (nonexistent) +++ files/patch-addtorrent.pas (working copy) @@ -0,0 +1,11 @@ +--- addtorrent.pas.orig 2018-02-08 05:35:22 UTC ++++ addtorrent.pas +@@ -156,7 +156,7 @@ const + + implementation + +-uses lclintf, lcltype, main, variants, Utils, rpc, lclproc; ++uses lclintf, lcltype, main, variants, Utils, rpc, lclproc, LazUtf8; + + const + roChecked = $030000; Property changes on: files/patch-addtorrent.pas ___________________________________________________________________ Added: fbsd:nokeywords ## -0,0 +1 ## +yes \ No newline at end of property Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:mime-type ## -0,0 +1 ## +text/plain \ No newline at end of property Index: files/patch-baseform.lfm =================================================================== --- files/patch-baseform.lfm (nonexistent) +++ files/patch-baseform.lfm (working copy) @@ -0,0 +1,17 @@ +--- baseform.lfm.orig 2018-02-08 05:16:25 UTC ++++ baseform.lfm +@@ -1,7 +1,7 @@ +-object BaseForm: TBaseForm +- Left = 234 +- Height = 240 +- Top = 132 +- Width = 320 +- LCLVersion = '1.0.15.0' +-end ++object BaseForm: TBaseForm ++ Left = 234 ++ Height = 240 ++ Top = 132 ++ Width = 320 ++ LCLVersion = '1.4.5.0' ++end Property changes on: files/patch-baseform.lfm ___________________________________________________________________ Added: fbsd:nokeywords ## -0,0 +1 ## +yes \ No newline at end of property Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:mime-type ## -0,0 +1 ## +text/plain \ No newline at end of property Index: files/patch-baseform.pas =================================================================== --- files/patch-baseform.pas (nonexistent) +++ files/patch-baseform.pas (working copy) @@ -0,0 +1,66 @@ +--- baseform.pas.orig 2018-02-08 06:43:04 UTC ++++ baseform.pas +@@ -52,11 +52,11 @@ implementation + uses LCLType, ButtonPanel, VarGrid, ComCtrls, StdCtrls, ExtCtrls, lclversion; + + var +- ScaleM, ScaleD: integer; ++ ScaleMul, ScaleDiv: integer; + + function ScaleInt(i: integer): integer; + begin +- Result:=i*ScaleM div ScaleD; ++ Result:=i*ScaleMul div ScaleDiv; + end; + + type THackControl = class(TWinControl) end; +@@ -117,8 +117,8 @@ begin + if C is TWinControl then + TWinControl(C).DisableAlign; + try +- if ScaleM <> ScaleD then begin +- ScaleConstraints(ScaleM, ScaleD); ++ if ScaleMul <> ScaleDiv then begin ++ ScaleConstraints(ScaleMul, ScaleDiv); + R := BaseBounds; + R.Left := ScaleInt(R.Left); + R.Top := ScaleInt(R.Top); +@@ -237,26 +237,26 @@ var + i: integer; + tm: TLCLTextMetric; + begin +- if ScaleD <> 0 then exit; +- ScaleD:=11; ++ if ScaleDiv <> 0 then exit; ++ ScaleDiv:=11; + i:=Screen.SystemFont.Height; + if i = 0 then begin + if Canvas.GetTextMetrics(tm) then begin +- ScaleM:=tm.Ascender; +- if ScaleM < 11 then +- ScaleM:=11; ++ ScaleMul:=tm.Ascender; ++ if ScaleMul < 11 then ++ ScaleMul:=11; + end + else begin +- ScaleM:=Canvas.TextHeight('Wy'); +- ScaleD:=13; ++ ScaleMul:=Canvas.TextHeight('Wy'); ++ ScaleDiv:=13; + end; +- if ScaleM = 0 then +- ScaleM:=ScaleD; ++ if ScaleMul = 0 then ++ ScaleMul:=ScaleDiv; + end + else +- ScaleM:=Abs(i); +- ScaleM:=ScaleM*IntfScale; +- ScaleD:=ScaleD*100; ++ ScaleMul:=Abs(i); ++ ScaleMul:=ScaleMul*IntfScale; ++ ScaleDiv:=ScaleDiv*100; + end; + + initialization Property changes on: files/patch-baseform.pas ___________________________________________________________________ Added: fbsd:nokeywords ## -0,0 +1 ## +yes \ No newline at end of property Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:mime-type ## -0,0 +1 ## +text/plain \ No newline at end of property Index: files/patch-connoptions.lfm =================================================================== --- files/patch-connoptions.lfm (nonexistent) +++ files/patch-connoptions.lfm (working copy) @@ -0,0 +1,68 @@ +--- connoptions.lfm.orig 2018-02-08 06:59:29 UTC ++++ connoptions.lfm +@@ -33,33 +33,33 @@ inherited ConnOptionsForm: TConnOptionsF + ClientWidth = 505 + object txPassword: TLabel + Left = 24 +- Height = 14 ++ Height = 13 + Top = 157 +- Width = 51 ++ Width = 50 + Caption = 'Password:' + ParentColor = False + end + object txUserName: TLabel + Left = 24 +- Height = 14 ++ Height = 13 + Top = 128 +- Width = 56 ++ Width = 55 + Caption = 'User name:' + ParentColor = False + end + object txPort: TLabel + Left = 8 +- Height = 14 ++ Height = 13 + Top = 76 +- Width = 25 ++ Width = 24 + Caption = 'Port:' + ParentColor = False + end + object txHost: TLabel + Left = 8 +- Height = 14 ++ Height = 13 + Top = 48 +- Width = 66 ++ Width = 65 + Caption = 'Remote host:' + ParentColor = False + end +@@ -137,9 +137,9 @@ inherited ConnOptionsForm: TConnOptionsF + end + object txRpcPath: TLabel + Left = 8 +- Height = 14 ++ Height = 13 + Top = 212 +- Width = 50 ++ Width = 49 + Caption = 'RPC path:' + ParentColor = False + end +@@ -374,9 +374,9 @@ inherited ConnOptionsForm: TConnOptionsF + TabOrder = 0 + object txConName: TLabel + Left = 0 +- Height = 14 ++ Height = 13 + Top = 4 +- Width = 88 ++ Width = 87 + Caption = 'Connection name:' + ParentColor = False + end Property changes on: files/patch-connoptions.lfm ___________________________________________________________________ Added: fbsd:nokeywords ## -0,0 +1 ## +yes \ No newline at end of property Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:mime-type ## -0,0 +1 ## +text/plain \ No newline at end of property Index: files/patch-daemonoptions.pas =================================================================== --- files/patch-daemonoptions.pas (nonexistent) +++ files/patch-daemonoptions.pas (working copy) @@ -0,0 +1,11 @@ +--- daemonoptions.pas.orig 2018-02-08 05:37:10 UTC ++++ daemonoptions.pas +@@ -124,7 +124,7 @@ type + + implementation + +-uses main, utils, fpjson; ++uses main, utils, fpjson, LazUtf8; + + { TDaemonOptionsForm } + Property changes on: files/patch-daemonoptions.pas ___________________________________________________________________ Added: fbsd:nokeywords ## -0,0 +1 ## +yes \ No newline at end of property Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:mime-type ## -0,0 +1 ## +text/plain \ No newline at end of property Index: files/patch-main.pas =================================================================== --- files/patch-main.pas (nonexistent) +++ files/patch-main.pas (working copy) @@ -0,0 +1,11 @@ +--- main.pas.orig 2018-02-08 05:39:04 UTC ++++ main.pas +@@ -786,7 +786,7 @@ uses + {$endif darwin} + synacode, ConnOptions, clipbrd, DateUtils, TorrProps, DaemonOptions, About, + ToolWin, download, ColSetup, types, AddLink, MoveTorrent, ssl_openssl_lib, AddTracker, lcltype, +- Options, ButtonPanel, BEncode, synautil; ++ Options, ButtonPanel, BEncode, synautil, LazFileUtils, LazUtf8; + + const + TR_STATUS_CHECK_WAIT_1 = ( 1 shl 0 ); // Waiting in queue to check files Property changes on: files/patch-main.pas ___________________________________________________________________ Added: fbsd:nokeywords ## -0,0 +1 ## +yes \ No newline at end of property Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:mime-type ## -0,0 +1 ## +text/plain \ No newline at end of property Index: files/patch-options.lfm =================================================================== --- files/patch-options.lfm (nonexistent) +++ files/patch-options.lfm (working copy) @@ -0,0 +1,43 @@ +--- options.lfm.orig 2018-02-08 07:03:23 UTC ++++ options.lfm +@@ -74,7 +74,7 @@ inherited OptionsForm: TOptionsForm + TabOrder = 0 + object txSeconds: TLabel + Left = 438 +- Height = 14 ++ Height = 13 + Top = 6 + Width = 40 + Anchors = [akTop, akRight] +@@ -83,25 +83,25 @@ inherited OptionsForm: TOptionsForm + end + object txRefreshInterval: TLabel + Left = 10 +- Height = 14 ++ Height = 13 + Top = 5 +- Width = 105 ++ Width = 104 + Caption = 'Data refresh interval:' + ParentColor = False + end + object txRefreshIntervalMin: TLabel + Left = 10 +- Height = 14 ++ Height = 13 + Top = 33 +- Width = 182 ++ Width = 181 + Caption = 'Data refresh interval when minimized:' + ParentColor = False + end + object txSeconds2: TLabel + Left = 438 +- Height = 14 ++ Height = 13 + Top = 34 +- Width = 40 ++ Width = 39 + Anchors = [akTop, akRight] + Caption = 'seconds' + ParentColor = False Property changes on: files/patch-options.lfm ___________________________________________________________________ Added: fbsd:nokeywords ## -0,0 +1 ## +yes \ No newline at end of property Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:mime-type ## -0,0 +1 ## +text/plain \ No newline at end of property Index: files/patch-restranslator.pas =================================================================== --- files/patch-restranslator.pas (nonexistent) +++ files/patch-restranslator.pas (working copy) @@ -0,0 +1,38 @@ +--- restranslator.pas.orig 2018-02-08 05:44:33 UTC ++++ restranslator.pas +@@ -12,7 +12,7 @@ unit ResTranslator; + interface + + uses +- Classes, StrUtils, SysUtils, FileUtil, LResources, TypInfo, LCLProc; ++ Classes, StrUtils, SysUtils, FileUtil, LazFileUtils, LResources, TypInfo, LCLProc; + + type + +@@ -106,7 +106,7 @@ const + implementation + + uses +- Forms, utils; ++ Forms, utils, LazUtf8; + + const + LineSeparator = '###################'; +@@ -240,7 +240,7 @@ procedure MakeTranslationFile(Language: + var + lLang, sLang, s: string; + begin +- LCLGetLanguageIDs(lLang, sLang); ++ LazGetLanguageIDs(lLang, sLang); + sLang:=AnsiLowerCase(sLang); + s:=ExtractFileNameOnly(ParamStrUtf8(0)); + if (sLang <> '') and not FileExistsUTF8(DefaultLangDir + s + '.' + sLang) then +@@ -332,7 +332,7 @@ var + lLang, sLang, s: string; + i: integer; + begin +- LCLGetLanguageIDs(lLang, sLang); ++ LazGetLanguageIDs(lLang, sLang); + lLang:=LowerCase(lLang); + sLang:=LowerCase(sLang); + {$ifdef windows} Property changes on: files/patch-restranslator.pas ___________________________________________________________________ Added: fbsd:nokeywords ## -0,0 +1 ## +yes \ No newline at end of property Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:mime-type ## -0,0 +1 ## +text/plain \ No newline at end of property Index: files/patch-transgui.lpi =================================================================== --- files/patch-transgui.lpi (nonexistent) +++ files/patch-transgui.lpi (working copy) @@ -0,0 +1,11 @@ +--- transgui.lpi.orig 2018-02-08 05:42:55 UTC ++++ transgui.lpi +@@ -1,7 +1,7 @@ + + + +- ++ + + + Property changes on: files/patch-transgui.lpi ___________________________________________________________________ Added: fbsd:nokeywords ## -0,0 +1 ## +yes \ No newline at end of property Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:mime-type ## -0,0 +1 ## +text/plain \ No newline at end of property Index: files/patch-utils.pas =================================================================== --- files/patch-utils.pas (nonexistent) +++ files/patch-utils.pas (working copy) @@ -0,0 +1,30 @@ +--- utils.pas.orig 2018-02-08 05:29:54 UTC ++++ utils.pas +@@ -100,8 +100,7 @@ uses + {$ifdef CALLSTACK} + lineinfo2, + {$endif CALLSTACK} +- FileUtil, StdCtrls, Graphics; +- ++ LazFileUtils, LazUtf8, StdCtrls, Graphics, fileutil; + {$ifdef windows} + function FileOpenUTF8(Const FileName : string; Mode : Integer) : THandle; + const +@@ -170,7 +169,7 @@ var + s: widestring; + begin + if Win32Platform <> VER_PLATFORM_WIN32_NT then begin +- Result:=FileUtil.ParamStrUTF8(Param); ++ Result:=LazUtf8.ParamStrUTF8(Param); + exit; + end; + +@@ -235,7 +234,7 @@ end; + + function ParamStrUTF8(Param: Integer): utf8string; + begin +- Result:=FileUtil.ParamStrUTF8(Param); ++ Result:=LazUtf8.ParamStrUTF8(Param); + end; + + function ParamCount: integer; Property changes on: files/patch-utils.pas ___________________________________________________________________ Added: fbsd:nokeywords ## -0,0 +1 ## +yes \ No newline at end of property Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:mime-type ## -0,0 +1 ## +text/plain \ No newline at end of property Index: files/patch-vargrid.pas =================================================================== --- files/patch-vargrid.pas (nonexistent) +++ files/patch-vargrid.pas (working copy) @@ -0,0 +1,11 @@ +--- vargrid.pas.orig 2018-02-08 06:40:58 UTC ++++ vargrid.pas +@@ -237,7 +237,7 @@ procedure Register; + + implementation + +-uses Variants, Math, GraphType, lclintf, Themes, types, lclproc ++uses Variants, Math, GraphType, lclintf, Themes, types, lclproc, LazUtf8 + {$ifdef LCLcarbon} , carbonproc {$endif LCLcarbon}; + + const Property changes on: files/patch-vargrid.pas ___________________________________________________________________ Added: fbsd:nokeywords ## -0,0 +1 ## +yes \ No newline at end of property Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:mime-type ## -0,0 +1 ## +text/plain \ No newline at end of property