pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

* fix res warning

Browse Source 
git-svn-id: https://svn.code.sf.net/p/kolmck/code@148 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
This commit is contained in:
dkolmck
2014-12-10 05:57:10 +00:00
parent fe48e64341
commit 6ee2903e91
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
MCKAppExpert200x.pas
View File

@@ -199,6 +199,8 @@ const
'end' + #13#10 + 'end' + #13#10 +
'end'; 'end';
res_template = #0#0#0#0#32#0#0#0#255#255#0#0#255#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;
implementation implementation
procedure Register; procedure Register;
@@ -213,6 +215,7 @@ var
unt: String; unt: String;
dlg: TSaveDialog; dlg: TSaveDialog;
lst: TStringList; lst: TStringList;
resfile: Integer;
begin begin
dlg := TSaveDialog.Create(nil); dlg := TSaveDialog.Create(nil);
dlg.Options := [ofOverwritePrompt, ofExtensionDifferent, ofPathMustExist]; dlg.Options := [ofOverwritePrompt, ofExtensionDifferent, ofPathMustExist];
@@ -245,6 +248,12 @@ begin
lst.Text := StringReplace(dfm_template, '%path%', ExtractFilePath(unt), [rfReplaceAll]); lst.Text := StringReplace(dfm_template, '%path%', ExtractFilePath(unt), [rfReplaceAll]);
lst.Text := StringReplace(lst.Text, '%unt_name%', unt_name, [rfReplaceAll]); lst.Text := StringReplace(lst.Text, '%unt_name%', unt_name, [rfReplaceAll]);
lst.SaveToFile(ChangeFileExt(unt, '.dfm')); lst.SaveToFile(ChangeFileExt(unt, '.dfm'));
// gen dummy res file
resfile := FileCreate(ChangeFileExt(prj, '.res'));
if (resfile <> -1) then begin
FileWrite(resfile, res_template, Length(res_template));
FileClose(resfile);
end;
// close all // close all
//if (MessageBox(0, 'Close all projects before opening new?', 'MCKAppExpert200x', MB_ICONQUESTION or MB_YESNO) = IDYES) then //if (MessageBox(0, 'Close all projects before opening new?', 'MCKAppExpert200x', MB_ICONQUESTION or MB_YESNO) = IDYES) then
// (BorlandIDEServices as IOTAModuleServices).CloseAll; // (BorlandIDEServices as IOTAModuleServices).CloseAll;
@@ -265,7 +274,7 @@ end;
function TMCKWizard.GetComment: string; function TMCKWizard.GetComment: string;
begin begin
Result := 'v0.02'; Result := 'v0.03';
end; end;
function TMCKWizard.GetGlyph: Cardinal; function TMCKWizard.GetGlyph: Cardinal;