paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

RxFPC: implement message CM_GETDATALINK for some database controls. tnx Michal Gawrycki

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5382 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75 2016-11-25 05:29:00 +00:00
parent dc6a39b53b
commit 6f72dd9582
4 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/rx/trunk/rxdbcomb.pas
View File

@ -59,6 +59,7 @@ type
procedure UpdateData(Sender: TObject); procedure UpdateData(Sender: TObject);
function GetComboText: string; virtual; function GetComboText: string; virtual;
procedure SetComboText(const Value: string); virtual; procedure SetComboText(const Value: string); virtual;
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected protected
procedure EditingDone; override; procedure EditingDone; override;
procedure Change; override; procedure Change; override;
@ -257,6 +258,11 @@ begin
end; end;
end; end;
procedure TCustomDBComboBox.CMGetDataLink(var Message: TLMessage);
begin
Message.Result := PtrUInt(FDataLink);
end;
function TCustomDBComboBox.GetComboText: string; function TCustomDBComboBox.GetComboText: string;
var var
I: Integer; I: Integer;

6
components/rx/trunk/rxdbcurredit.pas
View File

@ -55,6 +55,7 @@ type
procedure SetDataField(const AValue: string); procedure SetDataField(const AValue: string);
procedure SetDataSource(const AValue: TDataSource); procedure SetDataSource(const AValue: TDataSource);
procedure SetReadOnly(const AValue: Boolean); procedure SetReadOnly(const AValue: Boolean);
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected protected
procedure ActiveChange(Sender:TObject); procedure ActiveChange(Sender:TObject);
procedure DataChange(Sender:TObject); procedure DataChange(Sender:TObject);
@ -122,6 +123,11 @@ begin
FDataLink.ReadOnly:=AValue; FDataLink.ReadOnly:=AValue;
end; end;
procedure TRxDBCurrEdit.CMGetDataLink(var Message: TLMessage);
begin
Message.Result := PtrUInt(FDataLink);
end;
procedure TRxDBCurrEdit.ActiveChange(Sender: TObject); procedure TRxDBCurrEdit.ActiveChange(Sender: TObject);
begin begin
DoCheckEnable; DoCheckEnable;

12
components/rx/trunk/rxdbdateedit.pas
View File

@ -53,6 +53,7 @@ type
procedure SetDataField(const AValue: string); procedure SetDataField(const AValue: string);
procedure SetDataSource(const AValue: TDataSource); procedure SetDataSource(const AValue: TDataSource);
procedure SetReadOnly(const AValue: Boolean); procedure SetReadOnly(const AValue: Boolean);
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected protected
procedure ActiveChange(Sender:TObject); procedure ActiveChange(Sender:TObject);
procedure DataChange(Sender:TObject); procedure DataChange(Sender:TObject);
@ -91,6 +92,7 @@ type
procedure SetDataField(const AValue: string); procedure SetDataField(const AValue: string);
procedure SetDataSource(const AValue: TDataSource); procedure SetDataSource(const AValue: TDataSource);
procedure SetReadOnly(const AValue: Boolean); procedure SetReadOnly(const AValue: Boolean);
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected protected
procedure ActiveChange(Sender:TObject); procedure ActiveChange(Sender:TObject);
procedure DataChange(Sender:TObject); procedure DataChange(Sender:TObject);
@ -159,6 +161,11 @@ begin
FDataLink.ReadOnly:=AValue; FDataLink.ReadOnly:=AValue;
end; end;
procedure TRxDBDateEdit.CMGetDataLink(var Message: TLMessage);
begin
Message.Result := PtrUInt(FDataLink);
end;
procedure TRxDBDateEdit.CMExit(var Message: TLMessage); procedure TRxDBDateEdit.CMExit(var Message: TLMessage);
begin begin
try try
@ -344,6 +351,11 @@ begin
FDataLink.ReadOnly:=AValue; FDataLink.ReadOnly:=AValue;
end; end;
procedure TRxDBCalcEdit.CMGetDataLink(var Message: TLMessage);
begin
Message.Result := PtrUInt(FDataLink);
end;
procedure TRxDBCalcEdit.ActiveChange(Sender: TObject); procedure TRxDBCalcEdit.ActiveChange(Sender: TObject);
begin begin
DoCheckEnable; DoCheckEnable;

6
components/rx/trunk/rxlookup.pas
View File

@ -229,6 +229,7 @@ type
procedure WMSetFocus(var Message: TLMSetFocus); message LM_SETFOCUS; procedure WMSetFocus(var Message: TLMSetFocus); message LM_SETFOCUS;
procedure WMKillFocus(var Message: TLMKillFocus); message LM_KILLFOCUS; procedure WMKillFocus(var Message: TLMKillFocus); message LM_KILLFOCUS;
procedure CMExit(var Message:TLMessage); message CM_EXIT; procedure CMExit(var Message:TLMessage); message CM_EXIT;
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
procedure PaintDisplayValues(ACanvas: TCanvas; R: TRect; ALeft: Integer); procedure PaintDisplayValues(ACanvas: TCanvas; R: TRect; ALeft: Integer);
procedure CheckNotCircular; procedure CheckNotCircular;
procedure DisplayValueChanged; procedure DisplayValueChanged;
@ -896,6 +897,11 @@ begin
inherited; inherited;
end; end;
procedure TRxCustomDBLookupCombo.CMGetDataLink(var Message: TLMessage);
begin
Message.Result := PtrUInt(FDataLink);
end;
procedure TRxCustomDBLookupCombo.PaintDisplayValues(ACanvas: TCanvas; R: TRect; procedure TRxCustomDBLookupCombo.PaintDisplayValues(ACanvas: TCanvas; R: TRect;
ALeft: Integer); ALeft: Integer);
var var