forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix windows building broken

This commit is contained in:
Basile Burg 2016-08-22 10:50:44 +02:00
parent 15f15725e0
commit cc9420b78d
3 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_common.pas
View File

@ -795,7 +795,7 @@ begin
if not GetVolumeInformation(PChar(ltr), PChar(nme), 255, nil, nil, nil, nil, 0) then if not GetVolumeInformation(PChar(ltr), PChar(nme), 255, nil, nil, nil, nil, 0) then
continue; continue;
case GetDriveType(PChar(ltr)) of case GetDriveType(PChar(ltr)) of
DRIVE_REMOVABLE, DRIVE_FIXED, DRIVE_REMOTE: aList.Add(ltr); DRIVE_REMOVABLE, DRIVE_FIXED, DRIVE_REMOTE: list.Add(ltr);
end; end;
except except
// SEM_FAILCRITICALERRORS: exception is sent to application. // SEM_FAILCRITICALERRORS: exception is sent to application.
@ -812,7 +812,7 @@ end;
function shellOpen(const fname: string): boolean; function shellOpen(const fname: string): boolean;
begin begin
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
result := ShellExecute(0, 'OPEN', PChar(aFilename), nil, nil, SW_SHOW) > 32; result := ShellExecute(0, 'OPEN', PChar(fname), nil, nil, SW_SHOW) > 32;
{$ENDIF} {$ENDIF}
{$IFDEF LINUX} {$IFDEF LINUX}
with TProcess.Create(nil) do with TProcess.Create(nil) do

1
src/ce_infos.pas
View File

@ -6,6 +6,7 @@ interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, strutils, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, strutils,
{$IFDEF WINDOWS}Windows,{$ENDIF}
StdCtrls, ExtCtrls, Buttons, Menus,ce_widget, ce_common, ce_sharedres; StdCtrls, ExtCtrls, Buttons, Menus,ce_widget, ce_common, ce_sharedres;
type type

5
src/ce_main.pas
View File

@ -8,6 +8,7 @@ uses
Classes, SysUtils, LazFileUtils, SynEditKeyCmds, SynHighlighterLFM, Forms, Classes, SysUtils, LazFileUtils, SynEditKeyCmds, SynHighlighterLFM, Forms,
StdCtrls, AnchorDocking, AnchorDockStorage, AnchorDockOptionsDlg, Controls, StdCtrls, AnchorDocking, AnchorDockStorage, AnchorDockOptionsDlg, Controls,
Graphics, strutils, Dialogs, Menus, ActnList, ExtCtrls, process, Graphics, strutils, Dialogs, Menus, ActnList, ExtCtrls, process,
{$IFDEF WINDOWS}Windows, {$ENDIF}
XMLPropStorage, SynExportHTML, fphttpclient, xfpjson, xjsonparser, xjsonscanner, XMLPropStorage, SynExportHTML, fphttpclient, xfpjson, xjsonparser, xjsonscanner,
ce_common, ce_dmdwrap, ce_nativeproject, ce_synmemo, ce_writableComponent, ce_common, ce_dmdwrap, ce_nativeproject, ce_synmemo, ce_writableComponent,
ce_widget, ce_messages, ce_interfaces, ce_editor, ce_projinspect, ce_projconf, ce_widget, ce_messages, ce_interfaces, ce_editor, ce_projinspect, ce_projconf,
@ -1302,9 +1303,9 @@ begin
splt := TAnchorDockSplitter(sender); splt := TAnchorDockSplitter(sender);
splt.MoveSplitter(offs); splt.MoveSplitter(offs);
if splt.ResizeAnchor in [akLeft, akRight] then if splt.ResizeAnchor in [akLeft, akRight] then
Mouse.CursorPos:= Point(Mouse.CursorPos.X + offs, Mouse.CursorPos.Y) Mouse.CursorPos:= classes.Point(Mouse.CursorPos.X + offs, Mouse.CursorPos.Y)
else else
Mouse.CursorPos:= Point(Mouse.CursorPos.X, Mouse.CursorPos.Y + offs); Mouse.CursorPos:= classes.Point(Mouse.CursorPos.X, Mouse.CursorPos.Y + offs);
Handled := true; Handled := true;
end; end;