PageRenderTime 21ms CodeModel.GetById 17ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/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
21  Author: Mattias Gaertner
22  
23  Abstract:
24    Dialog and functions for multi replace in source editor.
25}
26unit MultiReplaceDlg;
27
28{$mode objfpc}{$H+}
29
30interface
31
32uses
33  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Buttons,
34  StdCtrls, ExtCtrls, ComCtrls;
35
36type
37  TMultiReplaceDialog = class(TForm)
38    ItemOptionsCheckgroup: TCHECKGROUP;
39    Edit1: TEDIT;
40    Edit2: TEDIT;
41    FindTextLabel: TLABEL;
42    ReplaceWithLabel: TLABEL;
43    PropertiesGroupbox: TGROUPBOX;
44    ItemsListview: TLISTVIEW;
45    ReplaceButton: TBUTTON;
46    CancelButton: TBUTTON;
47    ItemsGroupbox: TGROUPBOX;
48    OptionsGroupbox: TGROUPBOX;
49    OriginRadiogroup: TRADIOGROUP;
50    DirectionRadiogroup: TRADIOGROUP;
51    ScopeRadiogroup: TRADIOGROUP;
52  private
53  public
54  end;
55
56var
57  MultiReplaceDialog: TMultiReplaceDialog;
58
59implementation
60
61{$R *.lfm}
62
63end.
64