pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxDBGrid: fix compile with fpc 2.6

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2689 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2013-02-17 14:31:05 +00:00
parent 9c62e32f73
commit 439d68c14f
3 changed files with 14 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/languages/rxconst.uk.po
View File

@ -95,8 +95,7 @@ msgid "Control not found in validate %s."
msgstr "Елемент управління не знайдений в валідаторі %s" msgstr "Елемент управління не знайдений в валідаторі %s"
#: rxconst.sfilenotexec #: rxconst.sfilenotexec
msgid "" msgid "File specified is not an executable file, dynamic-link library, or icon file"
"File specified is not an executable file, dynamic-link library, or icon file"
msgstr "Вказаний файл не виконуваний, не бібліотека і не іконка" msgstr "Вказаний файл не виконуваний, не бібліотека і не іконка"
#: rxconst.sflatbuttons #: rxconst.sflatbuttons
@ -234,3 +233,4 @@ msgstr "Набір віджетів WinCE"
#: rxconst.swindowsicofiles #: rxconst.swindowsicofiles
msgid "Windows Ico files (*.ico)|*.ico|All files (*.*)|*.*" msgid "Windows Ico files (*.ico)|*.ico|All files (*.*)|*.*"
msgstr "Файли іконок Windows (*.ico)|*.ico|Всі файли (*.*)|*.*" msgstr "Файли іконок Windows (*.ico)|*.ico|Всі файли (*.*)|*.*"

1
components/rx/languages/rxdconst.uk.po
View File

@ -437,3 +437,4 @@ msgstr "Введіть ваш пароль"
#: rxdconst.susernamelabel #: rxdconst.susernamelabel
msgid "&User name:" msgid "&User name:"
msgstr "&Ім'я користувача" msgstr "&Ім'я користувача"

12
components/rx/rxdbgrid_findunit.pas
View File

@ -31,7 +31,7 @@ Copyright (C) 2005-2010 Lagunov Aleksey alexs@hotbox.ru and Lazarus team
unit rxdbgrid_findunit; unit rxdbgrid_findunit;
{$mode objfpc}{$H+} {$I rx.inc}
interface interface
@ -133,7 +133,11 @@ begin
LOptions:=LOptions+[loPartialKey]; LOptions:=LOptions+[loPartialKey];
SearchOrigin:=TRxSearchDirection(RadioGroup1.ItemIndex); SearchOrigin:=TRxSearchDirection(RadioGroup1.ItemIndex);
{$IFDEF NoAutomatedBookmark}
P:=FDataSet.GetBookmark;
{$ELSE}
P:=FDataSet.Bookmark; P:=FDataSet.Bookmark;
{$ENDIF}
if SearchOrigin = rsdForward then if SearchOrigin = rsdForward then
FDataSet.Next FDataSet.Next
else else
@ -141,8 +145,14 @@ begin
FDataSet.Prior; FDataSet.Prior;
R:=DataSetLocateThrough(FDataSet, FieldName, Edit1.Text, LOptions, SearchOrigin); R:=DataSetLocateThrough(FDataSet, FieldName, Edit1.Text, LOptions, SearchOrigin);
finally finally
{$IFDEF NoAutomatedBookmark}
if not R then
FDataSet.GotoBookmark(P);
FDataSet.FreeBookmark(P);
{$ELSE}
if not R then if not R then
FDataSet.Bookmark:=P; FDataSet.Bookmark:=P;
{$ENDIF}
end; end;
end; end;
end; end;