You've already forked lazarus-ccr
RxDBGrid: fix compile with fpc 2.6
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2689 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -95,8 +95,7 @@ msgid "Control not found in validate %s."
|
||||
msgstr "Елемент управління не знайдений в валідаторі %s"
|
||||
|
||||
#: rxconst.sfilenotexec
|
||||
msgid ""
|
||||
"File specified is not an executable file, dynamic-link library, or icon file"
|
||||
msgid "File specified is not an executable file, dynamic-link library, or icon file"
|
||||
msgstr "Вказаний файл не виконуваний, не бібліотека і не іконка"
|
||||
|
||||
#: rxconst.sflatbuttons
|
||||
@ -234,3 +233,4 @@ msgstr "Набір віджетів WinCE"
|
||||
#: rxconst.swindowsicofiles
|
||||
msgid "Windows Ico files (*.ico)|*.ico|All files (*.*)|*.*"
|
||||
msgstr "Файли іконок Windows (*.ico)|*.ico|Всі файли (*.*)|*.*"
|
||||
|
||||
|
@ -437,3 +437,4 @@ msgstr "Введіть ваш пароль"
|
||||
#: rxdconst.susernamelabel
|
||||
msgid "&User name:"
|
||||
msgstr "&Ім'я користувача"
|
||||
|
||||
|
@ -31,7 +31,7 @@ Copyright (C) 2005-2010 Lagunov Aleksey alexs@hotbox.ru and Lazarus team
|
||||
|
||||
unit rxdbgrid_findunit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
{$I rx.inc}
|
||||
|
||||
interface
|
||||
|
||||
@ -133,7 +133,11 @@ begin
|
||||
LOptions:=LOptions+[loPartialKey];
|
||||
|
||||
SearchOrigin:=TRxSearchDirection(RadioGroup1.ItemIndex);
|
||||
{$IFDEF NoAutomatedBookmark}
|
||||
P:=FDataSet.GetBookmark;
|
||||
{$ELSE}
|
||||
P:=FDataSet.Bookmark;
|
||||
{$ENDIF}
|
||||
if SearchOrigin = rsdForward then
|
||||
FDataSet.Next
|
||||
else
|
||||
@ -141,8 +145,14 @@ begin
|
||||
FDataSet.Prior;
|
||||
R:=DataSetLocateThrough(FDataSet, FieldName, Edit1.Text, LOptions, SearchOrigin);
|
||||
finally
|
||||
{$IFDEF NoAutomatedBookmark}
|
||||
if not R then
|
||||
FDataSet.GotoBookmark(P);
|
||||
FDataSet.FreeBookmark(P);
|
||||
{$ELSE}
|
||||
if not R then
|
||||
FDataSet.Bookmark:=P;
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
Reference in New Issue
Block a user