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);
begin
ToolPanel1.Customize(0);
ToolPanel1.Customize(0); ToolPanel1.:=;
end;

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

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