ProgramOutputUnit.pas 1.4 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253
  1. {
  2. TIGCC IDE
  3. Copyright (C) 2000-2004 Sebastian Reichelt
  4. This program is free software; you can redistribute it and/or modify
  5. it under the terms of the GNU General Public License as published by
  6. the Free Software Foundation; either version 2, or (at your option)
  7. any later version.
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  11. GNU General Public License for more details.
  12. You should have received a copy of the GNU General Public License
  13. along with this program; if not, write to the Free Software Foundation,
  14. Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  15. }
  16. unit ProgramOutputUnit;
  17. interface
  18. uses
  19. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  20. ExtCtrls, MemoComponentUnit;
  21. type
  22. TProgramOutputForm = class(TForm)
  23. OutputMemo: TMemoComponent;
  24. ErrorMemo: TMemoComponent;
  25. Splitter: TSplitter;
  26. Panel1: TPanel;
  27. Panel2: TPanel;
  28. procedure FormShow(Sender: TObject);
  29. private
  30. public
  31. end;
  32. implementation
  33. {$R *.DFM}
  34. procedure TProgramOutputForm.FormShow(Sender: TObject);
  35. begin
  36. OutputMemo.Selection.RStart := OutputMemo.TextLength + 1;
  37. OutputMemo.Selection.ScrollInView (0);
  38. ErrorMemo.Selection.RStart := ErrorMemo.TextLength + 1;
  39. ErrorMemo.Selection.ScrollInView (0);
  40. end;
  41. end.