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

Introduce some wrapper functions for message and error dialogs in order to have less code and to avoid hidden titles on Windows XP. Fixes issue #2425.

Browse Source
This commit is contained in:
Ansgar Becker
2011-05-27 04:48:21 +00:00
parent 478c0306c7
commit 2d548b5ef6
21 changed files with 156 additions and 117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/texteditor.pas
View File

@ -104,7 +104,7 @@ begin
text := StringReplace(text, LB, CRLF, [rfReplaceAll]);
if ScanNulChar(text) then begin
MessageDlg(SContainsNulCharGrid, mtInformation, [mbOK], 0);
MessageDialog(SContainsNulCharGrid, mtInformation, [mbOK]);
text := RemoveNulChars(text);
end;
@ -256,7 +256,7 @@ begin
Exit;
FStopping := True;
if Modified then
DoPost := MessageDlg('Apply modifications?', mtConfirmation, [mbYes, mbNo], 0) = mrYes
DoPost := MessageDialog('Apply modifications?', mtConfirmation, [mbYes, mbNo]) = mrYes
else
DoPost := False;
if DoPost then