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

RxFPC: new component image for TRxTextHolder - tnx. to zoltanleo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6723 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-11-12 07:20:03 +00:00
parent 55159c505e
commit 8ba346c60e
12 changed files with 1108 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/rx/trunk/rxcontrols/rxcloseformvalidator.pas
View File

@ -122,11 +122,6 @@ begin
Items[Index].Assign( AValue );
end;
{constructor TValidateItems.Create;
begin
inherited Create(TValidateItem);
end;}
{ TValidateItem }
procedure TValidateItem.SetControl(AValue: TWinControl);

6
components/rx/trunk/rxcontrols/rxmdi.pas
View File

@ -472,8 +472,10 @@ begin
F.Parent:=Self;
F.Visible:=true;
F.BringToFront;
if Assigned(Application) and Assigned(Application.MainForm) then
Application.MainForm.ActiveControl:=F;
// if Assigned(Application) and Assigned(Application.MainForm) and (Application.MainForm = Owner) then
// Application.MainForm.ActiveControl:=F;
if Assigned(Owner) and (Owner is TForm) then
TForm(Owner).ActiveControl:=F;
B:=TRxMDIButton.CreateButton(TaskPanel, F);
DoOnChangeCurrentChild(F);