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

RxLazReport controls - fix TlrRxDBLookupComboBox.Text property

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4422 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-01-14 12:04:08 +00:00
parent bda0aeb336
commit cd836a393b
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/trunk/Demos/ToolPanel/unit1.pas
View File

@ -73,7 +73,7 @@ end;
procedure TMainForm.actCustomExecute(Sender: TObject); procedure TMainForm.actCustomExecute(Sender: TObject);
begin begin
ToolPanel1.Customize(0); ToolPanel1.Customize(0); ToolPanel1.:=;
end; end;

14
components/rx/trunk/LazReport/lrrxcontrols.pas
View File

@ -20,12 +20,12 @@ type
function GetKeyField: string; function GetKeyField: string;
function GetListField: string; function GetListField: string;
function GetListSource: string; function GetListSource: string;
function GetText: Variant; function GetText: string;
procedure SetKeyField(AValue: string); procedure SetKeyField(AValue: string);
procedure SetListField(AValue: string); procedure SetListField(AValue: string);
procedure SetListSource(AValue: string); procedure SetListSource(AValue: string);
procedure RxDBLookupComboBox1CloseUp(Sender: TObject; SearchResult:boolean); procedure RxDBLookupComboBox1CloseUp(Sender: TObject; SearchResult:boolean);
procedure SetText(AValue: Variant); procedure SetText(AValue: string);
protected protected
procedure PaintDesignControl; override; procedure PaintDesignControl; override;
function CreateControl:TControl;override; function CreateControl:TControl;override;
@ -42,7 +42,7 @@ type
property ListSource:string read GetListSource write SetListSource; property ListSource:string read GetListSource write SetListSource;
property Color; property Color;
property Enabled; property Enabled;
property Text:Variant read GetText write SetText; property Text:string read GetText write SetText;
property OnClick; property OnClick;
end; end;
@ -160,9 +160,9 @@ begin
Result:=FListSource; Result:=FListSource;
end; end;
function TlrRxDBLookupComboBox.GetText: Variant; function TlrRxDBLookupComboBox.GetText: string;
begin begin
Result:=TRxDBLookupCombo(FControl).KeyValue; Result:=TRxDBLookupCombo(FControl).Value;
end; end;
procedure TlrRxDBLookupComboBox.SetKeyField(AValue: string); procedure TlrRxDBLookupComboBox.SetKeyField(AValue: string);
@ -201,9 +201,9 @@ begin
} }
end; end;
procedure TlrRxDBLookupComboBox.SetText(AValue: Variant); procedure TlrRxDBLookupComboBox.SetText(AValue: string);
begin begin
TRxDBLookupCombo(FControl).KeyValue:=AValue; TRxDBLookupCombo(FControl).Value:=AValue;
end; end;
procedure TlrRxDBLookupComboBox.PaintDesignControl; procedure TlrRxDBLookupComboBox.PaintDesignControl;