jvcllaz: Fix a series of issues with Linux

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6318 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jvcllaz/run/JvCmp/JvSpellChecker.pas

@@ -79,7 +79,10 @@ uses
 const
   WordTableSize = 10007; {a prime}
   SoundexTableSize = 26 * 7 * 7 * 7; {the exact number of Soundexes}
-  cDelimiters: TSysCharSet = [#0..#32, '.', ',', '<', '>', '=', '!', '?', ':', ';', '"', '''', '(', ')', '[', ']', '{', '}', '+', '|'];
+  cDelimiters: TSysCharSet = [
+    #0..#32, '.', ',', '<', '>', '=', '!', '?', ':', ';', '"', '''',
+    '(', ')', '[', ']', '{', '}', '+', '|'
+  ];
 
 type
   TSoundex = string[4];
@@ -608,14 +611,5 @@ begin
   SpellChecker.UserDictionary := Value;
 end;
 
-{$IFDEF UNITVERSIONING}
-initialization
-  RegisterUnitVersion(HInstance, UnitVersioning);
-{$ENDIF UNITVERSIONING}
-
-{$IFDEF UNITVERSIONING}
-finalization
-  UnregisterUnitVersion(HInstance);
-{$ENDIF UNITVERSIONING}
 
 end.

components/jvcllaz/run/JvCmp/JvSpellerForm.pas

@@ -407,12 +407,5 @@ begin
   Result := (FWordEnd <= L);
 end;
 
-{$IFDEF UNITVERSIONING}
-initialization
-  RegisterUnitVersion(HInstance, UnitVersioning);
-
-finalization
-  UnregisterUnitVersion(HInstance);
-{$ENDIF UNITVERSIONING}
 
 end.

components/jvcllaz/run/JvCore/JvJCLUtils.pas

@@ -972,7 +972,8 @@ procedure SwitchToWindow(Wnd: THandle; Restore: Boolean);
 procedure ActivateWindow(Wnd: THandle);
 procedure ShowWinNoAnimate(Handle: THandle; CmdShow: Integer);
 ******************** NOT CONVERTED *)
-procedure KillMessage(Wnd: THandle; Msg: Cardinal);
+
+//procedure KillMessage(Wnd: THandle; Msg: Cardinal);
 
 (******************** NOT CONVERTED
 { SetWindowTop put window to top without recreating window }
@@ -8970,7 +8971,7 @@ begin
     SWP_NOSIZE or SWP_NOZORDER);
 end;
 ******************** NOT CONVERTED *)
-
+                                       (*
 { Delete the requested message from the queue, but throw back }
 { any WM_QUIT msgs that PeekMessage may also return.          }
 { Copied from DbGrid.pas                                      }
@@ -8978,14 +8979,14 @@ procedure KillMessage(Wnd: THandle; Msg: Cardinal);
 var
   M: TMsg;
 begin
-  M.Message := 0;
+  //M.Message := 0;
   {  wp ---- PostQuitMessage does not exist in Lazarus
 
   if PeekMessage(M, Wnd, Msg, Msg, PM_REMOVE) and (M.Message = LM_QUIT) then
     PostQuitMessage(M.WParam);
   }
 end;
-
+                                         *)
 (******************** NOT CONVERTED
 procedure SetWindowTop(const Handle: THandle; const Top: Boolean);
 const

components/jvcllaz/run/JvCustomControls/JvBaseThumbnail.pas

@@ -632,7 +632,9 @@ end;
 procedure TJvFileName.SetName(NewName: string);
 begin
   FFileName := NewName;
+  {$IFDEF WINDOWS}
   if (NewName <> LongName) and (NewName <> ShortName) then
+  {$ENDIF}
     Init;
 end;
 
@@ -646,6 +648,7 @@ begin
   begin
     FindClose(sr);
 
+    {$IFDEF WINDOWS}
     FLongName := sr.FindData.cFileName;
     FShortName := sr.FindData.cAlternateFileName;
     if FLongName = '' then
@@ -671,6 +674,7 @@ begin
     **************)
     FFileSize := (sr.FindData.nFileSizeHigh * MAXDWORD) + sr.FindData.nFileSizeLow;
     //FFileName:=NewName;
+    {$ENDIF}
   end;
 end;
 

components/jvcllaz/run/JvCustomControls/JvOutlookBar.pas

@@ -324,9 +324,11 @@ type
     procedure SetThemed(const Value: Boolean);
     procedure SetWordWrap(const Value: Boolean);
   protected
+    (*
     {$IF LCL_FullVersion >= 1090000}
     function DoEraseBackground(ACanvas: TCanvas; Param: LPARAM): Boolean; override;
     {$ENDIF}
+    *)
     procedure FontChanged; override;
     function GetButtonHeight(PageIndex, ButtonIndex: Integer): Integer;
     function GetButtonTopHeight(PageIndex, ButtonIndex: Integer): Integer;
@@ -2605,6 +2607,7 @@ begin
   Inc(Result, 4);
 end;
 
+(*
 {$IF LCL_FullVersion >= 1090000}
 function TJvCustomOutlookBar.DoEraseBackground(ACanvas: TCanvas; Param: LPARAM): Boolean;
 begin
@@ -2612,6 +2615,7 @@ begin
   Result := True;
 end;
 {$ENDIF}
+*)
 
 procedure TJvCustomOutlookBar.RedrawRect(R: TRect; Erase: Boolean = False);
 begin

components/jvcllaz/run/JvJans/JvJanLED.pas

@@ -1,4 +1,4 @@
-unit JvJanLed;
+unit JvJanLED;
 
 {$mode objfpc}{$H+}
 

components/jvcllaz/run/JvJans/JvSimScope.pas

@@ -198,6 +198,7 @@ type
 
     property Align;
     property Anchors;
+    property BorderSpacing;
     property ParentShowHint;
     property ShowHint;
     property Visible;

components/jvcllaz/run/JvJans/JvYearGrid.pas

@@ -258,6 +258,7 @@ type
     property DefaultColWidth: Integer read GetDefaultColWidth write SetDefaultColWidth  default 16;
     property DefaultRowHeight default 18; //: Integer read GetDefaultRowHeight write SetDefaultRowHeihgt default 18;
 
+    property BorderSpacing;
     property BorderStyle;
     property Flat read GetFlat write SetFlat default true;
     property ScrollBars;

components/jvcllaz/run/JvMM/JvId3v2Base.pas

@@ -27,7 +27,7 @@ Known Issues:
 -----------------------------------------------------------------------------}
 // $Id$
 
-unit JvID3v2Base;
+unit JvId3v2Base;
 
 {$mode objfpc}{$H+}