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

Fix compiler error in Delphi 10: Copy CSIDL_* constants from [delphi11]\source\win32\rtl\win\ShlObj.pas to const.inc to make them available also in Delphi 10.

Browse Source
This commit is contained in:
Ansgar Becker
2007-10-04 20:04:58 +00:00
parent 134c70fc8d
commit 94f1d6035f
2 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
source/const.inc
View File

@ -73,3 +73,10 @@ const
// See reference: mysql.cpp Ver 14.12 Distrib 5.0.45, for Win32 (ia32): Line 112
DEFAULT_DELIMITER = ';';
// Copied constants from [delphi11]\source\win32\rtl\win\ShlObj.pas to make them
// available in Delphi 10. We don't use the constants from ShlObj until delphi 10
// support is removed.
CSIDL_COMMON_APPDATA = $0023; { All Users\Application Data }
CSIDL_APPDATA = $001a; { <user name>\Application Data }

2
source/main.pas
View File

@ -16,7 +16,7 @@ uses
StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
ActnList, ImgList, Registry, ShellApi, ToolWin, Clipbrd, db, DBCtrls,
SynMemo, synedit, SynEditTypes, smdbgrid, ZDataSet, ZSqlProcessor,
HeidiComp, sqlhelp, MysqlQueryThread, Childwin, VirtualTrees, ShlObj;
HeidiComp, sqlhelp, MysqlQueryThread, Childwin, VirtualTrees;
type
TMainForm = class(TForm)