paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 08:58:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDataDesktop: Enable MSSQL for FPC 3.0.2 and newer, issue #32680, patch from Sven Barth

Browse Source 
git-svn-id: trunk@56369 -
This commit is contained in:
mattias 2017-11-12 12:49:33 +00:00
parent 098ed06162
commit 4a07f5355d
2 changed files with 35 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
components/ideintf/projectintf.pas
View File

@ -258,6 +258,34 @@ type
TProjectSessionStorages = set of TProjectSessionStorage;
const
ProjectFlagNames : array[TProjectFlag] of string = (
'SaveClosedFiles',
'SaveOnlyProjectUnits',
'MainUnitIsPascalSource',
'MainUnitHasUsesSectionForAllUnits',
'MainUnitHasCreateFormStatements',
'MainUnitHasTitleStatement',
'MainUnitHasScaledStatement',
'Runnable',
'AlwaysBuild',
'UseDesignTimePackages',
'LRSInOutputDirectory',
'UseDefaultCompilerOptions',
'SaveJumpHistory',
'SaveFoldState'
);
ProjectSessionStorageNames: array[TProjectSessionStorage] of string = (
'InProjectInfo',
'InProjectDir',
'InIDEConfig',
'None'
);
CompilationExecutableTypeNames: array[TCompilationExecutableType] of string =(
'Program',
'Library'
);
pssHasSeparateSession = [pssInProjectDir,pssInIDEConfig];
DefaultProjectCleanOutputFileMask = '*';
DefaultProjectCleanSourcesFileMask = '*.ppu;*.ppl;*.o;*.or';
@ -549,45 +577,17 @@ function ProjectDescriptorCustomProgram: TProjectDescriptor;
function ProjectDescriptorEmptyProject: TProjectDescriptor;
const
DefaultProjectFlags = [pfSaveClosedUnits,
DefaultProjectNoApplicationFlags = [pfSaveClosedUnits,
pfMainUnitIsPascalSource,
pfMainUnitHasUsesSectionForAllUnits,
pfMainUnitHasCreateFormStatements,
pfMainUnitHasTitleStatement,
pfMainUnitHasScaledStatement,
pfRunnable,
pfLRSFilesInOutputDirectory,
pfSaveJumpHistory,
pfSaveFoldState];
ProjectFlagNames : array[TProjectFlag] of string = (
'SaveClosedFiles',
'SaveOnlyProjectUnits',
'MainUnitIsPascalSource',
'MainUnitHasUsesSectionForAllUnits',
'MainUnitHasCreateFormStatements',
'MainUnitHasTitleStatement',
'MainUnitHasScaledStatement',
'Runnable',
'AlwaysBuild',
'UseDesignTimePackages',
'LRSInOutputDirectory',
'UseDefaultCompilerOptions',
'SaveJumpHistory',
'SaveFoldState'
);
ProjectSessionStorageNames: array[TProjectSessionStorage] of string = (
'InProjectInfo',
'InProjectDir',
'InIDEConfig',
'None'
);
CompilationExecutableTypeNames: array[TCompilationExecutableType] of string =(
'Program',
'Library'
);
DefaultProjectFlags = DefaultProjectNoApplicationFlags+[
pfMainUnitHasCreateFormStatements,
pfMainUnitHasTitleStatement,
pfMainUnitHasScaledStatement];
function LoadProjectIconIntoImages(const ProjFile: string;
const Images: TCustomImageList; const Index: TStringList): Integer;

4
tools/lazdatadesktop/frmmain.pp
View File

@ -25,8 +25,8 @@
When done so, add the unit to the uses clause in the implementation, and register it in RegisterDDEngines
}
{ MS-SQL server connectop}
{$IFDEF VER3_1_1}
{ MS-SQL server connection}
{$IF FPC_FULLVERSION>30001}
{$DEFINE HAVEMSSQLCONN}
{$ENDIF}