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

RxFPC - fix compile with new TEditButton from Lazarus 1.3. For old version uncomment in rx.inc DEFINE OLD_EDITBUTTON

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2936 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-04-09 17:33:24 +00:00
parent f32fa5b568
commit 45cdc9ae23
9 changed files with 115 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
components/rx/trunk/rxdbgrid.pas
View File

@ -620,6 +620,8 @@ type
procedure CollumnSortListClear;
procedure CollumnSortListApply;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
function DatalinkActive: boolean;
procedure AdjustEditorBounds(NewCol,NewRow:Integer); override;
procedure LinkActive(Value: Boolean); override;
@ -930,7 +932,11 @@ type
FGrid: TRxDBGrid;
FCol, FRow: integer;
protected
{$IFDEF OLD_EDITBUTTON}
procedure Change; override;
{$ELSE}
procedure EditChange; override;
{$ENDIF}
procedure KeyDown(var Key: word; Shift: TShiftState); override;
procedure WndProc(var TheMessage: TLMessage); override;
@ -1286,11 +1292,19 @@ end;
{ TRxDBGridDateEditor }
{$IFDEF OLD_EDITBUTTON}
procedure TRxDBGridDateEditor.Change;
{$ELSE}
procedure TRxDBGridDateEditor.EditChange;
{$ENDIF}
var
D:TDateTime;
begin
{$IFDEF OLD_EDITBUTTON}
inherited Change;
{$ELSE}
inherited EditChange;
{$ENDIF}
if Assigned(FGrid) and FGrid.DatalinkActive and not FGrid.EditorIsReadOnly then
begin
if not (FGrid.DataSource.DataSet.State in dsEditModes) then
@ -2597,6 +2611,15 @@ begin
FSortingNow:=false;
end;
procedure TRxDBGrid.Notification(AComponent: TComponent; Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if Assigned(Datalink) and (AComponent = DataSource) and (Operation = opRemove) then
begin
ShowMessage('i');
end;
end;
function TRxDBGrid.UpdateRowsHeight: integer;
var
i, J, H, H1, H2:integer;