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

moved IDE command constants to ideintf/idecommands.pas

Browse Source 
git-svn-id: trunk@8460 -
This commit is contained in:
mattias 2006-01-07 13:59:59 +00:00
parent 5cd1f55087
commit 4b11686705
13 changed files with 287 additions and 274 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/macfiles/examples/createmacapplication.lpi
View File

@ -17,7 +17,7 @@
<LazDoc Paths=""/>
<Units Count="1">
<Unit0>
<CursorPos X="21" Y="32"/>
<CursorPos X="17" Y="22"/>
<EditorIndex Value="0"/>
<Filename Value="createmacapplication.lpr"/>
<IsPartOfProject Value="True"/>

2
components/opengl/glcarbonaglcontext.pas
View File

@ -24,7 +24,7 @@ uses
FPCMacOSAll, CarbonInt, AGL, CarbonProc, CarbonDef, CarbonPrivate,
CarbonUtils,
Controls;
procedure LOpenGLViewport(Left, Top, Width, Height: integer);
procedure LOpenGLSwapBuffers(Handle: HWND);
function LOpenGLMakeCurrent(Handle: HWND): boolean;

2
components/opengl/openglcontext.pas
View File

@ -130,7 +130,7 @@ type
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
end;
procedure Register;

2
components/synedit/synedit.pp
View File

@ -2607,8 +2607,6 @@ begin
{$ENDIF}
Lines.Count);
// Now paint everything while the caret is hidden.
{$message warn Should not need to hide/update caret while painting!}
{$message warn Update the caret in all locations where it is moved, instead}
HideCaret;
try
// First paint the gutter area if it was (partly) invalidated.

2
designer/designer.pp
View File

@ -38,7 +38,7 @@ interface
uses
Classes, SysUtils, Math, LCLProc, LCLType, LResources, LCLIntf, LMessages,
Forms, Controls, GraphType, Graphics, Dialogs, ExtCtrls, Menus, ClipBrd,
LazarusIDEStrConsts, EnvironmentOpts, KeyMapping, ComponentReg,
LazarusIDEStrConsts, EnvironmentOpts, IDECommands, ComponentReg,
NonControlDesigner, AlignCompsDlg, SizeCompsDlg, ScaleCompsDlg, TabOrderDlg,
DesignerProcs, PropEdits, ComponentEditors, CustomFormEditor,
ControlSelection, ChangeClassDialog, EditorOptions;

4
examples/exploremenu/exploreidemenu.pas
View File

@ -7,13 +7,13 @@ unit exploreidemenu;
interface
uses
frmExploreMenu, LazarusPackageIntf;
frmexploremenu, LazarusPackageIntf;
implementation
procedure Register;
begin
RegisterUnit('frmExploreMenu', @frmExploreMenu.Register);
RegisterUnit('frmexploremenu', @frmexploremenu.Register);
end;
initialization

38
examples/exploremenu/frmexploremenu.lfm
View File

@ -1,35 +1,37 @@
object ExploreIDEMenuForm: TExploreIDEMenuForm
ActiveControl = TVIDEMenu
Caption = 'Lazarus IDE menu'
ClientHeight = 341
ClientWidth = 474
ClientHeight = 336
ClientWidth = 468
OnCreate = FormCreate
PixelsPerInch = 90
PixelsPerInch = 112
Position = poDesktopCenter
HorzScrollBar.Page = 473
VertScrollBar.Page = 340
HorzScrollBar.Page = 467
VertScrollBar.Page = 335
Left = 453
Height = 341
Height = 336
Top = 450
Width = 474
Width = 468
object LTree: TLabel
Caption = 'Menu Tree'
Color = clNone
ParentColor = False
Left = 8
Height = 12
Height = 13
Top = 10
Width = 61
Width = 62
end
object LPAth: TLabel
Anchors = [akLeft, akRight, akBottom]
AutoSize = False
BorderSpacing.OnChange = nil
Caption = 'Path of selected item:'
Color = clNone
Layout = tlCenter
ParentColor = False
Left = 8
Height = 20
Top = 316
Width = 368
Height = 51
Top = 280
Width = 362
end
object TVIDEMenu: TTreeView
Anchors = [akTop, akLeft, akRight, akBottom]
@ -37,19 +39,21 @@ object ExploreIDEMenuForm: TExploreIDEMenuForm
TabOrder = 0
OnChange = TVIDEMenuChange
Left = 8
Height = 272
Height = 233
Top = 32
Width = 455
Width = 449
end
object BCLose: TButton
Anchors = [akRight, akBottom]
BorderSpacing.InnerBorder = 2
Cancel = True
Caption = '&Close'
Default = True
ModalResult = 1
TabOrder = 1
Left = 388
Left = 382
Height = 25
Top = 314
Top = 300
Width = 75
end
end

33
examples/exploremenu/frmexploremenu.lrs
View File

@ -1,20 +1,21 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TExploreIDEMenuForm','FORMDATA',[
'TPF0'#19'TExploreIDEMenuForm'#18'ExploreIDEMenuForm'#7'Caption'#6#16'Lazarus'
+' IDE menu'#12'ClientHeight'#3'U'#1#11'ClientWidth'#3#218#1#8'OnCreate'#7#10
+'FormCreate'#13'PixelsPerInch'#2'Z'#8'Position'#7#15'poDesktopCenter'#18'Hor'
+'zScrollBar.Page'#3#217#1#18'VertScrollBar.Page'#3'T'#1#4'Left'#3#197#1#6'He'
+'ight'#3'U'#1#3'Top'#3#194#1#5'Width'#3#218#1#0#6'TLabel'#5'LTree'#7'Caption'
+#6#9'Menu Tree'#5'Color'#7#6'clNone'#4'Left'#2#8#6'Height'#2#12#3'Top'#2#10#5
+'Width'#2'='#0#0#6'TLabel'#5'LPAth'#7'Anchors'#11#6'akLeft'#7'akRight'#8'akB'
+'ottom'#0#8'AutoSize'#8#22'BorderSpacing.OnChange'#13#7'Caption'#6#22'Path o'
+'f selected item:'#5'Color'#7#6'clNone'#6'Layout'#7#8'tlCenter'#4'Left'#2#8#6
+'Height'#2#20#3'Top'#3'<'#1#5'Width'#3'p'#1#0#0#9'TTreeView'#9'TVIDEMenu'#7
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#17'DefaultItemHeigh'
+'t'#2#14#8'TabOrder'#2#0#8'OnChange'#7#15'TVIDEMenuChange'#4'Left'#2#8#6'Hei'
+'ght'#3#16#1#3'Top'#2' '#5'Width'#3#199#1#0#0#7'TButton'#6'BCLose'#7'Anchors'
+#11#7'akRight'#8'akBottom'#0#7'Caption'#6#6'&Close'#7'Default'#9#11'ModalRes'
+'ult'#2#1#8'TabOrder'#2#1#4'Left'#3#132#1#6'Height'#2#25#3'Top'#3':'#1#5'Wid'
+'th'#2'K'#0#0#0
'TPF0'#19'TExploreIDEMenuForm'#18'ExploreIDEMenuForm'#13'ActiveControl'#7#9'T'
+'VIDEMenu'#7'Caption'#6#16'Lazarus IDE menu'#12'ClientHeight'#3'P'#1#11'Clie'
+'ntWidth'#3#212#1#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'#2'p'#8'Posi'
+'tion'#7#15'poDesktopCenter'#18'HorzScrollBar.Page'#3#211#1#18'VertScrollBar'
+'.Page'#3'O'#1#4'Left'#3#197#1#6'Height'#3'P'#1#3'Top'#3#194#1#5'Width'#3#212
+#1#0#6'TLabel'#5'LTree'#7'Caption'#6#9'Menu Tree'#5'Color'#7#6'clNone'#11'Pa'
+'rentColor'#8#4'Left'#2#8#6'Height'#2#13#3'Top'#2#10#5'Width'#2'>'#0#0#6'TLa'
+'bel'#5'LPAth'#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#8'AutoSize'#8
+#7'Caption'#6#22'Path of selected item:'#5'Color'#7#6'clNone'#6'Layout'#7#8
+'tlCenter'#11'ParentColor'#8#4'Left'#2#8#6'Height'#2'3'#3'Top'#3#24#1#5'Widt'
+'h'#3'j'#1#0#0#9'TTreeView'#9'TVIDEMenu'#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'akRight'#8'akBottom'#0#17'DefaultItemHeight'#2#14#8'TabOrder'#2#0#8'OnChang'
+'e'#7#15'TVIDEMenuChange'#4'Left'#2#8#6'Height'#3#233#0#3'Top'#2' '#5'Width'
+#3#193#1#0#0#7'TButton'#6'BCLose'#7'Anchors'#11#7'akRight'#8'akBottom'#0#25
+'BorderSpacing.InnerBorder'#2#2#6'Cancel'#9#7'Caption'#6#6'&Close'#7'Default'
+#9#11'ModalResult'#2#1#8'TabOrder'#2#1#4'Left'#3'~'#1#6'Height'#2#25#3'Top'#3
+','#1#5'Width'#2'K'#0#0#0
]);

227
ide/keymapping.pp
View File

@ -39,234 +39,7 @@ uses
LazarusIDEStrConsts, TextTools, IDECommands;
const
{ editor commands constants. see syneditkeycmds.pp for more
These values can change from version to version, so DO NOT save them to file!
To add one static key do the following:
1. Add a constant with a unique value in the list below.
2. Add it to GetDefaultKeyForCommand to define the default keys+shiftstates
3. Add it to EditorCommandToDescriptionString to define the description
4. Add it to TKeyCommandRelationList.CreateDefaultMapping to define the
category.
IDE experts: They are handled in the IDE interface units.
}
ecNone = 0;
// search
ecFind = ecUserFirst + 1;
ecFindAgain = ecUserFirst + 2;
ecFindNext = ecFindAgain;
ecReplace = ecUserFirst + 3;
ecIncrementalFind = ecUserFirst + 4;
ecFindProcedureDefinition = ecUserFirst + 5;
ecFindProcedureMethod = ecUserFirst + 6;
ecGotoLineNumber = ecUserFirst + 7;
ecFindPrevious = ecUserFirst + 8;
ecFindInFiles = ecUserFirst + 9;
ecJumpBack = ecUserFirst + 10;
ecJumpForward = ecUserFirst + 11;
ecAddJumpPoint = ecUserFirst + 12;
ecViewJumpHistory = ecUserFirst + 13;
ecJumpToNextError = ecUserFirst + 14;
ecJumpToPrevError = ecUserFirst + 15;
// search code
ecFindDeclaration = ecUserFirst + 20;
ecFindBlockOtherEnd = ecUserFirst + 21;
ecFindBlockStart = ecUserFirst + 22;
ecOpenFileAtCursor = ecUserFirst + 23;
ecGotoIncludeDirective = ecUserFirst + 24;
// edit selection
ecSelectionUpperCase = ecUserFirst + 50;
ecSelectionLowerCase = ecUserFirst + 51;
ecSelectionTabs2Spaces = ecUserFirst + 52;
ecSelectionEnclose = ecUserFirst + 53;
ecSelectionComment = ecUserFirst + 54;
ecSelectionUncomment = ecUserFirst + 55;
ecSelectionSort = ecUserFirst + 56;
ecSelectionBreakLines = ecUserFirst + 57;
ecSelectToBrace = ecUserFirst + 58;
ecSelectCodeBlock = ecUserFirst + 59;
ecSelectWord = ecUserFirst + 60;
ecSelectLine = ecUserFirst + 61;
ecSelectParagraph = ecUserFirst + 62;
ecSelectionConditional = ecUserFirst + 63;
// insert text
ecInsertCharacter = ecUserFirst + 80;
ecInsertGPLNotice = ecUserFirst + 81;
ecInsertLGPLNotice = ecUserFirst + 82;
ecInsertUserName = ecUserFirst + 83;
ecInsertDateTime = ecUserFirst + 84;
ecInsertChangeLogEntry = ecUserFirst + 85;
ecInsertCVSAuthor = ecUserFirst + 86;
ecInsertCVSDate = ecUserFirst + 87;
ecInsertCVSHeader = ecUserFirst + 88;
ecInsertCVSID = ecUserFirst + 89;
ecInsertCVSLog = ecUserFirst + 90;
ecInsertCVSName = ecUserFirst + 91;
ecInsertCVSRevision = ecUserFirst + 92;
ecInsertCVSSource = ecUserFirst + 93;
// source tools
ecWordCompletion = ecUserFirst + 100;
ecCompleteCode = ecUserFirst + 101;
ecIdentCompletion = ecUserFirst + 102;
ecSyntaxCheck = ecUserFirst + 103;
ecGuessUnclosedBlock = ecUserFirst + 104;
ecGuessMisplacedIFDEF = ecUserFirst + 105;
ecConvertDFM2LFM = ecUserFirst + 106;
ecCheckLFM = ecUserFirst + 107;
ecConvertDelphiUnit = ecUserFirst + 108;
ecConvertDelphiProject = ecUserFirst + 109;
ecMakeResourceString = ecUserFirst + 110;
ecDiff = ecUserFirst + 111;
ecExtractProc = ecUserFirst + 112;
ecFindIdentifierRefs = ecUserFirst + 113;
ecRenameIdentifier = ecUserFirst + 114;
ecInvertAssignment = ecUserFirst + 115;
ecShowCodeContext = ecUserFirst + 116;
// file menu
ecNew = ecUserFirst + 201;
ecNewUnit = ecUserFirst + 202;
ecNewForm = ecUserFirst + 203;
ecOpen = ecUserFirst + 205;
ecRevert = ecUserFirst + 206;
ecSave = ecUserFirst + 207;
ecSaveAs = ecUserFirst + 208;
ecSaveAll = ecUserFirst + 209;
ecClose = ecUserFirst + 210;
ecCloseAll = ecUserFirst + 211;
ecCleanDirectory = ecUserFirst + 212;
ecRestart = ecUserFirst + 213;
ecQuit = ecUserFirst + 214;
// IDE navigation
ecJumpToEditor = ecUserFirst + 300;
ecToggleFormUnit = ecUserFirst + 301;
ecToggleObjectInsp = ecUserFirst + 302;
ecToggleSourceEditor = ecUserFirst + 303;
ecToggleCodeExpl = ecUserFirst + 304;
ecToggleMessages = ecUserFirst + 305;
ecToggleWatches = ecUserFirst + 306;
ecToggleBreakPoints = ecUserFirst + 307;
ecToggleDebuggerOut = ecUserFirst + 308;
ecViewUnits = ecUserFirst + 309;
ecViewForms = ecUserFirst + 310;
ecViewUnitDependencies = ecUserFirst + 311;
ecViewUnitInfo = ecUserFirst + 312;
ecToggleLocals = ecUserFirst + 313;
ecToggleCallStack = ecUserFirst + 314;
ecToggleSearchResults = ecUserFirst + 315;
ecViewAnchorEditor = ecUserFirst + 316;
ecToggleCompPalette = ecUserFirst + 317;
ecToggleIDESpeedBtns = ecUserFirst + 318;
// sourcenotebook commands
ecNextEditor = ecUserFirst + 330;
ecPrevEditor = ecUserFirst + 331;
ecMoveEditorLeft = ecUserFirst + 332;
ecMoveEditorRight = ecUserFirst + 333;
ecAddBreakPoint = ecUserFirst + 334;
ecRemoveBreakPoint = ecUserFirst + 335;
ecGotoEditor1 = ecUserFirst + 350;
ecGotoEditor2 = ecGotoEditor1 + 1;
ecGotoEditor3 = ecGotoEditor2 + 1;
ecGotoEditor4 = ecGotoEditor3 + 1;
ecGotoEditor5 = ecGotoEditor4 + 1;
ecGotoEditor6 = ecGotoEditor5 + 1;
ecGotoEditor7 = ecGotoEditor6 + 1;
ecGotoEditor8 = ecGotoEditor7 + 1;
ecGotoEditor9 = ecGotoEditor8 + 1;
ecGotoEditor0 = ecGotoEditor9 + 1;
// marker
ecSetFreeBookmark = ecUserFirst + 381;
ecPrevBookmark = ecUserFirst + 382;
ecNextBookmark = ecUserFirst + 383;
// compile menu
ecBuild = ecUserFirst + 400;
ecBuildAll = ecUserFirst + 401;
ecAbortBuild = ecUserFirst + 402;
ecRun = ecUserFirst + 403;
ecPause = ecUserFirst + 404;
ecStepInto = ecUserFirst + 405;
ecStepOver = ecUserFirst + 406;
ecRunToCursor = ecUserFirst + 407;
ecStopProgram = ecUserFirst + 408;
ecResetDebugger = ecUserFirst + 409;
ecBuildLazarus = ecUserFirst + 410;
ecBuildFile = ecUserFirst + 411;
ecRunFile = ecUserFirst + 412;
ecConfigBuildFile = ecUserFirst + 413;
ecInspect = ecUserFirst + 414;
ecEvaluate = ecUserFirst + 415;
ecAddWatch = ecUserFirst + 416;
// project menu
ecNewProject = ecUserFirst + 500;
ecNewProjectFromFile = ecUserFirst + 501;
ecOpenProject = ecUserFirst + 502;
ecSaveProject = ecUserFirst + 503;
ecSaveProjectAs = ecUserFirst + 504;
ecPublishProject = ecUserFirst + 505;
ecProjectInspector = ecUserFirst + 506;
ecAddCurUnitToProj = ecUserFirst + 507;
ecRemoveFromProj = ecUserFirst + 508;
ecViewProjectSource = ecUserFirst + 509;
ecViewProjectTodos = ecUserFirst + 510;
ecProjectOptions = ecUserFirst + 511;
// components menu
ecOpenPackage = ecUserFirst + 600;
ecOpenPackageFile = ecUserFirst + 601;
ecOpenPackageOfCurUnit = ecUserFirst + 602;
ecAddCurUnitToPkg = ecUserFirst + 603;
ecPackageGraph = ecUserFirst + 604;
ecEditInstallPkgs = ecUserFirst + 605;
ecConfigCustomComps = ecUserFirst + 606;
// custom tools menu
ecExtToolFirst = ecUserFirst + 700;
ecExtToolLast = ecUserFirst + 799;
// option commmands
ecRunParameters = ecUserFirst + 800;
ecCompilerOptions = ecUserFirst + 801;
ecExtToolSettings = ecUserFirst + 802;
ecConfigBuildLazarus = ecUserFirst + 803;
ecEnvironmentOptions = ecUserFirst + 804;
ecEditorOptions = ecUserFirst + 805;
ecEditCodeTemplates = ecUserFirst + 806;
ecCodeToolsOptions = ecUserFirst + 807;
ecCodeToolsDefinesEd = ecUserFirst + 808;
ecRescanFPCSrcDir = ecUserFirst + 809;
// help menu
ecAboutLazarus = ecUserFirst + 900;
ecOnlineHelp = ecUserFirst + 901;
ecConfigureHelp = ecUserFirst + 902;
ecContextHelp = ecUserFirst + 903;
// designer
ecDesignerCopy = ecUserFirst + 1000;
ecDesignerCut = ecUserFirst + 1001;
ecDesignerPaste = ecUserFirst + 1002;
ecDesignerSelectParent = ecUserFirst + 1003;
ecDesignerMoveToFront = ecUserFirst + 1004;
ecDesignerMoveToBack = ecUserFirst + 1005;
ecDesignerForwardOne = ecUserFirst + 1006;
ecDesignerBackOne = ecUserFirst + 1007;
// custom commands
ecLazarusLast = ecUserFirst + 2000;
type
TKeyMapScheme = (
kmsLazarus,

232
ideintf/idecommands.pas
View File

@ -41,6 +41,238 @@ interface
uses
Classes, SysUtils, LCLProc, Forms, LCLType, Menus, TextTools;
const
{ editor commands constants. see syneditkeycmds.pp for more
These values can change from version to version, so DO NOT save them to file!
To add one static key do the following:
1. Add a constant with a unique value in the list below.
2. Add it to GetDefaultKeyForCommand to define the default keys+shiftstates
3. Add it to EditorCommandToDescriptionString to define the description
4. Add it to TKeyCommandRelationList.CreateDefaultMapping to define the
category.
IDE experts: They are handled in the IDE interface units.
}
ecNone = 0;
ecFirstLazarus = 1001;
// search
ecFind = ecFirstLazarus + 1;
ecFindAgain = ecFirstLazarus + 2;
ecFindNext = ecFindAgain;
ecReplace = ecFirstLazarus + 3;
ecIncrementalFind = ecFirstLazarus + 4;
ecFindProcedureDefinition = ecFirstLazarus + 5;
ecFindProcedureMethod = ecFirstLazarus + 6;
ecGotoLineNumber = ecFirstLazarus + 7;
ecFindPrevious = ecFirstLazarus + 8;
ecFindInFiles = ecFirstLazarus + 9;
ecJumpBack = ecFirstLazarus + 10;
ecJumpForward = ecFirstLazarus + 11;
ecAddJumpPoint = ecFirstLazarus + 12;
ecViewJumpHistory = ecFirstLazarus + 13;
ecJumpToNextError = ecFirstLazarus + 14;
ecJumpToPrevError = ecFirstLazarus + 15;
// search code
ecFindDeclaration = ecFirstLazarus + 20;
ecFindBlockOtherEnd = ecFirstLazarus + 21;
ecFindBlockStart = ecFirstLazarus + 22;
ecOpenFileAtCursor = ecFirstLazarus + 23;
ecGotoIncludeDirective = ecFirstLazarus + 24;
// edit selection
ecSelectionUpperCase = ecFirstLazarus + 50;
ecSelectionLowerCase = ecFirstLazarus + 51;
ecSelectionTabs2Spaces = ecFirstLazarus + 52;
ecSelectionEnclose = ecFirstLazarus + 53;
ecSelectionComment = ecFirstLazarus + 54;
ecSelectionUncomment = ecFirstLazarus + 55;
ecSelectionSort = ecFirstLazarus + 56;
ecSelectionBreakLines = ecFirstLazarus + 57;
ecSelectToBrace = ecFirstLazarus + 58;
ecSelectCodeBlock = ecFirstLazarus + 59;
ecSelectWord = ecFirstLazarus + 60;
ecSelectLine = ecFirstLazarus + 61;
ecSelectParagraph = ecFirstLazarus + 62;
ecSelectionConditional = ecFirstLazarus + 63;
// insert text
ecInsertCharacter = ecFirstLazarus + 80;
ecInsertGPLNotice = ecFirstLazarus + 81;
ecInsertLGPLNotice = ecFirstLazarus + 82;
ecInsertUserName = ecFirstLazarus + 83;
ecInsertDateTime = ecFirstLazarus + 84;
ecInsertChangeLogEntry = ecFirstLazarus + 85;
ecInsertCVSAuthor = ecFirstLazarus + 86;
ecInsertCVSDate = ecFirstLazarus + 87;
ecInsertCVSHeader = ecFirstLazarus + 88;
ecInsertCVSID = ecFirstLazarus + 89;
ecInsertCVSLog = ecFirstLazarus + 90;
ecInsertCVSName = ecFirstLazarus + 91;
ecInsertCVSRevision = ecFirstLazarus + 92;
ecInsertCVSSource = ecFirstLazarus + 93;
// source tools
ecWordCompletion = ecFirstLazarus + 100;
ecCompleteCode = ecFirstLazarus + 101;
ecIdentCompletion = ecFirstLazarus + 102;
ecSyntaxCheck = ecFirstLazarus + 103;
ecGuessUnclosedBlock = ecFirstLazarus + 104;
ecGuessMisplacedIFDEF = ecFirstLazarus + 105;
ecConvertDFM2LFM = ecFirstLazarus + 106;
ecCheckLFM = ecFirstLazarus + 107;
ecConvertDelphiUnit = ecFirstLazarus + 108;
ecConvertDelphiProject = ecFirstLazarus + 109;
ecMakeResourceString = ecFirstLazarus + 110;
ecDiff = ecFirstLazarus + 111;
ecExtractProc = ecFirstLazarus + 112;
ecFindIdentifierRefs = ecFirstLazarus + 113;
ecRenameIdentifier = ecFirstLazarus + 114;
ecInvertAssignment = ecFirstLazarus + 115;
ecShowCodeContext = ecFirstLazarus + 116;
// file menu
ecNew = ecFirstLazarus + 201;
ecNewUnit = ecFirstLazarus + 202;
ecNewForm = ecFirstLazarus + 203;
ecOpen = ecFirstLazarus + 205;
ecRevert = ecFirstLazarus + 206;
ecSave = ecFirstLazarus + 207;
ecSaveAs = ecFirstLazarus + 208;
ecSaveAll = ecFirstLazarus + 209;
ecClose = ecFirstLazarus + 210;
ecCloseAll = ecFirstLazarus + 211;
ecCleanDirectory = ecFirstLazarus + 212;
ecRestart = ecFirstLazarus + 213;
ecQuit = ecFirstLazarus + 214;
// IDE navigation
ecJumpToEditor = ecFirstLazarus + 300;
ecToggleFormUnit = ecFirstLazarus + 301;
ecToggleObjectInsp = ecFirstLazarus + 302;
ecToggleSourceEditor = ecFirstLazarus + 303;
ecToggleCodeExpl = ecFirstLazarus + 304;
ecToggleMessages = ecFirstLazarus + 305;
ecToggleWatches = ecFirstLazarus + 306;
ecToggleBreakPoints = ecFirstLazarus + 307;
ecToggleDebuggerOut = ecFirstLazarus + 308;
ecViewUnits = ecFirstLazarus + 309;
ecViewForms = ecFirstLazarus + 310;
ecViewUnitDependencies = ecFirstLazarus + 311;
ecViewUnitInfo = ecFirstLazarus + 312;
ecToggleLocals = ecFirstLazarus + 313;
ecToggleCallStack = ecFirstLazarus + 314;
ecToggleSearchResults = ecFirstLazarus + 315;
ecViewAnchorEditor = ecFirstLazarus + 316;
ecToggleCompPalette = ecFirstLazarus + 317;
ecToggleIDESpeedBtns = ecFirstLazarus + 318;
// sourcenotebook commands
ecNextEditor = ecFirstLazarus + 330;
ecPrevEditor = ecFirstLazarus + 331;
ecMoveEditorLeft = ecFirstLazarus + 332;
ecMoveEditorRight = ecFirstLazarus + 333;
ecAddBreakPoint = ecFirstLazarus + 334;
ecRemoveBreakPoint = ecFirstLazarus + 335;
ecGotoEditor1 = ecFirstLazarus + 350;
ecGotoEditor2 = ecGotoEditor1 + 1;
ecGotoEditor3 = ecGotoEditor2 + 1;
ecGotoEditor4 = ecGotoEditor3 + 1;
ecGotoEditor5 = ecGotoEditor4 + 1;
ecGotoEditor6 = ecGotoEditor5 + 1;
ecGotoEditor7 = ecGotoEditor6 + 1;
ecGotoEditor8 = ecGotoEditor7 + 1;
ecGotoEditor9 = ecGotoEditor8 + 1;
ecGotoEditor0 = ecGotoEditor9 + 1;
// marker
ecSetFreeBookmark = ecFirstLazarus + 381;
ecPrevBookmark = ecFirstLazarus + 382;
ecNextBookmark = ecFirstLazarus + 383;
// compile menu
ecBuild = ecFirstLazarus + 400;
ecBuildAll = ecFirstLazarus + 401;
ecAbortBuild = ecFirstLazarus + 402;
ecRun = ecFirstLazarus + 403;
ecPause = ecFirstLazarus + 404;
ecStepInto = ecFirstLazarus + 405;
ecStepOver = ecFirstLazarus + 406;
ecRunToCursor = ecFirstLazarus + 407;
ecStopProgram = ecFirstLazarus + 408;
ecResetDebugger = ecFirstLazarus + 409;
ecBuildLazarus = ecFirstLazarus + 410;
ecBuildFile = ecFirstLazarus + 411;
ecRunFile = ecFirstLazarus + 412;
ecConfigBuildFile = ecFirstLazarus + 413;
ecInspect = ecFirstLazarus + 414;
ecEvaluate = ecFirstLazarus + 415;
ecAddWatch = ecFirstLazarus + 416;
// project menu
ecNewProject = ecFirstLazarus + 500;
ecNewProjectFromFile = ecFirstLazarus + 501;
ecOpenProject = ecFirstLazarus + 502;
ecSaveProject = ecFirstLazarus + 503;
ecSaveProjectAs = ecFirstLazarus + 504;
ecPublishProject = ecFirstLazarus + 505;
ecProjectInspector = ecFirstLazarus + 506;
ecAddCurUnitToProj = ecFirstLazarus + 507;
ecRemoveFromProj = ecFirstLazarus + 508;
ecViewProjectSource = ecFirstLazarus + 509;
ecViewProjectTodos = ecFirstLazarus + 510;
ecProjectOptions = ecFirstLazarus + 511;
// components menu
ecOpenPackage = ecFirstLazarus + 600;
ecOpenPackageFile = ecFirstLazarus + 601;
ecOpenPackageOfCurUnit = ecFirstLazarus + 602;
ecAddCurUnitToPkg = ecFirstLazarus + 603;
ecPackageGraph = ecFirstLazarus + 604;
ecEditInstallPkgs = ecFirstLazarus + 605;
ecConfigCustomComps = ecFirstLazarus + 606;
// custom tools menu
ecExtToolFirst = ecFirstLazarus + 700;
ecExtToolLast = ecFirstLazarus + 799;
// option commmands
ecRunParameters = ecFirstLazarus + 800;
ecCompilerOptions = ecFirstLazarus + 801;
ecExtToolSettings = ecFirstLazarus + 802;
ecConfigBuildLazarus = ecFirstLazarus + 803;
ecEnvironmentOptions = ecFirstLazarus + 804;
ecEditorOptions = ecFirstLazarus + 805;
ecEditCodeTemplates = ecFirstLazarus + 806;
ecCodeToolsOptions = ecFirstLazarus + 807;
ecCodeToolsDefinesEd = ecFirstLazarus + 808;
ecRescanFPCSrcDir = ecFirstLazarus + 809;
// help menu
ecAboutLazarus = ecFirstLazarus + 900;
ecOnlineHelp = ecFirstLazarus + 901;
ecConfigureHelp = ecFirstLazarus + 902;
ecContextHelp = ecFirstLazarus + 903;
// designer
ecDesignerCopy = ecFirstLazarus + 1000;
ecDesignerCut = ecFirstLazarus + 1001;
ecDesignerPaste = ecFirstLazarus + 1002;
ecDesignerSelectParent = ecFirstLazarus + 1003;
ecDesignerMoveToFront = ecFirstLazarus + 1004;
ecDesignerMoveToBack = ecFirstLazarus + 1005;
ecDesignerForwardOne = ecFirstLazarus + 1006;
ecDesignerBackOne = ecFirstLazarus + 1007;
// custom commands
ecLazarusLast = ecFirstLazarus + 2000;
type
TIDECommand = class;
TIDECommandCategory = class;

4
lcl/include/lclintf.inc
View File

@ -42,13 +42,13 @@ end;
function AddPipeEventHandler(AHandle: THandle; AEventHandler: TPipeEvent;
AData: PtrInt): PPipeEventHandler;
begin
WidgetSet.AddPipeEventHandler(AHandle, AEventHandler, AData);
Result:=WidgetSet.AddPipeEventHandler(AHandle, AEventHandler, AData);
end;
function AddProcessEventHandler(AHandle: THandle; AEventHandler: TChildExitEvent;
AData: PtrInt): PProcessEventHandler;
begin
WidgetSet.AddProcessEventHandler(AHandle, AEventHandler, AData);
Result:=WidgetSet.AddProcessEventHandler(AHandle, AEventHandler, AData);
end;
procedure AttachMenuToWindow(AMenuObject: TComponent);

11
lcl/textstrings.pas
View File

@ -26,7 +26,6 @@
UNDER CONSTRUCTION by Mattias Gaertner
ToDo:
- Add
- Move
- IndexOf
}
@ -527,9 +526,15 @@ begin
end;
function TTextStrings.Add(const S: string): Integer;
var
e: String;
begin
// TODO
Result:=inherited Add(S);
Result:=Count;
if (FText<>'') and (not (FText[length(FText)] in [#10,#13])) then
e:=LineEnding
else
e:='';
Text:=Text+e+S;
end;
procedure TTextStrings.AddStrings(TheStrings: TStrings);

2
packager/pkgmanager.pas
View File

@ -52,7 +52,7 @@ uses
// IDE Interface
NewItemIntf, ProjectIntf, PackageIntf, MenuIntf, LazIDEIntf,
// IDE
LazConf, LazarusIDEStrConsts, IDEProcs, ObjectLists, DialogProcs, KeyMapping,
LazConf, LazarusIDEStrConsts, IDEProcs, ObjectLists, DialogProcs, IDECommands,
EnvironmentOpts, MiscOptions, InputHistory, ProjectDefs, Project,
ComponentReg, UComponentManMain, PackageEditor, AddToPackageDlg, PackageDefs,
PackageLinks, PackageSystem, OpenInstalledPkgDlg, PkgGraphExplorer,