fixed copyword in tab line

git-svn-id: trunk@6736 -

components/synedit/synedit.pp

@@ -7970,7 +7970,11 @@ end;
 
 procedure TCustomSynEdit.SetSelWord;
 begin
+  {$IFDEF SYN_LAZARUS}
+  SetWordBlock(PhysicalToLogicalPos(CaretXY));
+  {$ELSE}
   SetWordBlock(CaretXY);
+  {$ENDIF}
 end;
 
 procedure TCustomSynEdit.SetExtraLineSpacing(const Value: integer);

ide/editoroptions.pp

@@ -222,16 +222,15 @@ type
       var FG, BG: TColor);
   published
     // general options
-    property SynEditOptions:TSynEditorOptions
-        read fSynEditOptions write fSynEditOptions
-        default SynEditDefaultOptions;
+    property SynEditOptions:TSynEditorOptions read fSynEditOptions
+                            write fSynEditOptions default SynEditDefaultOptions;
     property CtrlMouseLinks: boolean read fCtrlMouseLinks write fCtrlMouseLinks;
-    property ShowTabCloseButtons: boolean
-        read fShowTabCloseButtons write fShowTabCloseButtons;
-    property UndoAfterSave:boolean
-        read fUndoAfterSave write fUndoAfterSave default true;
-    property FindTextAtCursor:boolean
-        read fFindTextAtCursor write fFindTextAtCursor default true;
+    property ShowTabCloseButtons: boolean read fShowTabCloseButtons
+                                          write fShowTabCloseButtons;
+    property UndoAfterSave: boolean read fUndoAfterSave
+                                    write fUndoAfterSave default true;
+    property FindTextAtCursor: boolean read fFindTextAtCursor
+                                       write fFindTextAtCursor default true;
     property UseSyntaxHighlight:boolean
                 read fUseSyntaxHighlight write fUseSyntaxHighlight default true;
     property CopyWordAtCursorOnCopyNone: boolean read FCopyWordAtCursorOnCopyNone

packager/packagedefs.pas

@@ -655,7 +655,7 @@ type
     function GetFileDialogInitialDir(const DefaultDirectory: string): string;
     procedure MoveFile(CurIndex, NewIndex: integer);
     procedure SortFiles;
-    procedure FixFilesCaseSensitivity;
+    function FixFilesCaseSensitivity: boolean;
     // required dependencies (plus removed required dependencies)
     function FindDependencyByName(const PkgName: string): TPkgDependency;
     function RequiredDepByIndex(Index: integer): TPkgDependency;
@@ -2631,7 +2631,7 @@ begin
   end;
 end;
 
-procedure TLazPackage.FixFilesCaseSensitivity;
+function TLazPackage.FixFilesCaseSensitivity: boolean;
 var
   SrcDirs: TStringList;
   
@@ -2647,7 +2647,7 @@ var
     if OnlyExact then exit;
     // then search for case insensitive match
     Result:=List.Count-1;
-    while (Result>=0) and (AnsiCompareText(Filename,List[Result])<>0) do
+    while (Result>=0) and (CompareText(Filename,List[Result])<>0) do
       dec(Result);
   end;
 
@@ -2691,6 +2691,7 @@ var
   NewFilename: String;
   CurDir: String;
 begin
+  Result:=false;
   Cnt:=FileCount;
   SrcDirs:=nil;
   try
@@ -2711,6 +2712,7 @@ begin
             AppendPathDelim(ExtractFilePath(CurFile.Filename))+NewShortFilename;
         //debugln('TLazPackage.FixFilesCaseSensitivity New ',dbgs(i),' NewFilename=',NewFilename);
         CurFile.Filename:=NewFilename;
+        Result:=true;
       end;
     end;
   finally

packager/packageeditor.pas

@@ -1888,8 +1888,10 @@ end;
 
 procedure TPackageEditorForm.DoFixFilesCase;
 begin
-  LazPackage.FixFilesCaseSensitivity;
+  if LazPackage.FixFilesCaseSensitivity then
+    LazPackage.Modified:=true;
   UpdateFiles;
+  UpdateButtons;
 end;
 
 constructor TPackageEditorForm.Create(TheOwner: TComponent);