Am Samstag 27 August 2011, 17:42:04 schrieb Миноши Александр:
> OS - archlinux (with all updates)
> LXDE, iceWM
> mse 2.6
> fpc 2.4.4 (from reposotory)
>
> i have two forms : mainfo and askfo
> tmainfo - main form with button. Click on this button starts our process.
> there is code :
>
> procedure tmainfo.on_execute(const sender: TObject);
> var s : string;
> begin
> <* here I prepare command line and write it in s *>
>
> askfo.widgetgrid.clear;
> askfo.terminal.addline('=====================');
> askfo.terminal.addline('=> EXECUTE : ' + s);
> askfo.terminal.addline('=====================');
> askfo.terminal.execprog(s);
> end;
>
> askfo - here twidgetgrid and tterminal are placed.
>
> the code tterminal.onreceivetext :
>
> procedure taskfo.on_text(const sender: TObject; var atext: AnsiString;
> const errorinput: Boolean); var i : integer;
> begin
> while pos_(' ', atext) > 0 do
> begin
> i := pos_(' ', atext);
> delete(atext, i, length(' '));
> insert(' ', atext, i);
> end;
> if pos_('/var/lib/pacman/db.lck', atext) > 0 then b_del.visible := true;
> if (pos_('? [',atext) > 0) then s_.visible := true; (*s_ - tspacer
> with buttons for send answer to tterminal*) if (pos_('[Y/n',atext) > 0)
> then s_.visible := true;
> if (pos_('[y/N',atext) > 0) then s_.visible := true;
> if (pos_('[n/Y',atext) > 0) then s_.visible := true;
> if (pos_(' to abort',atext) > 0) then s_abort.visible := true;
> if ((pos_('ошибка',atext) = 1)or(pos_('error',atext)=1))
> then begin b_close.visible := true; error := true; end;
> end;
>
> i tried to switch off this procedure, but but problem is still present.
>
> program source code (direct link)
> http://almin-soft.nx0.ru/media/files/sources/download.php?get=pacmanxg_src
> .tar.bz2
>
Please extract the problematic code into a separate project so that I can run
the test without the pacman environment. Ideal would be an additional
"pacman simulator" program which produces the error for you which I can use to
debug.
Martin
_______________________________________________
MSEide-MSEgui-talk mailing list
MSEide-MSEgui-talk@lists.berlios.de
https://lists.berlios.de/mailman/listinfo/mseide-msegui-talk
