Commit 9bb7dd70 authored by Martin Schreiber's avatar Martin Schreiber

* MSEunitdep use tmemodialogedit as path display.

* Skip message numbers.
parent 6774497d
......@@ -14,6 +14,7 @@ object mainfo: tmainfo
)
statfile = tstatfile1
caption = 'MSEunitdep'
windowopacity = -Inf
moduleclassname = 'tmainform'
object filename: tfilenameedit
frame.localprops = []
......@@ -105,6 +106,11 @@ object mainfo: tmainfo
frame.localprops = []
frame.localprops1 = []
frame.button.color = -2147483646
frame.buttons.count = 1
frame.buttons.items = <
item
color = -2147483646
end>
frame.outerframe = (
0
17
......@@ -133,6 +139,11 @@ object mainfo: tmainfo
frame.localprops = []
frame.localprops1 = []
frame.button.color = -2147483646
frame.buttons.count = 1
frame.buttons.items = <
item
color = -2147483646
end>
frame.outerframe = (
0
17
......@@ -156,16 +167,25 @@ object mainfo: tmainfo
end>
reffontheight = 14
end
object pathdisp: tstringdisp
frame.localprops = []
object pathdisp: tmemodialogedit
frame.levelo = -1
frame.colorclient = -1879048184
frame.localprops = [frl_levelo, frl_colorclient]
frame.localprops1 = []
frame.buttons.count = 1
frame.buttons.items = <
item
imagenr = 17
end>
frame.button.imagenr = 17
taborder = 5
bounds_x = 1
bounds_y = 259
bounds_cx = 401
bounds_cy = 18
anchors = [an_left, an_right, an_bottom]
options = [dwo_hintclippedtext]
optionsedit1 = [oe1_autopopupmenu, oe1_keyexecute, oe1_readonlydialog, oe1_savevalue, oe1_savestate, oe1_checkvalueafterstatread]
optionsedit = [oe_readonly, oe_undoonesc, oe_closequery, oe_checkmrcancel, oe_shiftreturn, oe_eatreturn, oe_resetselectonexit, oe_exitoncursor, oe_endonenter, oe_autoselect, oe_autoselectonfirstclick, oe_focusrectonreadonly]
reffontheight = 14
end
object tsplitter1: tsplitter
......
......@@ -23,7 +23,7 @@ uses
msedataedits,msedatanodes,mseedit,msefiledialog,msegrids,mseifiglob,
mselistbrowser,msestrings,msesys,msetypes,msesimplewidgets,msewidgets,
msewidgetgrid,mselist,classes,mclasses,mseificomp,mseificompglob,msedispwidgets,
msesplitter,msevaluenodes;
msesplitter,msevaluenodes,msememodialog;
type
tdependencylist = class;
......@@ -79,7 +79,7 @@ type
dropdownunits: tifidropdownlistlinkcomp;
start: tdropdownlistedit;
dest: tdropdownlistedit;
pathdisp: tstringdisp;
pathdisp: tmemodialogedit;
tsplitter1: tsplitter;
procedure scanexe(const sender: TObject);
procedure pathdatentexe(const sender: TObject);
......@@ -191,6 +191,8 @@ var
int1,int2: integer;
info1: dependencyinfoty;
name1{,depend1}: string;
b1: boolean;
i1: int32;
begin
stream1:= ttextstream.create(afilename);
try
......@@ -204,7 +206,16 @@ begin
name1:= struppercase(copy(str1,2,int1-2));
if (fapplication = '') and
(name1 <> 'PROGRAM') and (name1 <> 'SYSTEM') then begin
fapplication:= name1;
b1:= false;
for i1:= 1 to high(name1) do begin
if (name1[i1] < '0') or (name1[i1] > '9') then begin
b1:= true;
break;
end;
end;
if b1 then begin
fapplication:= name1;
end;
end;
if name1 = fapplication then begin
int2:= posex(' Load from ',str1,int1);
......
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment