Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Grafted Win64-related changes from [23338c7949] and [f09c69e9b9] into their own branch, to make it easier to create a proper 64-bits release. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | win64 |
Files: | files | file ages | folders |
SHA1: |
e1f6b8f94e66353a9a9fe86e96512243 |
User & Date: | tinus 2019-03-15 18:14:00.571 |
Context
2019-03-15
| ||
19:59 | Fixed several remaining 64-bits related problems. Moved ODS (for OutputDebugString) to its own unit. check-in: bcacc7133f user: tinus tags: win64 | |
18:14 | Grafted Win64-related changes from [23338c7949] and [f09c69e9b9] into their own branch, to make it easier to create a proper 64-bits release. check-in: e1f6b8f94e user: tinus tags: win64 | |
2018-11-03
| ||
11:17 | Updated link, apparently []() is not correct Markdown. check-in: 6dc33f10d6 user: tinus tags: trunk | |
Changes
Changes to src/F_PreviewHTML.dfm.
1 2 3 4 5 6 7 8 9 10 11 12 | inherited frmHTMLPreview: TfrmHTMLPreview BorderStyle = bsSizeToolWin Caption = 'HTML preview' ClientHeight = 420 ClientWidth = 504 ParentFont = True OnCreate = FormCreate OnDestroy = FormDestroy OnHide = FormHide OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 | > > | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | inherited frmHTMLPreview: TfrmHTMLPreview BorderStyle = bsSizeToolWin Caption = 'HTML preview' ClientHeight = 420 ClientWidth = 504 ParentFont = True OnCreate = FormCreate OnDestroy = FormDestroy OnHide = FormHide OnKeyPress = FormKeyPress OnShow = FormShow ExplicitWidth = 520 ExplicitHeight = 461 PixelsPerInch = 96 TextHeight = 14 object pnlButtons: TPanel Left = 0 Top = 379 Width = 504 Height = 41 Align = alBottom BevelOuter = bvNone |
︙ | ︙ |
Changes to src/F_PreviewHTML.pas.
︙ | ︙ | |||
180 181 182 183 184 185 186 | Screen.Cursor := crHourGlass; try {--- MCO 22-01-2013: determine whether the current document matches a custom filter ---} FilterName := DetermineCustomFilter; IsCustom := Length(FilterName) > 0; | | | 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 | Screen.Cursor := crHourGlass; try {--- MCO 22-01-2013: determine whether the current document matches a custom filter ---} FilterName := DetermineCustomFilter; IsCustom := Length(FilterName) > 0; {$MESSAGE HINT 'TODO: Find a way to communicate why there is no preview, depending on the situation — MCO 22-01-2013'} if IsXML or IsHTML or IsCustom then begin CodePage := SendMessage(hScintilla, SCI_GETCODEPAGE, 0, 0); Size := SendMessage(hScintilla, SCI_GETTEXT, 0, 0); SetLength(Content, Size); SendMessage(hScintilla, SCI_GETTEXT, Size, LPARAM(PAnsiChar(Content))); if CodePage = CP_ACP then begin |
︙ | ︙ | |||
437 438 439 440 441 442 443 | if SameText(Language, DocLanguage) then begin Match := True; end; end; end; end; | | | 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 | if SameText(Language, DocLanguage) then begin Match := True; end; end; end; end; {$MESSAGE HINT 'TODO: Test lexer — MCO 22-01-2013'} if Match then Exit(Names[i]); end; finally Names.Free; Filters.Free; |
︙ | ︙ |
Changes to src/U_Npp_PreviewHTML.pas.
︙ | ︙ | |||
20 21 22 23 24 25 26 | procedure CommandShowPreview; procedure CommandSetIEVersion(const BrowserEmulation: Integer); procedure CommandOpenFile(const Filename: nppString); procedure CommandShowAbout; procedure CommandReplaceHelloWorld; procedure DoNppnToolbarModification; override; | | | | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | procedure CommandShowPreview; procedure CommandSetIEVersion(const BrowserEmulation: Integer); procedure CommandOpenFile(const Filename: nppString); procedure CommandShowAbout; procedure CommandReplaceHelloWorld; procedure DoNppnToolbarModification; override; procedure DoNppnFileClosed(const BufferID: THandle); override; procedure DoNppnBufferActivated(const BufferID: THandle); override; procedure DoModified(const hwnd: HWND; const modificationType: Integer); override; function GetSettings(const Name: string = 'Settings.ini'): TIniFile; end {TNppPluginPreviewHTML}; procedure _FuncReplaceHelloWorld; cdecl; procedure _FuncShowPreview; cdecl; |
︙ | ︙ | |||
268 269 270 271 272 273 274 | SendMessage(self.NppData.NppHandle, NPPM_ADDTOOLBARICON, WPARAM(self.CmdIdFromDlgId(0)), LPARAM(@tb)); // SendMessage(self.NppData.ScintillaMainHandle, SCI_SETMODEVENTMASK, SC_MOD_INSERTTEXT or SC_MOD_DELETETEXT, 0); // SendMessage(self.NppData.ScintillaSecondHandle, SCI_SETMODEVENTMASK, SC_MOD_INSERTTEXT or SC_MOD_DELETETEXT, 0); end {TNppPluginPreviewHTML.DoNppnToolbarModification}; { ------------------------------------------------------------------------------------------------ } | | | | 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 | SendMessage(self.NppData.NppHandle, NPPM_ADDTOOLBARICON, WPARAM(self.CmdIdFromDlgId(0)), LPARAM(@tb)); // SendMessage(self.NppData.ScintillaMainHandle, SCI_SETMODEVENTMASK, SC_MOD_INSERTTEXT or SC_MOD_DELETETEXT, 0); // SendMessage(self.NppData.ScintillaSecondHandle, SCI_SETMODEVENTMASK, SC_MOD_INSERTTEXT or SC_MOD_DELETETEXT, 0); end {TNppPluginPreviewHTML.DoNppnToolbarModification}; { ------------------------------------------------------------------------------------------------ } procedure TNppPluginPreviewHTML.DoNppnBufferActivated(const BufferID: THandle); begin inherited; if Assigned(frmHTMLPreview) and frmHTMLPreview.Visible then begin frmHTMLPreview.btnRefresh.Click; end; end {TNppPluginPreviewHTML.DoNppnBufferActivated}; { ------------------------------------------------------------------------------------------------ } procedure TNppPluginPreviewHTML.DoNppnFileClosed(const BufferID: THandle); begin if Assigned(frmHTMLPreview) then begin frmHTMLPreview.ForgetBuffer(BufferID); end; inherited; end {TNppPluginPreviewHTML.DoNppnFileClosed}; |
︙ | ︙ |
Changes to src/common/L_VersionInfoW.pas.
1 2 3 4 5 6 7 8 9 10 11 | unit L_VersionInfoW; interface uses Windows, SysUtils; type TFileVersionInfo = class private { Private declarations } | | | | | | | | | | | | | > > | > | | | | | | | | | | | | | | | | > > > > > > > > | | | | | | < | > | | | | > > | > > > > | | | | | < | | | | > > > > > > | < | > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 | unit L_VersionInfoW; interface uses Windows, SysUtils; type TFileVersionInfo = class private { Private declarations } FFilename : string; FHasVersionInfo : boolean; FCompanyName : string; FFileDescription : string; FFileVersion : string; FInternalname : string; FLegalCopyright : string; FLegalTradeMarks : string; FOriginalFilename : string; FProductName : string; FProductVersion : string; FComments : string; FMajorVersion : Word; FMinorVersion : Word; FRevision : Word; FBuild : Word; FFlags : Word; FFileDateTime : TDateTime; procedure SetFileName(const AFileName: string); function HasFlag(const Index: integer): boolean; protected { Protected declarations } public { Public declarations } constructor Create(const AFileName: string); destructor Destroy; override; property FileName : string read FFileName write SetFileName; public { Published declarations } property CompanyName : string read FCompanyName; property FileDescription : string read FFileDescription; property FileVersion : string read FFileVersion; property Internalname : string read FInternalname; property LegalCopyright : string read FLegalCopyright; property LegalTradeMarks : string read FLegalTradeMarks; property OriginalFilename : string read FOriginalFilename; property ProductName : string read FProductName; property ProductVersion : string read FProductVersion; property Comments : string read FComments; property MajorVersion : Word read FMajorVersion; property MinorVersion : Word read FMinorVersion; property Revision : Word read FRevision; property Build : Word read FBuild; property Flags : Word read FFlags; property IsDebug : boolean index VS_FF_DEBUG read HasFlag; property IsPreRelease : boolean index VS_FF_PRERELEASE read HasFlag; property IsPatched : boolean index VS_FF_PATCHED read HasFlag; property IsPrivateBuild : boolean index VS_FF_PRIVATEBUILD read HasFlag; property IsInfoInferred : boolean index VS_FF_INFOINFERRED read HasFlag; property IsSpecialBuild : boolean index VS_FF_SPECIALBUILD read HasFlag; property FileDateTime : TDateTime read FFileDateTime; end; implementation type TLangAndCP = record wLanguage : word; wCodePage : word; end; PLangAndCP = ^TLangAndCP; constructor TFileVersionInfo.Create(const AFileName: string); begin inherited Create; SetFileName(AFileName); end; destructor TFileVersionInfo.Destroy; begin inherited Destroy; end; procedure TFileVersionInfo.SetFileName(const AFileName: string); var Dummy : UINT; BufferSize: DWORD; Buffer : Pointer; PLang : PLangAndCP; SubBlock : string; SysTime: TSystemTime; { - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - } function QueryValue(const AName: string): string; var Value : PChar; begin SubBlock := WideFormat('\\StringFileInfo\\%.4x%.4x\\%s', [PLang.wLanguage, PLang.wCodePage, AName]); if VerQueryValue(Buffer, PChar(SubBlock), Pointer(Value), Dummy) then Result := string(Value) else Result := ''; end; { - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - } var PInfoBlock : PVSFixedFileInfo; FileTime : TFileTime; begin FFilename := AFileName; BufferSize := GetFileVersionInfoSize(PChar(AFileName), Dummy); FHasVersionInfo := (Buffersize > 0); if FHasVersionInfo then begin Buffer := AllocMem(BufferSize); try GetFileVersionInfo(PChar(AFileName), Dummy, BufferSize, Buffer); SubBlock := '\\VarFileInfo\\Translation'; VerQueryValue(Buffer, PChar(SubBlock), Pointer(PLang), Dummy); FCompanyName := QueryValue('CompanyName'); FFileDescription := QueryValue('FileDescription'); FFileVersion := QueryValue('FileVersion'); FInternalName := QueryValue('InternalName'); FLegalCopyright := QueryValue('LegalCopyright'); FLegalTradeMarks := QueryValue('LegalTradeMarks'); FOriginalFilename := QueryValue('OriginalFilename'); FProductName := QueryValue('ProductName'); FProductVersion := QueryValue('ProductVersion'); FComments := QueryValue('Comments'); VerQueryValue(Buffer, '\', Pointer(PInfoBlock), Dummy); FMajorVersion := PInfoBlock.dwFileVersionMS shr 16; FMinorVersion := PInfoBlock.dwFileVersionMS and 65535; FRevision := PInfoBlock.dwFileVersionLS shr 16; FBuild := PInfoBlock.dwFileVersionLS and 65535; FFlags := PInfoBlock.dwFileFlags and PInfoBlock.dwFileFlagsMask; FileTime.dwLowDateTime := PInfoBlock.dwFileDateLS; FileTime.dwHighDateTime := PInfoBlock.dwFileDateMS; if FileTimeToLocalFileTime(FileTime, FileTime) and FileTimeToSystemTime(FileTime, SysTime) and (SysTime.wYear > 1601) then FFileDateTime := SystemTimeToDateTime(SysTime); finally FreeMem(Buffer, BufferSize); end; end else begin FCompanyname := ''; FFileDescription := ''; FFileVersion := ''; FInternalname := ''; FLegalCopyright := ''; FLegalTradeMarks := ''; FOriginalFilename := ''; FProductName := ''; FProductVersion := ''; FComments := ''; FMajorVersion := 0; FMinorVersion := 0; FRevision := 0; FBuild := 0; end; end; function TFileVersionInfo.HasFlag(const Index: integer): boolean; begin Result := (FFlags and Index) <> 0; end; end. |
Changes to src/lib/NppDockingForms.pas.
︙ | ︙ | |||
147 148 149 150 151 152 153 | GetMem(self.ToolbarData.AdditionalInfo, 1000*sizeof(nppPChar)); {$IFDEF NPPUNICODE} StringToWideChar(self.Caption, self.ToolbarData.Title, 500); GetModuleFileNameW(HInstance, self.ToolbarData.ModuleName, 1000); StringToWideChar(ExtractFileName(self.ToolbarData.ModuleName), self.ToolbarData.ModuleName, 1000); StringToWideChar('', self.ToolbarData.AdditionalInfo, 1); | | | | 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 | GetMem(self.ToolbarData.AdditionalInfo, 1000*sizeof(nppPChar)); {$IFDEF NPPUNICODE} StringToWideChar(self.Caption, self.ToolbarData.Title, 500); GetModuleFileNameW(HInstance, self.ToolbarData.ModuleName, 1000); StringToWideChar(ExtractFileName(self.ToolbarData.ModuleName), self.ToolbarData.ModuleName, 1000); StringToWideChar('', self.ToolbarData.AdditionalInfo, 1); {r:=}SendMessageW(self.Npp.NppData.NppHandle, NPPM_DMMREGASDCKDLG, 0, NativeInt(@self.ToolbarData)); {$ELSE} StrCopy(self.ToolbarData.Title, PChar(self.Caption)); GetModuleFileNameA(HInstance, self.ToolbarData.ModuleName, 1000); StrLCopy(self.ToolbarData.ModuleName, PChar(ExtractFileName(self.ToolbarData.ModuleName)), 1000); StrCopy(self.ToolbarData.AdditionalInfo, PChar('')); {r:=} SendMessageA(self.Npp.NppData.NppHandle, NPPM_DMMREGASDCKDLG, 0, NativeInt(@self.ToolbarData)); {$ENDIF} self.Visible := true; end; procedure TNppDockingForm.Show; begin |
︙ | ︙ | |||
181 182 183 184 185 186 187 | // This hack prevents the Win Dialog default procedure from an endless loop while // looking for the prevoius component, while in a floating state. // I still don't know why the pointer climbs up to the docking dialog that holds this one // but this works for now. procedure TNppDockingForm.RemoveControlParent(control: TControl); var wincontrol: TWinControl; | | | 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 | // This hack prevents the Win Dialog default procedure from an endless loop while // looking for the prevoius component, while in a floating state. // I still don't know why the pointer climbs up to the docking dialog that holds this one // but this works for now. procedure TNppDockingForm.RemoveControlParent(control: TControl); var wincontrol: TWinControl; i, r: NativeInt; begin if (control is TWinControl) then begin wincontrol := control as TWinControl; wincontrol.HandleNeeded; r := Windows.GetWindowLong(wincontrol.Handle, GWL_EXSTYLE); if (r and WS_EX_CONTROLPARENT = WS_EX_CONTROLPARENT) then |
︙ | ︙ |
Changes to src/lib/SciSupport.pas.
1 2 3 4 5 6 7 8 9 10 11 12 | unit scisupport; // Support unit for scintilla use in pascal. The constants are all created from scintilla.iface by // a python script. interface {$DEFINE MACRO_SUPPORT} uses Windows; type | | | | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | unit scisupport; // Support unit for scintilla use in pascal. The constants are all created from scintilla.iface by // a python script. interface {$DEFINE MACRO_SUPPORT} uses Windows; type TScintillaMessageFnc = function(ptr : Pointer; Msg: UINT; wParam: WPARAM; lParam : LPARAM) : LRESULT; cdecl; uptr_t = Longword; sptr_t = Longint; TNotifyHeader = record hwndFrom : HWND; idFrom : uptr_t; code : NativeUInt; end; PSCNotification = ^TSCNotification; TSCNotification = record nmhdr : TNotifyHeader; position : Integer; // SCN_STYLENEEDED, SCN_MODIFIED ch : Integer; // SCN_CHARADDED, SCN_KEY modifiers : Integer; // SCN_KEY |
︙ | ︙ |
Changes to src/lib/nppplugin.pas.
︙ | ︙ | |||
395 396 397 398 399 400 401 | DMN_CLOSE = (DMN_FIRST + 1); //nmhdr.code = DWORD(DMN_CLOSE, 0)); //nmhdr.hwndFrom = hwndNpp; //nmhdr.idFrom = ctrlIdNpp; DMN_DOCK = (DMN_FIRST + 2); DMN_FLOAT = (DMN_FIRST + 3); //nmhdr.code = DWORD(DMN_XXX, int newContainer); //nmhdr.hwndFrom = hwndNpp; //nmhdr.idFrom = ctrlIdNpp; type {$IFDEF NPPUNICODE} | | | 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 | DMN_CLOSE = (DMN_FIRST + 1); //nmhdr.code = DWORD(DMN_CLOSE, 0)); //nmhdr.hwndFrom = hwndNpp; //nmhdr.idFrom = ctrlIdNpp; DMN_DOCK = (DMN_FIRST + 2); DMN_FLOAT = (DMN_FIRST + 3); //nmhdr.code = DWORD(DMN_XXX, int newContainer); //nmhdr.hwndFrom = hwndNpp; //nmhdr.idFrom = ctrlIdNpp; type {$IFDEF NPPUNICODE} nppString = UnicodeString; nppChar = WChar; nppPChar = PWChar; {$ELSE} nppString = AnsiString; nppChar = AnsiChar; nppPChar = PAnsiChar; {$ENDIF} |
︙ | ︙ | |||
425 426 427 428 429 430 431 | TToolbarIcons = record ToolbarBmp: HBITMAP; ToolbarIcon: HICON; end; TCommunicationInfo = record | | | 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 | TToolbarIcons = record ToolbarBmp: HBITMAP; ToolbarIcon: HICON; end; TCommunicationInfo = record internalMsg: NativeUInt; srcModuleName: nppPChar; info: Pointer; end; TNppData = record NppHandle: HWND; ScintillaMainHandle: HWND; |
︙ | ︙ | |||
469 470 471 472 473 474 475 | PrevContainer: Cardinal; // internal ModuleName:nppPChar; // name of module GetModuleFileName(0...) end; TNppPlugin = class(TObject) private FuncArray: array of _TFuncItem; | | | 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 | PrevContainer: Cardinal; // internal ModuleName:nppPChar; // name of module GetModuleFileName(0...) end; TNppPlugin = class(TObject) private FuncArray: array of _TFuncItem; FClosingBufferID: THandle; FConfigDir: string; protected PluginName: nppString; function GetPluginsConfigDir: string; function AddFuncSeparator: Integer; function AddFuncItem(Name: nppString; Func: PFUNCPLUGINCMD): Integer; overload; function AddFuncItem(Name: nppString; Func: PFUNCPLUGINCMD; ShortcutKey: TShortcutKey): Integer; overload; |
︙ | ︙ | |||
499 500 501 502 503 504 505 | function GetFuncsArray(var FuncsCount: Integer): Pointer; procedure BeNotified(sn: PSCNotification); procedure MessageProc(var Msg: TMessage); virtual; // hooks procedure DoNppnToolbarModification; virtual; procedure DoNppnShutdown; virtual; | | | | 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 | function GetFuncsArray(var FuncsCount: Integer): Pointer; procedure BeNotified(sn: PSCNotification); procedure MessageProc(var Msg: TMessage); virtual; // hooks procedure DoNppnToolbarModification; virtual; procedure DoNppnShutdown; virtual; procedure DoNppnBufferActivated(const BufferID: THandle); virtual; procedure DoNppnFileClosed(const BufferID: THandle); virtual; procedure DoUpdateUI(const hwnd: HWND; const updated: Integer); virtual; procedure DoModified(const hwnd: HWND; const modificationType: Integer); virtual; // df function DoOpen(filename: String): boolean; overload; function DoOpen(filename: String; Line: Integer): boolean; overload; procedure GetFileLine(var filename: String; var Line: Integer); |
︙ | ︙ | |||
748 749 750 751 752 753 754 | end; procedure TNppPlugin.DoNppnToolbarModification; begin // override these end; | | | | 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 | end; procedure TNppPlugin.DoNppnToolbarModification; begin // override these end; procedure TNppPlugin.DoNppnBufferActivated(const BufferID: THandle); begin // override these end; procedure TNppPlugin.DoNppnFileClosed(const BufferID: THandle); begin // override these end; procedure TNppPlugin.DoModified(const hwnd: HWND; const modificationType: Integer); begin // override these |
︙ | ︙ |
Changes to src/prj/PreviewHTML.dproj.
1 2 3 4 5 6 | <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <PropertyGroup> <ProjectGuid>{A2533A0E-8621-4A31-A675-059AFF5AA9FB}</ProjectGuid> <MainSource>PreviewHTML.dpr</MainSource> <Base>True</Base> <Config Condition="'$(Config)'==''">Debug</Config> | | | > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <PropertyGroup> <ProjectGuid>{A2533A0E-8621-4A31-A675-059AFF5AA9FB}</ProjectGuid> <MainSource>PreviewHTML.dpr</MainSource> <Base>True</Base> <Config Condition="'$(Config)'==''">Debug</Config> <TargetedPlatforms>3</TargetedPlatforms> <AppType>Library</AppType> <FrameworkType>VCL</FrameworkType> <ProjectVersion>18.3</ProjectVersion> <Platform Condition="'$(Platform)'==''">Win64</Platform> </PropertyGroup> <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> <Base>true</Base> </PropertyGroup> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''"> <Base_Win32>true</Base_Win32> <CfgParent>Base</CfgParent> <Base>true</Base> </PropertyGroup> <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''"> <Base_Win64>true</Base_Win64> <CfgParent>Base</CfgParent> <Base>true</Base> </PropertyGroup> <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''"> <Cfg_1>true</Cfg_1> <CfgParent>Base</CfgParent> <Base>true</Base> </PropertyGroup> <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''"> |
︙ | ︙ | |||
60 61 62 63 64 65 66 67 68 69 70 71 72 73 | <DCC_E>false</DCC_E> <DCC_DcuOutput>..\..\out\dcu\$(PLATFORM)\$(CONFIG)</DCC_DcuOutput> </PropertyGroup> <PropertyGroup Condition="'$(Base_Win32)'!=''"> <DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes> </PropertyGroup> <PropertyGroup Condition="'$(Cfg_1)'!=''"> <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols> <DCC_DebugInformation>0</DCC_DebugInformation> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> </PropertyGroup> <PropertyGroup Condition="'$(Cfg_2)'!=''"> | > > > > > | 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 | <DCC_E>false</DCC_E> <DCC_DcuOutput>..\..\out\dcu\$(PLATFORM)\$(CONFIG)</DCC_DcuOutput> </PropertyGroup> <PropertyGroup Condition="'$(Base_Win32)'!=''"> <DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes> </PropertyGroup> <PropertyGroup Condition="'$(Base_Win64)'!=''"> <DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace> <BT_BuildType>Debug</BT_BuildType> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> </PropertyGroup> <PropertyGroup Condition="'$(Cfg_1)'!=''"> <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols> <DCC_DebugInformation>0</DCC_DebugInformation> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> </PropertyGroup> <PropertyGroup Condition="'$(Cfg_2)'!=''"> |
︙ | ︙ | |||
160 161 162 163 164 165 166 | <VersionInfoKeys Name="ProductName"/> <VersionInfoKeys Name="ProductVersion">6.0.0.0</VersionInfoKeys> <VersionInfoKeys Name="Comments"/> </VersionInfoKeys> </Delphi.Personality> <Platforms> <Platform value="Win32">True</Platform> | | | 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 | <VersionInfoKeys Name="ProductName"/> <VersionInfoKeys Name="ProductVersion">6.0.0.0</VersionInfoKeys> <VersionInfoKeys Name="Comments"/> </VersionInfoKeys> </Delphi.Personality> <Platforms> <Platform value="Win32">True</Platform> <Platform value="Win64">True</Platform> </Platforms> </BorlandProject> <ProjectFileVersion>12</ProjectFileVersion> </ProjectExtensions> <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/> <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/> <PropertyGroup Condition="'$(Config)'=='Release' And '$(Platform)'=='Win32'"> |
︙ | ︙ |