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

Emphasize label of checked "Drop" checkboxes, so the user is warned. Fixes issue #1493.

Browse Source
This commit is contained in:
Ansgar Becker
2010-01-02 13:32:10 +00:00
parent d8f2c9831d
commit 811f3df7c6
1 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
source/tabletools.pas
View File

@ -158,6 +158,7 @@ var
SessionNames: TStringList;
begin
// Restore GUI setup
InheritFont(Font);
Width := GetRegValue(REGNAME_TOOLSWINWIDTH, Width);
Height := GetRegValue(REGNAME_TOOLSWINHEIGHT, Height);
TreeObjects.Width := GetRegValue(REGNAME_TOOLSTREEWIDTH, TreeObjects.Width);
@ -195,7 +196,6 @@ begin
// Various
udSkipLargeTables.Position := GetRegValue(REGNAME_TOOLSSKIPMB, udSkipLargeTables.Position);
SetWindowSizeGrip( Self.Handle, True );
InheritFont(Font);
FixVT(TreeObjects);
FixVT(ResultGrid);
FResults := TObjectList.Create;
@ -821,6 +821,17 @@ end;
procedure TfrmTableTools.chkExportOptionClick(Sender: TObject);
procedure WarnIfChecked(chk: TCheckBox; LabelText: String);
begin
chk.ParentFont := chk.Checked;
if chk.Checked then begin
chk.Caption := LabelText + '!!';
chk.Font.Style := chk.Font.Style + [fsBold];
end else begin
chk.Caption := LabelText;
chk.Font.Style := Font.Style;
end;
end;
begin
if (Sender = chkExportDatabasesDrop) and chkExportDatabasesDrop.Checked then
chkExportDatabasesCreate.Checked := True
@ -830,6 +841,8 @@ begin
chkExportTablesCreate.Checked := True
else if (Sender = chkExportTablesCreate) and (not chkExportTablesCreate.Checked) then
chkExportTablesDrop.Checked := False;
WarnIfChecked(chkExportDatabasesDrop, 'Drop');
WarnIfChecked(chkExportTablesDrop, 'Drop');
end;