> main.pas:
> "
> const
> versiontext = '3.7';
> idecaption = 'MSEide';
> statname = 'mseide';
>
> [...]
>
> procedure tmainfo.mainonloaded(const sender: tobject);
> var
> wstr1: msestring;
> begin
> try
> wstr1:= filepath(statdirname);
> if not finddir(wstr1) then begin
> createdir(wstr1);
> end;
> {$ifdef mswindows}
> mainstatfile.filename:= statname+'wi.sta';
> {$endif}
> {$ifdef linux}
> mainstatfile.filename:= statname+'li.sta';
> {$endif}
> {$ifdef openbsd}
> mainstatfile.filename:= statname+'obsd.sta';
> {$endif}
> {$ifdef bsd}
> mainstatfile.filename:= statname+'bsd.sta';
> {$endif}
> mainstatfile.readstat;
> expandprojectmacros;
> onscale(nil);
> finally
> mainfo.activate;
> end;
> {$ifdef mse_dumpunitgroups}
> dumpunitgr;
> {$endif}
> end;
Perfect. Works like charm and thanks for your generosity.
Hum, subsidiary question...
How did you do to hide statdirname in version '3.6' ?
I have changed statdirname:= '.ideu' but it still saved in '.mseide' (but
.ideu/ directory is created, empty.)...
And i looked in your code everywhere and did not find where you assign it...
(or maybe it is a secret, so keep it...)
Billion of thanks.
Fred
------------------------------------------------------------------------------
Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server
from Actuate! Instantly Supercharge Your Business Reports and Dashboards
with Interactivity, Sharing, Native Excel Exports, App Integration & more
Get technology previously reserved for billion-dollar corporations, FREE
http://pubads.g.doubleclick.net/gampad/clk?id=164703151&iu=/4140/ostg.clktrk
_______________________________________________
mseide-msegui-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
