paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 07:36:14 +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; TProjectSessionStorages = set of TProjectSessionStorage;
const 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]; pssHasSeparateSession = [pssInProjectDir,pssInIDEConfig];
DefaultProjectCleanOutputFileMask = '*'; DefaultProjectCleanOutputFileMask = '*';
DefaultProjectCleanSourcesFileMask = '*.ppu;*.ppl;*.o;*.or'; DefaultProjectCleanSourcesFileMask = '*.ppu;*.ppl;*.o;*.or';
@ -549,45 +577,17 @@ function ProjectDescriptorCustomProgram: TProjectDescriptor;
function ProjectDescriptorEmptyProject: TProjectDescriptor; function ProjectDescriptorEmptyProject: TProjectDescriptor;
const const
DefaultProjectFlags = [pfSaveClosedUnits, DefaultProjectNoApplicationFlags = [pfSaveClosedUnits,
pfMainUnitIsPascalSource, pfMainUnitIsPascalSource,
pfMainUnitHasUsesSectionForAllUnits, pfMainUnitHasUsesSectionForAllUnits,
pfMainUnitHasCreateFormStatements,
pfMainUnitHasTitleStatement,
pfMainUnitHasScaledStatement,
pfRunnable, pfRunnable,
pfLRSFilesInOutputDirectory, pfLRSFilesInOutputDirectory,
pfSaveJumpHistory, pfSaveJumpHistory,
pfSaveFoldState]; pfSaveFoldState];
ProjectFlagNames : array[TProjectFlag] of string = ( DefaultProjectFlags = DefaultProjectNoApplicationFlags+[
'SaveClosedFiles', pfMainUnitHasCreateFormStatements,
'SaveOnlyProjectUnits', pfMainUnitHasTitleStatement,
'MainUnitIsPascalSource', pfMainUnitHasScaledStatement];
'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'
);
function LoadProjectIconIntoImages(const ProjFile: string; function LoadProjectIconIntoImages(const ProjFile: string;
const Images: TCustomImageList; const Index: TStringList): Integer; 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 When done so, add the unit to the uses clause in the implementation, and register it in RegisterDDEngines
} }
{ MS-SQL server connectop} { MS-SQL server connection}
{$IFDEF VER3_1_1} {$IF FPC_FULLVERSION>30001}
{$DEFINE HAVEMSSQLCONN} {$DEFINE HAVEMSSQLCONN}
{$ENDIF} {$ENDIF}