[Lazarus] Is this bug ? or how to do?

2014-02-27 Thread FreeMan
Hello, I'm writeing my exlookup component, I add 2 datasource and 3 field. Like a dblookupcombobox. my component's properties: FDataField : TFieldDataLink; FListField : TFieldDataLink; FKeyField : TFieldDataLink; On Objectinspector, property editor work just for, if Property name i

Re: [Lazarus] Is this bug ? or how to do?

2014-02-27 Thread Mattias Gaertner
On Thu, 27 Feb 2014 12:18:32 +0200 FreeMan wrote: > Hello, > I'm writeing my exlookup component, I add 2 datasource and 3 field. Like > a dblookupcombobox. > my component's properties: > FDataField : TFieldDataLink; > FListField : TFieldDataLink; > FKeyField : TFieldDataLink; >

Re: [Lazarus] Is this bug ? or how to do?

2014-02-27 Thread FreeMan
Put TDBLookupComboBox on form, add 2 tdatasource & Ttable or Tquery. And add datasources to TDBLookupComboBox.ListSource and TDBLookupComboBox.DataSource, after then select DataField property, (on Objectinspecter open fieldlist). "KeyField" and "ListField" property not open fieldlist on Object

Re: [Lazarus] Is this bug ? or how to do?

2014-02-27 Thread Martin Frb
On 27/02/2014 10:18, FreeMan wrote: Hello, I'm writeing my exlookup component, I add 2 datasource and 3 field. Like a dblookupcombobox. my component's properties: FDataField : TFieldDataLink; FListField : TFieldDataLink; FKeyField : TFieldDataLink; On Objectinspector, property edi

Re: [Lazarus] Is this bug ? or how to do?

2014-02-28 Thread FreeMan
Thank you Martin, I was forget and checked it that. I add this lines and now field list opening. RegisterPropertyEditor(TypeInfo(string), TExLookUp, 'DataField', TFieldProperty);//DataSource := Dataset1 RegisterPropertyEditor(TypeInfo(string), TExLookUp, 'ListField', TFieldProperty);//ListSo

Re: [Lazarus] Is this bug ? or how to do?

2014-02-28 Thread Martin Frb
On 28/02/2014 16:32, FreeMan wrote: Thank you Martin, I was forget and checked it that. I add this lines and now field list opening. RegisterPropertyEditor(TypeInfo(string), TExLookUp, 'DataField', TFieldProperty);//DataSource := Dataset1 RegisterPropertyEditor(TypeInfo(string), TExLookUp, '

Re: [Lazarus] Is this bug ? or how to do?

2014-03-01 Thread FreeMan
I have a solution: (I get idea from Delphi_XE2/IDE/source/Property Editors/DBReg.pas) type TFieldProperty = class(TStringPropertyEditor) public function Get_DataSource_Name: string; virtual; ... function TFieldProperty.Get_DataSource_Name: string; begin Result := 'DataSourc

Re: [Lazarus] Is this bug ? or how to do?

2014-03-01 Thread Martin Frb
On 01/03/2014 10:52, FreeMan wrote: I have a solution: (I get idea from Delphi_XE2/IDE/source/Property Editors/DBReg.pas) Please never post anything you got from looking at Delphi's source code. You may be violating their copyright. Unfortunately since you have looked at it, and your solutio

Re: [Lazarus] Is this bug ? or how to do?

2014-03-01 Thread FreeMan
I understood, I'm not lawyer, I'm sure you expert then me about this. I understanding from this message, who use "antique greek city name" (this is be wrong too) who use "antique Hellenic city name" can NOT write any code,can NOT any developing about that class, 'cos that knowledge from them.

Re: [Lazarus] Is this bug ? or how to do?

2014-03-01 Thread Martin Frb
On 01/03/2014 12:25, FreeMan wrote: I understood, I'm not lawyer, I'm sure you expert then me about this. I understanding from this message, who use "antique greek city name" (this is be wrong too) who use "antique Hellenic city name" can NOT write any code,can NOT any developing about that cl

Re: [Lazarus] Is this bug ? or how to do?

2014-03-01 Thread Mattias Gaertner
TFieldProperty.FillValues is virtual and has only two lines of code. The default implementation searches a property named 'DataSource'. You can override it to fetch DataSource from many different sources: For example from any property with type TDataSource, or depending on the selection or from th

Re: [Lazarus] Is this bug ? or how to do?

2014-03-02 Thread FreeMan
I tested, one word, PERFECT Thank you Mattias 01-03-2014 18:24 tarihinde, Mattias Gaertner yazdı: TFieldProperty.FillValues is virtual and has only two lines of code. The default implementation searches a property named 'DataSource'. You can override it to fetch DataSource from many different so