paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 02:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDataDesktop: removed DBNavigator hints localization workaround (should not be needed anymore since r25318 #3a6160cc39)

Browse Source 
git-svn-id: trunk@25319 -
This commit is contained in:
maxim 2010-05-11 22:44:34 +00:00
parent 3a6160cc39
commit ed32ccb113
2 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tools/lazdatadesktop/datapanel.pp
View File

@ -26,7 +26,7 @@ interface
uses uses
Graphics, Classes, SysUtils, Controls, ExtCtrls, StdCtrls, DB, dbgrids, dbCtrls, Graphics, Classes, SysUtils, Controls, ExtCtrls, StdCtrls, DB, dbgrids, dbCtrls,
buttons, fpdatadict, lclstrconsts; buttons, fpdatadict;
Type Type
@ -159,18 +159,6 @@ begin
FNavigator.Left:=4; FNavigator.Left:=4;
FNavigator.Height:=22; FNavigator.Height:=22;
FNavigator.DataSource:=FDatasource; FNavigator.DataSource:=FDatasource;
// Non translated in DBCTRLS.pas !!!!
FNavigator.Hints.Clear;
FNavigator.Hints.Add(rsFirstRecordHint);
FNavigator.Hints.Add(rsPriorRecordHint);
FNavigator.Hints.Add(rsNextRecordHint);
FNavigator.Hints.Add(rsLastRecordHint);
FNavigator.Hints.Add(rsInsertRecordHint);
FNavigator.Hints.Add(rsDeleteRecordHint);
FNavigator.Hints.Add(rsEditRecordHint);
FNavigator.Hints.Add(rsPostRecordHint);
FNavigator.Hints.Add(rsCancelRecordHint);
FNavigator.Hints.Add(rsRefreshRecordsHint);
// //
CheckButtons; CheckButtons;
FExportSB:=TSpeedButton.Create(Self); FExportSB:=TSpeedButton.Create(Self);

3
tools/lazdatadesktop/lazdatadesktop.lpi
View File

@ -16,6 +16,9 @@
<i18n> <i18n>
<OutDir Value="languages"/> <OutDir Value="languages"/>
</i18n> </i18n>
<VersionInfo>
<StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion="0.0.0.0"/>
</VersionInfo>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>