Diff of /uCommonUtils.pas [r189] .. [r190] Maximize Restore

  Switch to side-by-side view

--- a/uCommonUtils.pas
+++ b/uCommonUtils.pas
@@ -77,8 +77,6 @@
 procedure GetFileList(const Directory : string; const Pattern : string; List : TStringlist);
 procedure GetSubDirectories(const Directory : string; List : TStringlist);
 procedure OSSleep(const ms : Cardinal);
-function GetTick : Cardinal;
-function GetWindowTitleBarHeight : integer;
 procedure PostWindowMessage(aHwnd : HWND; aMsg : Cardinal; wParam, lParam : Integer);
 function MulDiv(const x, num, den : integer) : integer;
 
@@ -87,8 +85,6 @@
 uses
 {$IFNDEF FPC}
   Windows,
-{$ELSE}
-  LCLIntf,
 {$ENDIF}
   SysUtils;
 
@@ -249,24 +245,6 @@
 // not sure what to do here yet
 {$ELSE}
   Windows.Sleep(ms);
-{$ENDIF}
-end;
-
-function GetTick : Cardinal;
-begin
-{$IFDEF FPC}
-  Result := GetTickCount;
-{$ELSE}
-  Result := GetTickCount;
-{$ENDIF}
-end;
-
-function GetWindowTitleBarHeight : integer;
-begin
-{$IFDEF FPC}
-  Result := 16
-{$ELSE}
-  Result := GetSystemMetrics(SM_CYCAPTION);
 {$ENDIF}
 end;