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

fix, missing sym string expansion, project couldnt be executed anymore if containing a sym string.

This commit is contained in:
Basile Burg 2014-11-14 18:50:32 +01:00
parent b914ae5970
commit c67abe2ac9
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ce_messages.lfm
View File

@ -1,7 +1,7 @@
inherited CEMessagesWidget: TCEMessagesWidget inherited CEMessagesWidget: TCEMessagesWidget
Left = 1135 Left = 694
Height = 172 Height = 172
Top = 183 Top = 198
Width = 739 Width = 739
Caption = 'Messages' Caption = 'Messages'
ClientHeight = 172 ClientHeight = 172
@ -49,7 +49,6 @@ inherited CEMessagesWidget: TCEMessagesWidget
Width = 735 Width = 735
AutoSize = True AutoSize = True
BorderSpacing.Around = 2 BorderSpacing.Around = 2
BorderWidth = 150
ButtonHeight = 24 ButtonHeight = 24
ButtonWidth = 100 ButtonWidth = 100
Flat = False Flat = False

1
src/ce_project.pas
View File

@ -310,6 +310,7 @@ end;
function TCEProject.outputFilename: string; function TCEProject.outputFilename: string;
begin begin
result := currentConfiguration.pathsOptions.outputFilename; result := currentConfiguration.pathsOptions.outputFilename;
result := CEMainForm.expandSymbolicString(result);
if result <> '' then if result <> '' then
begin begin
if not fileExists(result) then if not fileExists(result) then