/ide/multireplacedlg.pas

http://github.com/graemeg/lazarus · Pascal · 64 lines · 28 code · 9 blank · 27 comment · 0 complexity · 04b28bdef31824abc43e44d1c89b74a3 MD5 · raw file

  1. {
  2. ***************************************************************************
  3. * *
  4. * This source 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 of the License, or *
  7. * (at your option) any later version. *
  8. * *
  9. * This code is distributed in the hope that it will be useful, but *
  10. * WITHOUT ANY WARRANTY; without even the implied warranty of *
  11. * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
  12. * General Public License for more details. *
  13. * *
  14. * A copy of the GNU General Public License is available on the World *
  15. * Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
  16. * obtain it by writing to the Free Software Foundation, *
  17. * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
  18. * *
  19. ***************************************************************************
  20. Author: Mattias Gaertner
  21. Abstract:
  22. Dialog and functions for multi replace in source editor.
  23. }
  24. unit MultiReplaceDlg;
  25. {$mode objfpc}{$H+}
  26. interface
  27. uses
  28. Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Buttons,
  29. StdCtrls, ExtCtrls, ComCtrls;
  30. type
  31. TMultiReplaceDialog = class(TForm)
  32. ItemOptionsCheckgroup: TCHECKGROUP;
  33. Edit1: TEDIT;
  34. Edit2: TEDIT;
  35. FindTextLabel: TLABEL;
  36. ReplaceWithLabel: TLABEL;
  37. PropertiesGroupbox: TGROUPBOX;
  38. ItemsListview: TLISTVIEW;
  39. ReplaceButton: TBUTTON;
  40. CancelButton: TBUTTON;
  41. ItemsGroupbox: TGROUPBOX;
  42. OptionsGroupbox: TGROUPBOX;
  43. OriginRadiogroup: TRADIOGROUP;
  44. DirectionRadiogroup: TRADIOGROUP;
  45. ScopeRadiogroup: TRADIOGROUP;
  46. private
  47. public
  48. end;
  49. var
  50. MultiReplaceDialog: TMultiReplaceDialog;
  51. implementation
  52. {$R *.lfm}
  53. end.