mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-06 18:24:26 +08:00
83 lines
2.1 KiB
ObjectPascal
83 lines
2.1 KiB
ObjectPascal
unit dataviewsave;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, Registry, childwin;
|
|
|
|
type
|
|
TFrmDataViewSave = class(TForm)
|
|
comboSave: TComboBox;
|
|
lblSave: TLabel;
|
|
btnOK: TButton;
|
|
btnCancel: TButton;
|
|
chkDefault: TCheckBox;
|
|
procedure btnOKClick(Sender: TObject);
|
|
procedure comboSaveChange(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
cwin: TMDIChild;
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
{$I const.inc}
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses main;
|
|
|
|
|
|
procedure TFrmDataViewSave.FormCreate(Sender: TObject);
|
|
begin
|
|
Screen.Cursor := crHourglass;
|
|
InheritFont(Font);
|
|
cwin := Mainform.Childwin;
|
|
// Load all view names into combobox
|
|
cwin.GetDataViews(comboSave.Items);
|
|
comboSaveChange(comboSave);
|
|
Screen.Cursor := crDefault;
|
|
end;
|
|
|
|
|
|
procedure TFrmDataViewSave.comboSaveChange(Sender: TObject);
|
|
begin
|
|
// OK button is only enabled if name is not empty
|
|
btnOK.Enabled := (Sender as TComboBox).Text <> '';
|
|
end;
|
|
|
|
|
|
procedure TFrmDataViewSave.btnOKClick(Sender: TObject);
|
|
var
|
|
viewName, basekey, Sort: String;
|
|
reg: TRegistry;
|
|
i: Integer;
|
|
begin
|
|
// Save current view stuff to registry
|
|
Screen.Cursor := crHourglass;
|
|
viewName := comboSave.Text;
|
|
reg := TRegistry.Create;
|
|
basekey := cwin.GetRegKeyTable + '\' + REGPREFIX_DATAVIEW + viewName;
|
|
if reg.OpenKey(basekey, True) then begin
|
|
reg.WriteString(REGNAME_DISPLAYEDCOLUMNS, Utf8Encode(cwin.FDataGridSelect.DelimitedText));
|
|
reg.WriteString(REGNAME_FILTER, Utf8Encode(cwin.SynMemoFilter.Text));
|
|
for i := 0 to High(cwin.FDataGridSort) do
|
|
Sort := Sort + IntToStr(cwin.FDataGridSort[i].SortDirection) + '_' + cwin.FDataGridSort[i].ColumnName + REGDELIM;
|
|
reg.WriteString(REGNAME_SORT, Utf8Encode(Sort));
|
|
if chkDefault.Checked then begin
|
|
reg.OpenKey(cwin.GetRegKeyTable, False);
|
|
reg.WriteString(REGNAME_DEFAULTVIEW, viewName);
|
|
end;
|
|
reg.CloseKey;
|
|
end;
|
|
FreeAndNil(reg);
|
|
Screen.Cursor := crDefault;
|
|
end;
|
|
|
|
|
|
end.
|