IDE: new dialog for r50196 #14e8ffa23a

git-svn-id: trunk@50197 -

.gitattributes

@@ -5634,6 +5634,8 @@ ide/checkcompoptsfornewunitdlg.lfm svneol=native#text/plain
 ide/checkcompoptsfornewunitdlg.pas svneol=native#text/plain
 ide/checklfmdlg.lfm svneol=native#text/plain
 ide/checklfmdlg.pas svneol=native#text/pascal
+ide/chooseclasssectiondlg.lfm svneol=native#text/plain
+ide/chooseclasssectiondlg.pas svneol=native#text/plain
 ide/cleandirdlg.lfm svneol=native#text/plain
 ide/cleandirdlg.pas svneol=native#text/pascal
 ide/clipboardhistory.pas svneol=native#text/pascal

ide/chooseclasssectiondlg.lfm

@@ -0,0 +1,45 @@
+object ChooseClassSectionDialog: TChooseClassSectionDialog
+  Left = 460
+  Height = 177
+  Top = 220
+  Width = 252
+  BorderStyle = bsDialog
+  Caption = 'ChooseClassSectionDialog'
+  ClientHeight = 177
+  ClientWidth = 252
+  KeyPreview = True
+  OnKeyPress = FormKeyPress
+  Position = poDesktopCenter
+  LCLVersion = '1.5'
+  object SectionsListBox: TListBox
+    Left = 10
+    Height = 117
+    Top = 10
+    Width = 232
+    Align = alClient
+    BorderSpacing.Left = 10
+    BorderSpacing.Top = 10
+    BorderSpacing.Right = 10
+    BorderSpacing.Bottom = 10
+    ItemHeight = 0
+    OnDblClick = SectionsListBoxDblClick
+    OnKeyPress = SectionsListBoxKeyPress
+    TabOrder = 0
+  end
+  object ButtonPanel: TButtonPanel
+    Left = 6
+    Height = 34
+    Top = 137
+    Width = 240
+    OKButton.Name = 'OKButton'
+    OKButton.DefaultCaption = True
+    HelpButton.Name = 'HelpButton'
+    HelpButton.DefaultCaption = True
+    CloseButton.Name = 'CloseButton'
+    CloseButton.DefaultCaption = True
+    CancelButton.Name = 'CancelButton'
+    CancelButton.DefaultCaption = True
+    TabOrder = 1
+    ShowButtons = [pbOK]
+  end
+end

ide/chooseclasssectiondlg.pas

@@ -0,0 +1,127 @@
+{
+ ***************************************************************************
+ *                                                                         *
+ *   This source is free software; you can redistribute it and/or modify   *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ *   This code is distributed in the hope that it will be useful, but      *
+ *   WITHOUT ANY WARRANTY; without even the implied warranty of            *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU     *
+ *   General Public License for more details.                              *
+ *                                                                         *
+ *   A copy of the GNU General Public License is available on the World    *
+ *   Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also      *
+ *   obtain it by writing to the Free Software Foundation,                 *
+ *   Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.        *
+ *                                                                         *
+ ***************************************************************************
+
+  Author: Ondrej Pokorny
+
+  Abstract:
+    A simple dialog to select class section.
+}
+unit ChooseClassSectionDlg;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  ButtonPanel, SourceChanger, LazarusIDEStrConsts, EnvironmentOpts;
+
+type
+  //this dialog can easily be reused.
+  //for now it is used only in the method event assignment code creation
+
+  TChooseClassSectionDialog = class(TForm)
+    ButtonPanel: TButtonPanel;
+    SectionsListBox: TListBox;
+    procedure FormKeyPress(Sender: TObject; var Key: char);
+    procedure SectionsListBoxDblClick(Sender: TObject);
+    procedure SectionsListBoxKeyPress(Sender: TObject; var Key: char);
+  protected
+    procedure DoCreate; override;
+  public
+
+  end;
+
+function ChooseClassSectionDialog(const ACaption: string; ADefault: TInsertClassSectionResult;
+  out Section: TInsertClassSectionResult): Boolean;
+function ShowEventMethodSectionDialog(out Section: TInsertClassSectionResult): Boolean;
+
+implementation
+
+{$R *.lfm}
+
+function ChooseClassSectionDialog(const ACaption: string; ADefault: TInsertClassSectionResult;
+  out Section: TInsertClassSectionResult): Boolean;
+var
+  Dlg: TChooseClassSectionDialog;
+begin
+  Dlg := TChooseClassSectionDialog.Create(Application);
+  try
+    Dlg.Caption := ACaption;
+    Dlg.PopupMode := pmAuto;
+    if Ord(ADefault) < Dlg.SectionsListBox.Count then
+      Dlg.SectionsListBox.ItemIndex := Ord(ADefault)
+    else
+      Dlg.SectionsListBox.ItemIndex := 0;
+    Result := Dlg.ShowModal = mrOK;
+    if Result then
+      Section := TInsertClassSectionResult(Dlg.SectionsListBox.ItemIndex)
+    else
+      Section := icsrPrivate;
+  finally
+    Dlg.Free;
+  end;
+end;
+
+function ShowEventMethodSectionDialog(out Section: TInsertClassSectionResult): Boolean;
+begin
+  Result := ChooseClassSectionDialog(lisChooseClassSectionDlgForMethodCaption,
+    EnvironmentOptions.LastEventMethodSectionPrompt, Section);
+  if Result then
+    EnvironmentOptions.LastEventMethodSectionPrompt := Section;
+end;
+
+{ TChooseClassSectionDialog }
+
+procedure TChooseClassSectionDialog.DoCreate;
+begin
+  inherited DoCreate;
+
+  Assert(Ord(High(TInsertClassSectionResult)) = 3,  'TChooseClassSectionDialog.DoCreate: High(TInsertClassSectionResult) <> 3');
+  SectionsListBox.Items.Add(lisPrivate);
+  SectionsListBox.Items.Add(lisProtected);
+  SectionsListBox.Items.Add(lisEMDPublic);
+  SectionsListBox.Items.Add(lisEMDPublished);
+end;
+
+procedure TChooseClassSectionDialog.FormKeyPress(Sender: TObject;
+  var Key: char);
+begin
+  if Key = #27 then
+    ModalResult := mrCancel;
+end;
+
+procedure TChooseClassSectionDialog.SectionsListBoxDblClick(Sender: TObject);
+begin
+  ModalResult := mrOK;
+end;
+
+procedure TChooseClassSectionDialog.SectionsListBoxKeyPress(
+  Sender: TObject; var Key: char);
+begin
+  if Key = #13 then
+    ModalResult := mrOK;
+end;
+
+initialization
+  ShowEventMethodSectionPrompt := @ShowEventMethodSectionDialog;
+
+end.
+