mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-10-31 06:21:38 +01:00
88 lines
1.9 KiB
ObjectPascal
88 lines
1.9 KiB
ObjectPascal
unit Unit1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
|
ActnList, StdActns, ComCtrls, Menus;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
ActionList1: TActionList;
|
|
ColorSelect1: TColorSelect;
|
|
Edit1: TEdit;
|
|
EditCopy1: TEditCopy;
|
|
EditCut1: TEditCut;
|
|
EditDelete1: TEditDelete;
|
|
EditPaste1: TEditPaste;
|
|
EditSelectAll1: TEditSelectAll;
|
|
EditUndo1: TEditUndo;
|
|
FileExit1: TFileExit;
|
|
FileOpen1: TFileOpen;
|
|
FileOpenWith1: TFileOpenWith;
|
|
FileSaveAs1: TFileSaveAs;
|
|
FontEdit1: TFontEdit;
|
|
ImageList1: TImageList;
|
|
MainMenu1: TMainMenu;
|
|
Memo1: TMemo;
|
|
MenuItem1: TMenuItem;
|
|
MenuItem10: TMenuItem;
|
|
MenuItem11: TMenuItem;
|
|
MenuItem12: TMenuItem;
|
|
MenuItem13: TMenuItem;
|
|
MenuItem16: TMenuItem;
|
|
MenuItem17: TMenuItem;
|
|
MenuItem2: TMenuItem;
|
|
MenuItem3: TMenuItem;
|
|
MenuItem4: TMenuItem;
|
|
MenuItem5: TMenuItem;
|
|
MenuItem6: TMenuItem;
|
|
MenuItem7: TMenuItem;
|
|
MenuItem8: TMenuItem;
|
|
MenuItem9: TMenuItem;
|
|
SearchFind1: TSearchFind;
|
|
SearchFindFirst1: TSearchFindFirst;
|
|
SearchFindNext1: TSearchFindNext;
|
|
SearchReplace1: TSearchReplace;
|
|
ToolBar1: TToolBar;
|
|
ToolButton1: TToolButton;
|
|
ToolButton10: TToolButton;
|
|
ToolButton11: TToolButton;
|
|
ToolButton2: TToolButton;
|
|
ToolButton3: TToolButton;
|
|
ToolButton4: TToolButton;
|
|
ToolButton5: TToolButton;
|
|
ToolButton6: TToolButton;
|
|
ToolButton7: TToolButton;
|
|
ToolButton8: TToolButton;
|
|
ToolButton9: TToolButton;
|
|
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
|
|
begin
|
|
CanClose := MessageDlg('Do you want to exit?', mtConfirmation, [mbYes, mbNo], 0) = mrYes;
|
|
end;
|
|
|
|
initialization
|
|
{$I unit1.lrs}
|
|
|
|
end.
|
|
|