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

1. Fix compile RxDBGrid on Lazarus 1.0

Browse Source 
2. Fix Replace AnsiUpperCase to UTF8UpperCase in FolderList
3. Fix OnChange event in TRxDBLockup on destroy component


git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2763 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2013-07-11 16:28:38 +00:00
parent 491d1802c7
commit ab407ba4e7
3 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/rx/rxdbgrid.pas
View File

@ -29,18 +29,21 @@
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
}
{$I rx.inc}
unit rxdbgrid;
{$I rx.inc}
interface
uses
Classes, SysUtils, LResources, LCLType, LCLIntf, Forms, Controls, Buttons,
Classes, SysUtils, LResources, LCLVersion, LCLType, LCLIntf, Forms, Controls, Buttons,
Graphics, Dialogs, Grids, dbutils, DBGrids, DB, PropertyStorage, vclutils,
LMessages, types, StdCtrls, Menus;
{$if ((lcl_major = 1) and (lcl_minor = 1))}
{$DEFINE RX_USE_LCL_DEVEL}
{$ENDIF}
const
CBadQuickSearchSymbols = [VK_UNKNOWN..VK_HELP] + [VK_LWIN..VK_SLEEP] +
[VK_NUMLOCK..VK_SCROLL] + [VK_LSHIFT..VK_OEM_102] + [VK_PROCESSKEY] +
@ -617,7 +620,9 @@ type
procedure UpdateActive; override;
procedure UpdateData; override;
procedure MoveSelection; override;
{$IFDEF RX_USE_LCL_DEVEL}
function GetBufferCount: integer; override;
{$ENDIF}
procedure CMHintShow(var Message: TLMessage); message CM_HINTSHOW;
procedure FFilterListEditorOnChange(Sender: TObject);
procedure FFilterListEditorOnCloseUp(Sender: TObject);
@ -3623,6 +3628,7 @@ begin
// UpdateRowsHeight;
end;
{$IFDEF RX_USE_LCL_DEVEL}
function TRxDBGrid.GetBufferCount: integer;
var
H:integer;
@ -3641,6 +3647,7 @@ begin
if FFooterOptions.Active then
Dec(Result, FFooterOptions.RowCount);
end;
{$ENDIF}
procedure TRxDBGrid.CMHintShow(var Message: TLMessage);
var