mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-22 07:19:31 +02:00
added mrumenu from Michael
git-svn-id: trunk@32297 -
This commit is contained in:
mattias
parent
871b285d8f
commit
79be62f338
12
.gitattributes
vendored
12
.gitattributes
vendored
@ -1777,6 +1777,18 @@ components/mouseandkeyinput/winmouseinput.pas svneol=native#text/pascal
|
||||
components/mouseandkeyinput/xkeyinput.pas svneol=native#text/pascal
|
||||
components/mouseandkeyinput/xmouseinput.pas svneol=native#text/pascal
|
||||
components/mpaslex/mpaslex.pp svneol=native#text/pascal
|
||||
components/mrumenu/demo/frmmain.lfm svneol=native#text/plain
|
||||
components/mrumenu/demo/frmmain.pp svneol=native#text/plain
|
||||
components/mrumenu/demo/mrudemo.ico -text svneol=unset#image/ico
|
||||
components/mrumenu/demo/mrudemo.lpi svneol=native#text/plain
|
||||
components/mrumenu/demo/mrudemo.lpr svneol=native#text/plain
|
||||
components/mrumenu/demo/mrudemo.res -text
|
||||
components/mrumenu/lazmrumenu.lpk svneol=native#text/plain
|
||||
components/mrumenu/lazmrumenu.pas svneol=native#text/plain
|
||||
components/mrumenu/mrumanager.pp svneol=native#text/plain
|
||||
components/mrumenu/reglazmru.pp svneol=native#text/plain
|
||||
components/mrumenu/regmru.lrs svneol=native#text/plain
|
||||
components/mrumenu/tmrumenumanager.png -text svneol=unset#image/png
|
||||
components/opengl/example/imgui.lpi svneol=native#text/plain
|
||||
components/opengl/example/imgui.pas svneol=native#text/pascal
|
||||
components/opengl/example/imgui.res -text
|
||||
|
||||
78
components/mrumenu/demo/frmmain.lfm
Normal file
78
components/mrumenu/demo/frmmain.lfm
Normal file
@ -0,0 +1,78 @@
|
||||
object Form1: TForm1
|
||||
Left = 422
|
||||
Height = 240
|
||||
Top = 281
|
||||
Width = 320
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 218
|
||||
ClientWidth = 320
|
||||
Menu = MainMenu1
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
LCLVersion = '0.9.31'
|
||||
object PCFiles: TPageControl
|
||||
Left = 0
|
||||
Height = 218
|
||||
Top = 0
|
||||
Width = 320
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
end
|
||||
object MainMenu1: TMainMenu
|
||||
left = 57
|
||||
top = 37
|
||||
object MFile: TMenuItem
|
||||
Caption = '&File'
|
||||
object MINew: TMenuItem
|
||||
Caption = '&New'
|
||||
ShortCut = 16462
|
||||
OnClick = MINewClick
|
||||
end
|
||||
object MIOpen: TMenuItem
|
||||
Caption = '&Open'
|
||||
ShortCut = 16463
|
||||
OnClick = MIOpenClick
|
||||
end
|
||||
object MISave: TMenuItem
|
||||
Caption = '&Save'
|
||||
ShortCut = 16467
|
||||
OnClick = MISaveClick
|
||||
end
|
||||
object MISaveAs: TMenuItem
|
||||
Caption = 'Save as'
|
||||
end
|
||||
object MIRecent: TMenuItem
|
||||
Caption = 'Recent'
|
||||
end
|
||||
object MenuItem2: TMenuItem
|
||||
Caption = '-'
|
||||
end
|
||||
object MIQuit: TMenuItem
|
||||
Caption = '&Quit'
|
||||
ShortCut = 16465
|
||||
OnClick = MIQuitClick
|
||||
end
|
||||
end
|
||||
end
|
||||
object MRUMenuManager1: TMRUMenuManager
|
||||
MaxRecent = 5
|
||||
MenuItem = MIRecent
|
||||
OnRecentFile = MRUMenuManager1RecentFile
|
||||
left = 176
|
||||
top = 40
|
||||
end
|
||||
object ODFile: TOpenDialog
|
||||
DefaultExt = '.txt'
|
||||
Filter = 'Text files|*.txt|All files|*.*'
|
||||
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
|
||||
left = 40
|
||||
top = 109
|
||||
end
|
||||
object SDFile: TSaveDialog
|
||||
DefaultExt = '.txt'
|
||||
Filter = 'Text files|*.txt|All files|*.*'
|
||||
Options = [ofPathMustExist, ofEnableSizing, ofViewDetail]
|
||||
left = 121
|
||||
top = 115
|
||||
end
|
||||
end
|
||||
158
components/mrumenu/demo/frmmain.pp
Normal file
158
components/mrumenu/demo/frmmain.pp
Normal file
@ -0,0 +1,158 @@
|
||||
unit frmmain;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
|
||||
stdctrls, ComCtrls, mrumanager;
|
||||
|
||||
Type
|
||||
TMyTabSheet = Class(TTabsheet)
|
||||
Public
|
||||
FileName : String;
|
||||
end;
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
TForm1 = class(TForm)
|
||||
MainMenu1: TMainMenu;
|
||||
MIRecent: TMenuItem;
|
||||
MenuItem2: TMenuItem;
|
||||
MIQuit: TMenuItem;
|
||||
MISaveAs: TMenuItem;
|
||||
MISave: TMenuItem;
|
||||
MIOpen: TMenuItem;
|
||||
MINew: TMenuItem;
|
||||
MFile: TMenuItem;
|
||||
MRUMenuManager1: TMRUMenuManager;
|
||||
ODFile: TOpenDialog;
|
||||
PCFiles: TPageControl;
|
||||
SDFile: TSaveDialog;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure MINewClick(Sender: TObject);
|
||||
procedure MIOpenClick(Sender: TObject);
|
||||
procedure MIQuitClick(Sender: TObject);
|
||||
procedure MISaveClick(Sender: TObject);
|
||||
procedure MRUMenuManager1RecentFile(Sender: TObject; const AFileName: String
|
||||
);
|
||||
private
|
||||
function CurrentFileName: string;
|
||||
procedure OpenFile(AFileName: String);
|
||||
procedure SaveFile(const AFileName: String);
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
procedure TForm1.MIQuitClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TForm1.MISaveClick(Sender: TObject);
|
||||
begin
|
||||
If (CurrentFileName='') or (Sender=MISaveAs) then
|
||||
begin
|
||||
if SDFile.Execute then
|
||||
SaveFile(SDFile.FileName);
|
||||
end
|
||||
else
|
||||
SaveFile(CurrentFileName);
|
||||
end;
|
||||
|
||||
procedure TForm1.MRUMenuManager1RecentFile(Sender: TObject;
|
||||
const AFileName: String);
|
||||
begin
|
||||
OpenFile(AFileName);
|
||||
end;
|
||||
|
||||
procedure TForm1.SaveFile(Const AFileName : String);
|
||||
|
||||
Var
|
||||
T : TMyTabSheet;
|
||||
M : TMemo;
|
||||
|
||||
begin
|
||||
if (PCFiles.ActivePage is TMyTabSheet) then
|
||||
begin
|
||||
T:=PCFiles.ActivePage as TMyTabSheet;
|
||||
if (T.ControlCount>0) and (T.Controls[0] is TMemo) then
|
||||
begin
|
||||
M:=T.Controls[0] as TMemo;
|
||||
M.Lines.SaveToFile(AFileName);
|
||||
MRUMenuManager1.AddTorecent(AFileName);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
Function TForm1.CurrentFileName : string;
|
||||
|
||||
begin
|
||||
if (PCFiles.ActivePage is TMyTabSheet) then
|
||||
Result:=(PCFiles.ActivePage as TMyTabSheet).FileName
|
||||
else
|
||||
Result:='';
|
||||
end;
|
||||
|
||||
|
||||
procedure TForm1.MIOpenClick(Sender: TObject);
|
||||
begin
|
||||
If ODFIle.Execute then
|
||||
OpenFile(ODFile.FileName);
|
||||
end;
|
||||
|
||||
procedure TForm1.MINewClick(Sender: TObject);
|
||||
begin
|
||||
OpenFile('')
|
||||
end;
|
||||
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
begin
|
||||
MRUMenuManager1.LoadRecentFilesFromIni;
|
||||
end;
|
||||
|
||||
procedure TForm1.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
MRUMenuManager1.SaveRecentFilesToIni;
|
||||
end;
|
||||
|
||||
|
||||
procedure TForm1.OpenFile(AFileName : String);
|
||||
|
||||
Var
|
||||
TS : TMyTabSheet;
|
||||
M : TMemo;
|
||||
|
||||
begin
|
||||
TS:=TMyTabSheet.Create(Self);
|
||||
TS.FileName:=AFileName;
|
||||
TS.Parent:=PCFiles;
|
||||
TS.PageControl:=PCFiles;
|
||||
if (AFileName<>'') then
|
||||
TS.Caption:=ExtractFileName(AFileName)
|
||||
else
|
||||
TS.Caption:='New file';
|
||||
M:=TMemo.Create(Self);
|
||||
M.Align:=AlClient;
|
||||
M.Parent:=TS;
|
||||
if (AFileName<>'') then
|
||||
M.Lines.LoadFromFile(AFileName);
|
||||
PCFIles.ActivePage:=TS;
|
||||
if (AFileName<>'') then
|
||||
MRUMenuManager1.AddToRecent(AFileName);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
BIN
components/mrumenu/demo/mrudemo.ico
Normal file
BIN
components/mrumenu/demo/mrudemo.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 134 KiB |
208
components/mrumenu/demo/mrudemo.lpi
Normal file
208
components/mrumenu/demo/mrudemo.lpi
Normal file
@ -0,0 +1,208 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="9"/>
|
||||
<General>
|
||||
<MainUnit Value="0"/>
|
||||
<ResourceType Value="res"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
<Icon Value="0"/>
|
||||
<ActiveWindowIndexAtStart Value="0"/>
|
||||
</General>
|
||||
<i18n>
|
||||
<EnableI18N LFM="False"/>
|
||||
</i18n>
|
||||
<VersionInfo>
|
||||
<StringTable ProductVersion=""/>
|
||||
</VersionInfo>
|
||||
<BuildModes Count="1" Active="Default">
|
||||
<Item1 Name="Default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
<LaunchingApplication PathPlusParams="/usr/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="3">
|
||||
<Item1>
|
||||
<PackageName Value="lazmrumenu"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="LCLBase"/>
|
||||
<MinVersion Valid="True"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item3>
|
||||
</RequiredPackages>
|
||||
<Units Count="7">
|
||||
<Unit0>
|
||||
<Filename Value="mrudemo.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="mrudemo"/>
|
||||
<UsageCount Value="22"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="frmmain.pp"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="frmmain"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="124"/>
|
||||
<CursorPos X="44" Y="138"/>
|
||||
<UsageCount Value="22"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="../mrumanager.pp"/>
|
||||
<UnitName Value="mrumanager"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="1" Y="14"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="../regmru.lrs"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="17" Y="1"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="../reglazmru.pp"/>
|
||||
<UnitName Value="reglazmru"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="44" Y="8"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="/data/wisa/projects/fpcpackages/wisawebdb/menueditor/demo/frmmain.pp"/>
|
||||
<UnitName Value="frmmain"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="124"/>
|
||||
<CursorPos X="16" Y="136"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="/data/wisa/projects/fpcpackages/wisawebdb/menueditor/mrumanager.pp"/>
|
||||
<UnitName Value="mrumanager"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="85"/>
|
||||
<CursorPos X="1" Y="113"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit6>
|
||||
</Units>
|
||||
<JumpHistory Count="16" HistoryIndex="15">
|
||||
<Position1>
|
||||
<Filename Value="frmmain.pp"/>
|
||||
<Caret Line="84" Column="37" TopLine="68"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="frmmain.pp"/>
|
||||
<Caret Line="94" Column="21" TopLine="76"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="frmmain.pp"/>
|
||||
<Caret Line="103" Column="21" TopLine="86"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="frmmain.pp"/>
|
||||
<Caret Line="93" Column="10" TopLine="85"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="frmmain.pp"/>
|
||||
<Caret Line="115" Column="41" TopLine="111"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="frmmain.pp"/>
|
||||
<Caret Line="128" Column="36" TopLine="122"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="frmmain.pp"/>
|
||||
<Caret Line="148" Column="21" TopLine="124"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="/data/wisa/projects/fpcpackages/wisawebdb/menueditor/mrumanager.pp"/>
|
||||
<Caret Line="101" Column="1" TopLine="84"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="/data/wisa/projects/fpcpackages/wisawebdb/menueditor/mrumanager.pp"/>
|
||||
<Caret Line="102" Column="1" TopLine="84"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="/data/wisa/projects/fpcpackages/wisawebdb/menueditor/mrumanager.pp"/>
|
||||
<Caret Line="103" Column="1" TopLine="84"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="/data/wisa/projects/fpcpackages/wisawebdb/menueditor/mrumanager.pp"/>
|
||||
<Caret Line="105" Column="1" TopLine="84"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="/data/wisa/projects/fpcpackages/wisawebdb/menueditor/mrumanager.pp"/>
|
||||
<Caret Line="106" Column="1" TopLine="84"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="../mrumanager.pp"/>
|
||||
<Caret Line="69" Column="19" TopLine="54"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="../mrumanager.pp"/>
|
||||
<Caret Line="283" Column="27" TopLine="279"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="../mrumanager.pp"/>
|
||||
<Caret Line="72" Column="89" TopLine="65"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="frmmain.pp"/>
|
||||
<Caret Line="138" Column="44" TopLine="124"/>
|
||||
</Position16>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="10"/>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
</SearchPaths>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<UseAnsiStrings Value="False"/>
|
||||
</SyntaxOptions>
|
||||
</Parsing>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
21
components/mrumenu/demo/mrudemo.lpr
Normal file
21
components/mrumenu/demo/mrudemo.lpr
Normal file
@ -0,0 +1,21 @@
|
||||
program mrudemo;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||
cthreads,
|
||||
{$ENDIF}{$ENDIF}
|
||||
Interfaces, // this includes the LCL widgetset
|
||||
Forms, alllclunits, frmmain, lazmrumenu
|
||||
{ you can add units after this };
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
RequireDerivedFormResource := True;
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
BIN
components/mrumenu/demo/mrudemo.res
Normal file
BIN
components/mrumenu/demo/mrudemo.res
Normal file
Binary file not shown.
42
components/mrumenu/lazmrumenu.lpk
Normal file
42
components/mrumenu/lazmrumenu.lpk
Normal file
@ -0,0 +1,42 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<Package Version="3">
|
||||
<Name Value="lazmrumenu"/>
|
||||
<CompilerOptions>
|
||||
<Version Value="10"/>
|
||||
<SearchPaths>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)/"/>
|
||||
</SearchPaths>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Files Count="2">
|
||||
<Item1>
|
||||
<Filename Value="reglazmru.pp"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="reglazmru"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Filename Value="mrumanager.pp"/>
|
||||
<UnitName Value="mrumanager"/>
|
||||
</Item2>
|
||||
</Files>
|
||||
<Type Value="RunAndDesignTime"/>
|
||||
<RequiredPkgs Count="2">
|
||||
<Item1>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="FCL"/>
|
||||
<MinVersion Valid="True"/>
|
||||
</Item2>
|
||||
</RequiredPkgs>
|
||||
<UsageOptions>
|
||||
<UnitPath Value="$(PkgOutDir)"/>
|
||||
</UsageOptions>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
</PublishOptions>
|
||||
</Package>
|
||||
</CONFIG>
|
||||
21
components/mrumenu/lazmrumenu.pas
Normal file
21
components/mrumenu/lazmrumenu.pas
Normal file
@ -0,0 +1,21 @@
|
||||
{ This file was automatically created by Lazarus. Do not edit!
|
||||
This source is only used to compile and install the package.
|
||||
}
|
||||
|
||||
unit lazmrumenu;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
reglazmru, mrumanager, LazarusPackageIntf;
|
||||
|
||||
implementation
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterUnit('reglazmru', @reglazmru.Register);
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterPackage('lazmrumenu', @Register);
|
||||
end.
|
||||
302
components/mrumenu/mrumanager.pp
Normal file
302
components/mrumenu/mrumanager.pp
Normal file
@ -0,0 +1,302 @@
|
||||
unit mrumanager;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, inifiles, menus;
|
||||
|
||||
Type
|
||||
{ TRecentMenuItem }
|
||||
|
||||
TRecentMenuItem = Class(TMenuItem)
|
||||
Private
|
||||
FFileName : string;
|
||||
Public
|
||||
Property FileName : String Read FFileName;
|
||||
end;
|
||||
TRecentMenuItemClass = Class of TRecentMenuItem;
|
||||
|
||||
{ TMRUMenuManager }
|
||||
|
||||
TOnRecentFileEvent = Procedure(Sender : TObject; Const AFileName : String) of object;
|
||||
|
||||
TMRUMenuManager = Class(TComponent)
|
||||
Private
|
||||
FIniFileName: String;
|
||||
FIniSection: String;
|
||||
FOnRecent: TOnRecentFileEvent;
|
||||
FRecent : TStrings;
|
||||
FMaxRecent : Integer;
|
||||
FMIRecent : TMenuItem;
|
||||
procedure SetMIRecent(const AValue: TMenuItem);
|
||||
procedure SetRecent(const AValue: TStrings);
|
||||
protected
|
||||
// Overrides.
|
||||
procedure loaded; override;
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
// Return default name and section if either is empty.
|
||||
procedure GetFileNameAndSection(Var AFileName,ASection : String); virtual;
|
||||
// Override if you want to load additional values.
|
||||
procedure LoadFromIni(Ini: TCustomIniFile; ASection: String); virtual;
|
||||
// Override if you want to write additional values.
|
||||
procedure SaveToIni(Ini: TCustomIniFile; ASection: String); virtual;
|
||||
// Called when menu item is clicked.
|
||||
procedure DoOnRecentClick(Sender: TObject); virtual;
|
||||
// Override this if you want to create a custom class of menu itel.
|
||||
function CreateMenuItem(AOwner: TComponent): TRecentMenuItem; virtual;
|
||||
// Create a menu caption. Default is index followed by filename.
|
||||
// Override if you want to customize.
|
||||
Function CreateMenuCaption(AIndex : Integer; Const AFileName : String) : String; virtual;
|
||||
Public
|
||||
Constructor Create(AOwner : TComponent);override;
|
||||
Destructor Destroy; override;
|
||||
// Load files from ini file AFileName in section ASection. Calls ShowRecentFiles
|
||||
procedure LoadRecentFilesFromIni(const AFileName: string=''; const ASection: String='');
|
||||
// Saves files to ini file AFileName in section ASection.
|
||||
procedure SaveRecentFilesToIni(const AFileName: string=''; const ASection: String='');
|
||||
// Add a filename to the list of files.
|
||||
// If an existing file is added, it is moved first in the list.
|
||||
// If MaxRecent is attained, the last one is removed.
|
||||
// Calls ShowRecentFiles.
|
||||
procedure AddToRecent(AFileName: String);
|
||||
// Re-populate the menu.
|
||||
procedure ShowRecentFiles;
|
||||
Published
|
||||
// Max. items to be kept in the list.
|
||||
Property MaxRecent : Integer Read FMaxRecent write FMaxRecent;
|
||||
// Menu item to create a submenu under. Existing items will be removed.
|
||||
Property MenuItem : TMenuItem Read FMIRecent Write SetMIRecent;
|
||||
// Default ini filename.
|
||||
Property IniFileName : String Read FIniFileName Write FIniFileName;
|
||||
// Default ini section.
|
||||
Property IniSection : String Read FIniSection Write FIniSection;
|
||||
// Recent items. If adding manually to the list, ShowRecentFiles must be called manually.
|
||||
Property Recent : TStrings Read FRecent Write SetRecent;
|
||||
// Called when the user clicks an recent meu item.
|
||||
Property OnRecentFile : TOnRecentFileEvent Read FOnRecent Write FOnRecent;
|
||||
end;
|
||||
EMRUManager = Class(Exception);
|
||||
|
||||
Const
|
||||
DefaultIniFile = 'recent.ini';
|
||||
DefaultSection = 'Global';
|
||||
KeyMaxRecent = 'MaxRecent';
|
||||
KeyCount = 'Count';
|
||||
KeyFile = 'File%d';
|
||||
|
||||
implementation
|
||||
|
||||
Resourcestring
|
||||
SErrFailedToCreateDir = 'Failed to create directory "%s"';
|
||||
|
||||
|
||||
procedure TMRUMenuManager.AddToRecent(AFileName : String);
|
||||
|
||||
Var
|
||||
I,J : Integer;
|
||||
B : Boolean;
|
||||
|
||||
begin
|
||||
AFileName:=ExpandFileName(AFileName);
|
||||
With FRecent do
|
||||
begin
|
||||
J:=IndexOf(AFileName);
|
||||
If (J<>-1) then
|
||||
begin
|
||||
if (J>0) then
|
||||
Exchange(0,J)
|
||||
end
|
||||
else
|
||||
begin
|
||||
While (Count>=FMaxRecent) do
|
||||
Delete(Count-1);
|
||||
Insert(0,AFileName)
|
||||
end;
|
||||
end;
|
||||
ShowRecentFiles;
|
||||
end;
|
||||
|
||||
function TMRUMenuManager.CreateMenuItem(AOwner :TComponent) : TRecentMenuItem;
|
||||
|
||||
begin
|
||||
Result:=TRecentMenuItem.Create(AOwner);
|
||||
end;
|
||||
|
||||
function TMRUMenuManager.CreateMenuCaption(AIndex: Integer;
|
||||
const AFileName: String): String;
|
||||
begin
|
||||
Result:=Format('%d. %s',[AIndex+1,AFileName]);
|
||||
end;
|
||||
|
||||
procedure TMRUMenuManager.ShowRecentFiles;
|
||||
|
||||
Var
|
||||
I : Integer;
|
||||
M : TRecentMenuItem;
|
||||
|
||||
begin
|
||||
if Not Assigned(FMIRecent) then
|
||||
Exit;
|
||||
FMIRecent.clear;
|
||||
For I:=0 to FRecent.Count-1 do
|
||||
begin
|
||||
M:=CreateMenuItem(Self.Owner);
|
||||
M.Caption:=CreateMenuCaption(I,FRecent[i]);
|
||||
M.FFileName:=FRecent[i];
|
||||
M.OnClick:=@DoOnRecentClick;
|
||||
FMIRecent.Add(M);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMRUMenuManager.LoadFromIni(Ini : TCustomIniFile; ASection : String);
|
||||
|
||||
Var
|
||||
I,Count : Integer;
|
||||
FN : String;
|
||||
|
||||
begin
|
||||
FRecent.Clear;
|
||||
FMaxRecent:=Ini.ReadInteger(ASection,KeyMaxRecent,10);
|
||||
Count:=Ini.ReadInteger(ASection,KeyCount,0);
|
||||
For I:=1 to Count do
|
||||
begin
|
||||
FN:=Ini.ReadString(ASection,Format(KeyFile,[i]),'');
|
||||
If (FN<>'') then
|
||||
FRecent.Add(FN);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMRUMenuManager.GetFileNameAndSection(var AFileName, ASection: String);
|
||||
|
||||
begin
|
||||
if (AFileName='') then
|
||||
begin
|
||||
AFileName:=GetAppConfigDir(False);
|
||||
AFileName:=IncludeTrailingPathDelimiter(AFileName)+DefaultIniFile;
|
||||
end;
|
||||
if (ASection='') then
|
||||
ASection:=DefaultSection;
|
||||
end;
|
||||
|
||||
procedure TMRUMenuManager.LoadRecentFilesFromIni(Const AFileName : string = ''; Const ASection : String = '');
|
||||
|
||||
Var
|
||||
DN,FN,Sec : String;
|
||||
Ini : TIniFile;
|
||||
|
||||
begin
|
||||
FN:=AFileName;
|
||||
Sec:=ASection;
|
||||
GetFileNameAndSection(FN,Sec);
|
||||
DN:=ExtractFilePath(FN);
|
||||
If ForceDirectories(DN) then
|
||||
begin
|
||||
If FileExists(FN) then
|
||||
begin
|
||||
Ini:=TIniFile.Create(FN);
|
||||
try
|
||||
LoadFromIni(Ini,Sec);
|
||||
finally
|
||||
Ini.Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
ShowRecentFiles;
|
||||
end;
|
||||
|
||||
procedure TMRUMenuManager.SaveToIni(Ini : TCustomIniFile; ASection : String);
|
||||
|
||||
Var
|
||||
I : Integer;
|
||||
begin
|
||||
Ini.EraseSection(ASection);
|
||||
Ini.WriteInteger(ASection,KeyMaxRecent,FMaxRecent);
|
||||
Ini.WriteInteger(ASection,KeyCount,FRecent.Count);
|
||||
For I:=0 to FRecent.Count-1 do
|
||||
Ini.WriteString(ASection,Format(KeyFile,[i+1]),FRecent[i]);
|
||||
Ini.UpdateFile;
|
||||
end;
|
||||
|
||||
procedure TMRUMenuManager.SaveRecentFilesToIni(Const AFileName : string = ''; Const ASection : String = '');
|
||||
|
||||
Var
|
||||
DN,FN,Sec : String;
|
||||
Ini : TMemIniFile;
|
||||
|
||||
begin
|
||||
FN:=AFileName;
|
||||
Sec:=ASection;
|
||||
GetFileNameAndSection(FN,Sec);
|
||||
DN:=ExtractFilePath(FN);
|
||||
If not ForceDirectories(DN) then
|
||||
Raise EMRUManager.CreateFmt(SErrFailedToCreateDir,[DN]);
|
||||
Ini:=TMemIniFile.Create(FN);
|
||||
try
|
||||
SaveToIni(Ini,Sec);
|
||||
finally
|
||||
Ini.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMRUMenuManager.SetMIRecent(const AValue: TMenuItem);
|
||||
begin
|
||||
if FMIRecent=AValue then exit;
|
||||
If Assigned(FMIRecent) then
|
||||
FMIRecent.RemoveFreeNotification(Self);
|
||||
FMIRecent:=AValue;
|
||||
If Assigned(FMIRecent) then
|
||||
FMIRecent.FreeNotification(Self);
|
||||
ShowRecentFiles;
|
||||
end;
|
||||
|
||||
procedure TMRUMenuManager.SetRecent(const AValue: TStrings);
|
||||
begin
|
||||
if FRecent=AValue then exit;
|
||||
FRecent.Assign(AValue);
|
||||
ShowRecentFiles;
|
||||
end;
|
||||
|
||||
procedure TMRUMenuManager.loaded;
|
||||
begin
|
||||
inherited loaded;
|
||||
if (FRecent.Count>0) and assigned(FMIRecent) then
|
||||
ShowRecentFiles;
|
||||
end;
|
||||
|
||||
|
||||
constructor TMRUMenuManager.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
FRecent:=TStringList.Create;
|
||||
end;
|
||||
|
||||
destructor TMRUMenuManager.Destroy;
|
||||
begin
|
||||
FreeAndNil(FRecent);
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
procedure TMRUMenuManager.Notification(AComponent: TComponent;
|
||||
Operation: TOperation);
|
||||
begin
|
||||
inherited Notification(AComponent, Operation);
|
||||
if (Operation=opRemove) and (AComponent=FMIrecent) then
|
||||
exit;
|
||||
end;
|
||||
|
||||
procedure TMRUMenuManager.DoOnRecentClick(Sender: TObject);
|
||||
|
||||
Var
|
||||
FN : String;
|
||||
|
||||
begin
|
||||
With (Sender as TRecentMenuItem) do
|
||||
FN:=FileName;
|
||||
if (FN<>'') and (OnRecentFile<>Nil) then
|
||||
OnRecentFile(Self,FN);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
23
components/mrumenu/reglazmru.pp
Normal file
23
components/mrumenu/reglazmru.pp
Normal file
@ -0,0 +1,23 @@
|
||||
unit reglazmru;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, mrumanager, lresources;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
procedure Register;
|
||||
|
||||
begin
|
||||
RegisterComponents('Misc',[TMRUMenuManager]);
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$i regmru.lrs}
|
||||
end.
|
||||
|
||||
30
components/mrumenu/regmru.lrs
Normal file
30
components/mrumenu/regmru.lrs
Normal file
@ -0,0 +1,30 @@
|
||||
LazarusResources.Add('tmrumenumanager','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#8#6#0#0#0#224'w='#248#0
|
||||
+#0#0#6'bKGD'#0#255#0#255#0#255#160#189#167#147#0#0#2'FIDATx'#218#237#149'1k'
|
||||
+#219'P'#20#133'?'#217#181'[Z'#240#224#226#22'2'#185#191#161#245#210'n'#197'k'
|
||||
+'!'#16#8'(['#134#196'&S'#16'ZBB'#192'd'#203'b'#26'2'#20'<'#246#7#216'd'#8#25
|
||||
+'2g'#201#28#19#240#146#242#240#18#168'jE'#188'b'#17#219#183'C'#165'TIe'#201
|
||||
+'i'#155#173#23#238#162#247#222'='#231#157'wt/'#252#143#148'0'#238#177#207#152
|
||||
+'q'#191'Dr'#166#168#1'R.'#151#229#206#225'i'#185#14'<'#3#178#179'2'#23#219
|
||||
+#182'Ek'#157#154#213'j5'#4'y'#21#128#24'i'#197's'#128'h'#173#165'V'#171#137
|
||||
+#235#186#162#148#18#173#181'('#165#196#243'<QJ'#201#249#249#185',..'#202#209
|
||||
+#209'Q'#8#240#26'x'#158't'#139'{'#201'R'#169'T'#164#219#237'J'#167#211#9#191
|
||||
+#189#5'^'#0#217#204#20#230#159'l'#219#230#236#236#12#173'ubV'#171'UNOO'#25
|
||||
+#143#199'q'#166' '#19'S'#252#17'@'#163#209#192#178',F'#163#17#142#227#0#224
|
||||
+'8'#14#147#201#4#199'qPJ'#177#188#188#140'm'#219#0'x'#158#135#136#252';'#183
|
||||
+#220#149#229#240#240'P'#218#237'v'#184#254#14'x'#25#149#232#175'e'#217#223
|
||||
+#223''''#159#207'Oe'#159#249#19#183#156#156#156#220#176'>88'#136#218#244#230
|
||||
+#145'C'#128'l'#8#160#148#146'z'#189'.'#158#231'I'#191#223#151#171#171'+QJI'
|
||||
+#183#219#21#211'4'#147'd'#9#243'c'#212#166'q.bss'#19#203#178'('#20#10#184#174
|
||||
+#203'p8dgg'#135#221#221#221'$Y>'#0#239#129#207#128#3#12#129'I,'#192#245#245
|
||||
+'5sss'#172#174#174'R,'#22#217#222#222#166'T*'#161#181#190#229#150'z'#189'N'
|
||||
+#179#217#12#143'i'#160#15'|'#1'.'#3#0#249'M'#162#139#139#11#217#216#216#16
|
||||
+#165#148'('#165#196'4M'#233#245'z'#210#235#245'dee%I'#150'7@)'#248#251#141
|
||||
+#232#227#222#138'V'#171#197#218#218#26#131#193#0#223#247#217#218#218#2#192
|
||||
+#247'}'#22#22#22#146'd'#249#10'|'#7'FQ'#230'F'#228#6#163#165#165'%'#230#231
|
||||
+#231'1'#140'_=JD'#200'd~'#242'0'#12#131'\.'#199#222#222#30#199#199#199#4#197
|
||||
+#251#192#183#160#248#16#24'O'#179#233#250#140#237'8U'#150#184#129'c'#0'O'#3
|
||||
+#239#22#129#199')'#173'V'#0'?p'#203'e'#192'^'#210'&Z'#22'x'#18'd6e'#226'I '
|
||||
+#197'0I'#150#184#2#15':'#26#31'$~'#0#156#213#234#156'f'#131#154#16#0#0#0#0'I'
|
||||
+'END'#174'B`'#130
|
||||
]);
|
||||
BIN
components/mrumenu/tmrumenumanager.png
Normal file
BIN
components/mrumenu/tmrumenumanager.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 657 B |
Loading…
Reference in New Issue
Block a user