paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 13:09:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added TTransferMacroFlags

Browse Source 
git-svn-id: trunk@675 -
This commit is contained in:
lazarus 2002-02-07 18:32:46 +00:00
parent d2f2b01edc
commit 71a79b9049
2 changed files with 29 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
ide/main.pp
View File

@ -737,35 +737,35 @@ begin
// macros
MacroList:=TTransferMacroList.Create;
MacroList.Add(TTransferMacro.Create('Col','',
'Cursor column in current editor',nil));
'Cursor column in current editor',nil,[]));
MacroList.Add(TTransferMacro.Create('Row','',
'Cursor row in current editor',nil));
'Cursor row in current editor',nil,[]));
MacroList.Add(TTransferMacro.Create('CompPath','',
'Compiler filename',nil));
'Compiler filename',nil,[]));
MacroList.Add(TTransferMacro.Create('CurToken','',
'Word at cursor in current editor',nil));
'Word at cursor in current editor',nil,[]));
MacroList.Add(TTransferMacro.Create('EdFile','',
'Expanded filename of current editor file',nil));
'Expanded filename of current editor file',nil,[]));
MacroList.Add(TTransferMacro.Create('FPCSrcDir','',
'Freepascal source directory',nil));
'Freepascal source directory',nil,[]));
MacroList.Add(TTransferMacro.Create('LazarusDir','',
'Lazarus directory',nil));
'Lazarus directory',nil,[]));
MacroList.Add(TTransferMacro.Create('LCLWidgetType','',
'LCL Widget Type',nil));
'LCL Widget Type',nil,[]));
MacroList.Add(TTransferMacro.Create('Params','',
'Command line parameters of program',nil));
'Command line parameters of program',nil,[]));
MacroList.Add(TTransferMacro.Create('Prompt','',
'Prompt for value',@OnMacroPromptFunction));
'Prompt for value',@OnMacroPromptFunction,[tmfInteractive]));
MacroList.Add(TTransferMacro.Create('ProjFile','',
'Project filename',nil));
'Project filename',nil,[]));
MacroList.Add(TTransferMacro.Create('ProjPath','',
'Project directory',nil));
'Project directory',nil,[]));
MacroList.Add(TTransferMacro.Create('Save','',
'save current editor file',nil));
'save current editor file',nil,[tmfInteractive]));
MacroList.Add(TTransferMacro.Create('SaveAll','',
'save all modified files',nil));
'save all modified files',nil,[tmfInteractive]));
MacroList.Add(TTransferMacro.Create('TargetFile','',
'Target filename of project',nil));
'Target filename of project',nil,[]));
MacroList.OnSubstitution:=@OnMacroSubstitution;
//twatcheslgd
@ -5791,6 +5791,9 @@ end.
{ =============================================================================
$Log$
Revision 1.215 2002/02/07 18:32:45 lazarus
MG: added TTransferMacroFlags
Revision 1.214 2002/02/07 18:18:59 lazarus
MG: fixed deactivating hints

17
ide/transfermacros.pp
View File

@ -47,6 +47,9 @@ type
var Handled, Abort: boolean) of object;
TMacroFunction = function(const s:string; var Abort: boolean):string of object;
TTransferMacroFlag = (tmfInteractive);
TTransferMacroFlags = set of TTransferMacroFlag;
TTransferMacro = class
public
@ -54,8 +57,9 @@ type
Value: string;
Description: string;
MacroFunction: TMacroFunction;
Flags: TTransferMacroFlags;
constructor Create(AName, AValue, ADescription:string;
AMacroFunction: TMacroFunction);
AMacroFunction: TMacroFunction; TheFlags: TTransferMacroFlags);
end;
TTransferMacroList = class
@ -91,12 +95,13 @@ implementation
{ TTransferMacro }
constructor TTransferMacro.Create(AName, AValue, ADescription:string;
AMacroFunction: TMacroFunction);
AMacroFunction: TMacroFunction; TheFlags: TTransferMacroFlags);
begin
Name:=AName;
Value:=AValue;
Description:=ADescription;
MacroFunction:=AMacroFunction;
Flags:=TheFlags;
end;
{ TTransferMacroList }
@ -105,12 +110,12 @@ constructor TTransferMacroList.Create;
begin
inherited Create;
fItems:=TList.Create;
Add(TTransferMacro.Create('Ext','','Function: extract file extension',@MF_Ext));
Add(TTransferMacro.Create('Path','','Function: extract file path',@MF_Path));
Add(TTransferMacro.Create('Ext','','Function: extract file extension',@MF_Ext,[]));
Add(TTransferMacro.Create('Path','','Function: extract file path',@MF_Path,[]));
Add(TTransferMacro.Create('Name','','Function: extract file name+extension',
@MF_Name));
@MF_Name,[]));
Add(TTransferMacro.Create('NameOnly','','Function: extract file name only',
@MF_NameOnly));
@MF_NameOnly,[]));
end;
destructor TTransferMacroList.Destroy;