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

fix draw text in RxDBLockupComboBox

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1125 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2010-01-12 17:11:41 +00:00
parent b4cfe90e97
commit 06f1e9145c
2 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/rx/rxlookup.pas
View File

@ -444,6 +444,9 @@ procedure TRxCustomDBLookupEdit.ShowPopUp;
var
R:TPoint;
FValue:string;
{$IFDEF LINUX}
TempF:TPopUpForm;
{$ENDIF}
begin
if FLookupDataLink.Active then
@ -456,8 +459,18 @@ begin
FRxPopUpForm:=ShowRxDBPopUpForm(Self, FLookupDataLink.DataSet, @OnClosePopup,
FPopUpFormOptions, FLookupDisplay, LookupDisplayIndex, 0 {ButtonWidth}, Font);
end
FRxPopUpForm:=ShowRxDBPopUpForm(Self, FLookupDataLink.DataSet, @OnClosePopup,
FPopUpFormOptions, FLookupDisplay, LookupDisplayIndex, 0 {ButtonWidth}, Font);
{$IFDEF LINUX}
TempF:=FRxPopUpForm;
if FRxPopUpForm.ShowModal = mrOk then
OnClosePopup(true);
TempF.Free;
FRxPopUpForm:=nil
{$ENDIF}
end
end;

2
components/rx/rxpopupunit.pas
View File

@ -211,7 +211,7 @@ begin
Result.DataSet:=ADataSet;
Result.LookupDisplayIndex:=ALookupDisplayIndex;
AControl.Caption:='';
// AControl.Caption:='';
Result.WControl:=AControl;
if Assigned(Font) then