<html>
<head>
<meta content="text/html; charset=UTF-8" http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
I have a solution: (I get idea from Delphi_XE2/IDE/source/Property
Editors/DBReg.pas)<br>
<br>
type<br>
TFieldProperty = class(TStringPropertyEditor)<br>
public<br>
function Get_DataSource_Name: string; virtual;<br>
...........<br>
function TFieldProperty.Get_DataSource_Name: string;<br>
begin<br>
Result := 'DataSource';//Default name<br>
end;<br>
<br>
procedure TFieldProperty.FillValues(const Values: TStringList);<br>
var<br>
DataSource: TDataSource;<br>
begin<br>
DataSource := GetObjectProp(GetComponent(0), <b>Get_DataSource_Name </b>
) as TDataSource;<br>
LoadDataSourceFields(DataSource, Values);<br>
end;<br>
<br>
<br>
Who wana use different datasource name, add just this codes own
source(s).<br>
<br>
TMyFieldProperty = class(TFieldProperty)<br>
public<br>
function Get_DataSource_Name: string; override;<br>
end;<br>
implementation<br>
function TMyFieldProperty.Get_DataSource_Name: string;<br>
begin<br>
Result := 'Rock_Data_Roll_Source';// :) what you want<br>
end;<br>
initialization<br>
RegisterPropertyEditor(TypeInfo(string), TExLookUp,
'LookInThisField', TMyFieldProperty);<br>
<br>
I wantto make patch for this, but I saw TFieldProperty class used
other codes, so best way is lazarus team add this. <br>
I hope lazarus team answer to my soulution accept or not.<br>
Thank you<br>
<br>
<div class="moz-cite-prefix">28-02-2014 19:13 tarihinde, Martin Frb
yazdı:<br>
</div>
<blockquote cite="mid:5310C3A2.3000609@mfriebe.de" type="cite">
<meta content="text/html; charset=UTF-8" http-equiv="Content-Type">
I am no expert on this, so I cant give you much more help. But it
looks you need to write your own property editor.<br>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
</blockquote>
<br>
</body>
</html>