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

fix close window in RxMDI

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2652 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2013-02-04 14:26:15 +00:00
parent ffb8b985a6
commit e75fecfde6
2 changed files with 18 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
components/rx/docs/rxfpc.xml
View File

@ -1,4 +1,4 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="utf-8"?>
<fpdoc-descriptions> <fpdoc-descriptions>
<package name="dcl_rx_fpc"> <package name="dcl_rx_fpc">
<short>Пакет времени разработки</short> <short>Пакет времени разработки</short>
@ -164,6 +164,7 @@
<link id="TRxDBGrid">RxDBGrid</link>-а.</p> <link id="TRxDBGrid">RxDBGrid</link>-а.</p>
</descr> </descr>
</element> </element>
@ -568,6 +569,7 @@
<link id="TRxDBGrid">RxDBGrid</link>-а.</p> <link id="TRxDBGrid">RxDBGrid</link>-а.</p>
</descr> </descr>
<seealso> <seealso>
@ -610,7 +612,10 @@
<link id="TRxDBGridSortEngine"/> <link id="TRxDBGridSortEngine"/>
</seealso> </seealso>
</element> </element>
<element name="TMLCaptionItem"/> <element name="TMLCaptionItem">
<short>Элемент многострочного заголовка</short>
<descr>Элемент многострочного заголовка</descr>
</element>
<element name="TRxDbGridColumns"/> <element name="TRxDbGridColumns"/>
<element name="TRxDbGridColumns.Add"/> <element name="TRxDbGridColumns.Add"/>
<element name="TFilterListCellEditor"/> <element name="TFilterListCellEditor"/>
@ -1154,6 +1159,7 @@ TRxDBCalcEdit является наследником TDBCalcEdit и имеет
<b>Count</b> <b>Count</b>
@ -2432,6 +2438,7 @@ Description
<b>const</b> SearchDomain, FileName: <b>const</b> SearchDomain, FileName:
@ -2455,6 +2462,7 @@ Description
<b>String</b>; <b>String</b>;
@ -2478,6 +2486,7 @@ Description
<b>out</b> UserName, DomainName: <b>out</b> UserName, DomainName:
@ -2501,6 +2510,7 @@ Description
<b>String</b>); <b>String</b>);
@ -2543,6 +2553,7 @@ Description
<b>const</b> DirName: <b>const</b> DirName:
@ -2560,6 +2571,7 @@ Description
<b>string</b>): <b>string</b>):
@ -2577,6 +2589,7 @@ Description
<b>string</b>;</p> <b>string</b>;</p>
<p>Функция проверяет все разделители каталогов в указанном имени файла/каталога и, если нужно, меняет их на значение константы<b>DirectorySeparator</b>.</p> <p>Функция проверяет все разделители каталогов в указанном имени файла/каталога и, если нужно, меняет их на значение константы<b>DirectorySeparator</b>.</p>
</descr> </descr>
@ -2606,6 +2619,7 @@ Description
<b>string</b>;</p> <b>string</b>;</p>

4
components/rx/rxmdi.pas
View File

@ -675,10 +675,10 @@ procedure TRxMDIButton.FormClose(Sender: TObject; var CloseAction: TCloseAction)
begin begin
if Assigned(FSaveClose) then if Assigned(FSaveClose) then
FSaveClose(Sender, CloseAction); FSaveClose(Sender, CloseAction);
Free;
FNavPanel.ChildWindowsShowLast; FNavPanel.ChildWindowsShowLast;
FNavPanel.ShowHiddenBtnOnResize; FNavPanel.ShowHiddenBtnOnResize;
Free;
end; end;
constructor TRxMDIButton.CreateButton(AOwner: TRxMDITasks; AForm: TForm); constructor TRxMDIButton.CreateButton(AOwner: TRxMDITasks; AForm: TForm);