implement CM_GETDATALINK
Original Reporter info from Mantis: silviogs
-
Reporter name: silvio guedes dos santos
Original Reporter info from Mantis: silviogs
- Reporter name: silvio guedes dos santos
Description:
Attention dear developers of Lazarus
please implement this modification in order to maintain the compatibility with the dbctrls of delphi. We had the need to port our components to Lazarus it didn't work for the lack of this routine.
Unit DbCtrls
{TDBEdit}
TDBEdit = class(TCustomMaskEdit)
private
.
.
procedure CMGetDataLink(var Message: TLMESSAGE); MESSAGE CM_GETDATALINK; / / routine to be implemented / /
c:\lazarus\lcl\include\dbedit.inc
procedure TDBEdit.CMGetDataLink(var Message: TLMessage);
begin
Message.Result := Integer(FDataLink);
end;
Respectfully
Silvio Guedes and
Odilon Nelson
Mantis conversion info:
- Mantis ID: 1410
- OS: all
- Platform: all
- Version: 0.9.10
- Fixed in version: 0.9.25 (SVN)
- Fixed in revision: 14741 (#693bccca)
- Monitored by: » luizamerico (Luiz Americo)
- Target version: post 1.0