paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 10:59: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=""/> <LazDoc Paths=""/>
<Units Count="1"> <Units Count="1">
<Unit0> <Unit0>
<CursorPos X="21" Y="32"/> <CursorPos X="17" Y="22"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<Filename Value="createmacapplication.lpr"/> <Filename Value="createmacapplication.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>

2
components/opengl/glcarbonaglcontext.pas
View File

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

2
components/opengl/openglcontext.pas
View File

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

2
components/synedit/synedit.pp
View File

@ -2607,8 +2607,6 @@ begin
{$ENDIF} {$ENDIF}
Lines.Count); Lines.Count);
// Now paint everything while the caret is hidden. // 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; HideCaret;
try try
// First paint the gutter area if it was (partly) invalidated. // First paint the gutter area if it was (partly) invalidated.

2
designer/designer.pp
View File

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

4
examples/exploremenu/exploreidemenu.pas
View File

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

38
examples/exploremenu/frmexploremenu.lfm
View File

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

33
examples/exploremenu/frmexploremenu.lrs
View File

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

232
ideintf/idecommands.pas
View File

@ -41,6 +41,238 @@ interface
uses uses
Classes, SysUtils, LCLProc, Forms, LCLType, Menus, TextTools; 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 type
TIDECommand = class; TIDECommand = class;
TIDECommandCategory = class; TIDECommandCategory = class;

4
lcl/include/lclintf.inc
View File

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

11
lcl/textstrings.pas
View File

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

2
packager/pkgmanager.pas
View File

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