Re: RxMDI
Добавлено: 11.07.2019 15:06:48
Для транковой версии лазаря, как я понял? В релизе 2.0.2 не собирается. Пришлось комментировать непонятные компилятору куски. FPC 3.3.1, если что.
procedure TRxMDIButton.UpdateCaption;
begin
if Assigned(FNavForm) then
begin
Caption:=' '+FNavForm.Caption+' ';
// Перевод заголовка окна в меню Window
TRxMDIPanel(FNavForm.Owner).RefreshMDIMenu;
end
else
Caption:='---';
AdjustSize;
end;
procedure TfmOrderCard.FormWindowStateChange(Sender: TObject);
begin
if dmMain.AForm[FormIndex].WindowState = wsMaximized then;
dmMain.AForm[FormIndex].BorderStyle := bsNone;
end;
procedure TfmMain.sbRestoreCurrentWindowClick(Sender: TObject);
begin
RxMDIPanel.CurrentChildWindow.BorderStyle := bsSizeable;
RxMDIPanel.CurrentChildWindow.WindowState := wsNormal;
end;