opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Remove last traces of MDI (issue #513). Merges code, controls and events from childwin into main.

Browse Source
This commit is contained in:
Ansgar Becker
2009-01-01 23:24:36 +00:00
parent 59d829752c
commit f1b3f5501f
31 changed files with 9193 additions and 9412 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
source/data_sorting.pas
View File

@ -4,7 +4,7 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons, Registry, childwin,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons, Registry,
WideStrings, TntStdCtrls, helpers;
@ -60,9 +60,9 @@ end;
procedure TDataSortingForm.FormShow(Sender: TObject);
begin
// Take column names from listColumns and add here
ColumnNames := GetVTCaptions( Mainform.Childwin.ListColumns );
ColumnNames := GetVTCaptions( Mainform.ListColumns );
OrderColumns := Mainform.Childwin.FDataGridSort;
OrderColumns := Mainform.FDataGridSort;
OldOrderClause := ComposeOrderClause(OrderColumns);
// First creation of controls
@ -304,15 +304,15 @@ end;
procedure TDataSortingForm.btnOKClick(Sender: TObject);
begin
// TODO: apply ordering
Mainform.Childwin.FDataGridSort := OrderColumns;
Mainform.Childwin.viewdata(Sender);
Mainform.FDataGridSort := OrderColumns;
Mainform.viewdata(Sender);
btnCancel.OnClick(Sender);
end;
procedure TDataSortingForm.btnCancelClick(Sender: TObject);
begin
Mainform.Childwin.tbtnDataSorting.Down := False;
Mainform.tbtnDataSorting.Down := False;
Close;
end;
@ -327,7 +327,7 @@ end;
{**
Cancel this dialog if the user clicks elsewhere on childwin
Cancel this dialog if the user clicks elsewhere on mainform
}
procedure TDataSortingForm.FormDeactivate(Sender: TObject);
begin