mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 20:59:08 +02:00
converted codetoolsdefines editor to lfm from Darius
git-svn-id: trunk@8454 -
This commit is contained in:
mattias
parent
f4b9ce7264
commit
9079ef8482
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -933,6 +933,7 @@ ide/codemacroselect.pas svneol=native#text/plain
|
|||||||
ide/codetemplatesdlg.lfm svneol=native#text/plain
|
ide/codetemplatesdlg.lfm svneol=native#text/plain
|
||||||
ide/codetemplatesdlg.lrs svneol=native#text/plain
|
ide/codetemplatesdlg.lrs svneol=native#text/plain
|
||||||
ide/codetemplatesdlg.pas svneol=native#text/pascal
|
ide/codetemplatesdlg.pas svneol=native#text/pascal
|
||||||
|
ide/codetoolsdefines.lfm svneol=native#text/plain
|
||||||
ide/codetoolsdefines.lrs svneol=native#text/pascal
|
ide/codetoolsdefines.lrs svneol=native#text/pascal
|
||||||
ide/codetoolsdefines.pas svneol=native#text/pascal
|
ide/codetoolsdefines.pas svneol=native#text/pascal
|
||||||
ide/codetoolsdefpreview.lfm svneol=native#text/plain
|
ide/codetoolsdefpreview.lfm svneol=native#text/plain
|
||||||
|
|||||||
2489
ide/codetoolsdefines.lfm
Normal file
2489
ide/codetoolsdefines.lfm
Normal file
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -56,6 +56,23 @@ type
|
|||||||
{ TCodeToolsDefinesEditor }
|
{ TCodeToolsDefinesEditor }
|
||||||
|
|
||||||
TCodeToolsDefinesEditor = class(TForm)
|
TCodeToolsDefinesEditor = class(TForm)
|
||||||
|
MenuItem1: TMenuItem;
|
||||||
|
MenuItem10: TMenuItem;
|
||||||
|
MenuItem11: TMenuItem;
|
||||||
|
MenuItem14: TMenuItem;
|
||||||
|
MenuItem16: TMenuItem;
|
||||||
|
MenuItem17: TMenuItem;
|
||||||
|
MenuItem18: TMenuItem;
|
||||||
|
MenuItem19: TMenuItem;
|
||||||
|
MenuItem2: TMenuItem;
|
||||||
|
MenuItem23: TMenuItem;
|
||||||
|
MenuItem27: TMenuItem;
|
||||||
|
MenuItem29: TMenuItem;
|
||||||
|
MenuItem3: TMenuItem;
|
||||||
|
MenuItem30: TMenuItem;
|
||||||
|
Page1: TPage;
|
||||||
|
Page2: TPage;
|
||||||
|
Splitter1: TSplitter;
|
||||||
TheImageList: TImageList;
|
TheImageList: TImageList;
|
||||||
MainMenu: TMainMenu;
|
MainMenu: TMainMenu;
|
||||||
|
|
||||||
@ -166,9 +183,6 @@ type
|
|||||||
procedure CodeToolsDefinesEditorKeyUp(Sender: TObject; var Key: Word;
|
procedure CodeToolsDefinesEditorKeyUp(Sender: TObject; var Key: Word;
|
||||||
Shift: TShiftState);
|
Shift: TShiftState);
|
||||||
procedure DefineTreeViewSelectionChanged(Sender: TObject);
|
procedure DefineTreeViewSelectionChanged(Sender: TObject);
|
||||||
procedure FormResize(Sender: TObject);
|
|
||||||
procedure SelectedItemGroupBoxResize(Sender: TObject);
|
|
||||||
procedure ValueNoteBookResize(Sender: TObject);
|
|
||||||
|
|
||||||
// exit menu
|
// exit menu
|
||||||
procedure SaveAndExitMenuItemClick(Sender: TObject);
|
procedure SaveAndExitMenuItemClick(Sender: TObject);
|
||||||
@ -283,78 +297,6 @@ begin
|
|||||||
ModalResult:=mrCancel;
|
ModalResult:=mrCancel;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TCodeToolsDefinesEditor.SelectedItemGroupBoxResize(Sender: TObject);
|
|
||||||
var SelItemMaxX, SelItemMaxY: integer;
|
|
||||||
begin
|
|
||||||
SelItemMaxX:=SelectedItemGroupBox.ClientWidth;
|
|
||||||
SelItemMaxY:=SelectedItemGroupBox.ClientHeight;
|
|
||||||
with TypeLabel do begin
|
|
||||||
Left:=5;
|
|
||||||
Top:=3;
|
|
||||||
Width:=SelItemMaxX-2*Left;
|
|
||||||
end;
|
|
||||||
with NameLabel do begin
|
|
||||||
Left:=TypeLabel.Left;
|
|
||||||
Top:=TypeLabel.Top+TypeLabel.Height+7;
|
|
||||||
Width:=70;
|
|
||||||
end;
|
|
||||||
with NameEdit do begin
|
|
||||||
Left:=NameLabel.Left+NameLabel.Width+5;
|
|
||||||
Top:=NameLabel.Top;
|
|
||||||
Width:=SelItemMaxX-Left-5;
|
|
||||||
end;
|
|
||||||
with DescriptionLabel do begin
|
|
||||||
Left:=NameLabel.Left;
|
|
||||||
Top:=NameLabel.Top+NameLabel.Height+7;
|
|
||||||
Width:=70;
|
|
||||||
end;
|
|
||||||
with DescriptionEdit do begin
|
|
||||||
Left:=DescriptionLabel.Left+DescriptionLabel.Width+5;
|
|
||||||
Top:=DescriptionLabel.Top;
|
|
||||||
Width:=SelItemMaxX-Left-5;
|
|
||||||
end;
|
|
||||||
with VariableLabel do begin
|
|
||||||
Left:=DescriptionLabel.Left;
|
|
||||||
Top:=DescriptionLabel.Top+DescriptionLabel.Height+7;
|
|
||||||
Width:=70;
|
|
||||||
end;
|
|
||||||
with VariableEdit do begin
|
|
||||||
Left:=VariableLabel.Left+VariableLabel.Width+5;
|
|
||||||
Top:=VariableLabel.Top;
|
|
||||||
Width:=SelItemMaxX-Left-5;
|
|
||||||
end;
|
|
||||||
with ValueNoteBook do begin
|
|
||||||
Left:=0;
|
|
||||||
Top:=VariableLabel.Top+VariableLabel.Height+8;
|
|
||||||
Width:=SelItemMaxX;
|
|
||||||
Height:=SelItemMaxY-Top;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TCodeToolsDefinesEditor.FormResize(Sender: TObject);
|
|
||||||
var MaxX, MaxY, SelGrpBoxTop: integer;
|
|
||||||
begin
|
|
||||||
MaxX:=ClientWidth;
|
|
||||||
MaxY:=ClientHeight;
|
|
||||||
SelGrpBoxTop:=MaxY-310;
|
|
||||||
|
|
||||||
// define tree ---------------------------------------------------------------
|
|
||||||
with DefineTreeView do begin
|
|
||||||
Left:=3;
|
|
||||||
Top:=3;
|
|
||||||
Width:=MaxX-2*Left;
|
|
||||||
Height:=SelGrpBoxTop-2*Top;
|
|
||||||
end;
|
|
||||||
|
|
||||||
// selected item -------------------------------------------------------------
|
|
||||||
with SelectedItemGroupBox do begin
|
|
||||||
Left:=DefineTreeView.Left;
|
|
||||||
Top:=SelGrpBoxTop;
|
|
||||||
Width:=MaxX-2*Left;
|
|
||||||
Height:=MaxY-Top-Left;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TCodeToolsDefinesEditor.CodeToolsDefinesEditorKeyDown(
|
procedure TCodeToolsDefinesEditor.CodeToolsDefinesEditorKeyDown(
|
||||||
Sender: TObject; var Key: Word; Shift: TShiftState);
|
Sender: TObject; var Key: Word; Shift: TShiftState);
|
||||||
begin
|
begin
|
||||||
@ -1045,524 +987,115 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TCodeToolsDefinesEditor.ValueNoteBookResize(Sender: TObject);
|
|
||||||
var
|
|
||||||
ValNoteBookMaxX: integer;
|
|
||||||
begin
|
|
||||||
//ValNoteBookMaxX:=ValueNoteBook.ClientWidth-10;//ValueAsTextSynEdit.Parent.ClientWidth;
|
|
||||||
//ValNoteBookMaxY:=ValueNoteBook.ClientHeight-30;//ValueAsTextSynEdit.Parent.ClientHeight;
|
|
||||||
ValNoteBookMaxX:=ValueAsTextSynEdit.Parent.ClientWidth;
|
|
||||||
with ValueAsTextSynEdit do begin
|
|
||||||
Left:=0;
|
|
||||||
Top:=0;
|
|
||||||
Width:=ValNoteBookMaxX;
|
|
||||||
end;
|
|
||||||
with ValueAsFilePathsSynEdit do begin
|
|
||||||
Left:=0;
|
|
||||||
Top:=0;
|
|
||||||
Width:=ValNoteBookMaxX-80;
|
|
||||||
end;
|
|
||||||
with MoveFilePathUpBitBtn do begin
|
|
||||||
Left:=ValNoteBookMaxX-75;
|
|
||||||
Top:=1;
|
|
||||||
Width:=ValNoteBookMaxX-Left-5;
|
|
||||||
end;
|
|
||||||
with MoveFilePathDownBitBtn do begin
|
|
||||||
Left:=MoveFilePathUpBitBtn.Left;
|
|
||||||
Top:=MoveFilePathUpBitBtn.Top+MoveFilePathUpBitBtn.Height+5;
|
|
||||||
Width:=MoveFilePathUpBitBtn.Width;
|
|
||||||
end;
|
|
||||||
with DeleteFilePathBitBtn do begin
|
|
||||||
Left:=MoveFilePathUpBitBtn.Left;
|
|
||||||
Top:=MoveFilePathDownBitBtn.Top+MoveFilePathDownBitBtn.Height+5;
|
|
||||||
Width:=MoveFilePathUpBitBtn.Width;
|
|
||||||
end;
|
|
||||||
with InsertFilePathBitBtn do begin
|
|
||||||
Left:=MoveFilePathUpBitBtn.Left;
|
|
||||||
Top:=DeleteFilePathBitBtn.Top+DeleteFilePathBitBtn.Height+5;
|
|
||||||
Width:=MoveFilePathUpBitBtn.Width;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TCodeToolsDefinesEditor.CreateComponents;
|
procedure TCodeToolsDefinesEditor.CreateComponents;
|
||||||
|
|
||||||
procedure CreateControl(var AControl: TControl;
|
|
||||||
AControlClass: TControlClass; const AName: string;
|
|
||||||
AParent: TWinControl);
|
|
||||||
begin
|
|
||||||
AControl:=AControlClass.Create(Self);
|
|
||||||
with AControl do begin
|
|
||||||
Name:=AName;
|
|
||||||
Parent:=AParent;
|
|
||||||
Visible:=true;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure AddMenuItem(var AMenuItem: TMenuItem; const AName, ACaption: string;
|
|
||||||
AParent: TMenuItem);
|
|
||||||
begin
|
|
||||||
AMenuItem:=TMenuItem.Create(Self);
|
|
||||||
AMenuItem.Name:=AName;
|
|
||||||
AMenuItem.Caption:=ACaption;
|
|
||||||
if AParent=nil then
|
|
||||||
MainMenu.Items.Add(AMenuItem)
|
|
||||||
else
|
|
||||||
AParent.Add(AMenuItem);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure AddResImg(const ResName: string);
|
|
||||||
var Pixmap: TPixmap;
|
|
||||||
begin
|
|
||||||
Pixmap:=TPixmap.Create;
|
|
||||||
Pixmap.TransparentColor:=clWhite;
|
|
||||||
Pixmap.LoadFromLazarusResource(ResName);
|
|
||||||
TheImageList.Add(Pixmap,nil)
|
|
||||||
end;
|
|
||||||
|
|
||||||
var i: integer;
|
|
||||||
begin
|
begin
|
||||||
TheImageList:=TImageList.Create(Self);
|
|
||||||
with TheImageList do begin
|
|
||||||
Width:=22;
|
|
||||||
Height:=22;
|
|
||||||
Name:='TheImageList';
|
|
||||||
AddResImg('define_22x22');
|
|
||||||
AddResImg('definerecurse_22x22');
|
|
||||||
AddResImg('undefine_22x22');
|
|
||||||
AddResImg('undefinerecurse_22x22');
|
|
||||||
AddResImg('undefineall_22x22');
|
|
||||||
AddResImg('block_22x22');
|
|
||||||
AddResImg('directory_22x22');
|
|
||||||
AddResImg('if_22x22');
|
|
||||||
AddResImg('ifdef_22x22');
|
|
||||||
AddResImg('ifndef_22x22');
|
|
||||||
AddResImg('elseif_22x22');
|
|
||||||
AddResImg('else_22x22');
|
|
||||||
AddResImg('ctdefinestate_none_22x22');
|
|
||||||
AddResImg('ctdefinestate_auto_22x22');
|
|
||||||
AddResImg('ctdefinestate_projspec_22x22');
|
|
||||||
AddResImg('ctdefinestate_autoproj_22x22');
|
|
||||||
end;
|
|
||||||
|
|
||||||
// Main Menu -----------------------------------------------------------------
|
|
||||||
MainMenu := TMainMenu.Create(Self);
|
|
||||||
MainMenu.Name:='MainMenu';
|
|
||||||
Menu := MainMenu;
|
|
||||||
|
|
||||||
// exit menu
|
// exit menu
|
||||||
AddMenuItem(ExitMenuItem, 'ExitMenuItem', lisCodeToolsDefsExit, nil);
|
ExitMenuItem.Caption := lisCodeToolsDefsExit;
|
||||||
AddMenuItem(SaveAndExitMenuItem, 'SaveAndExitMenuItem',
|
SaveAndExitMenuItem.Caption:=lisCodeToolsDefsSaveAndExit;
|
||||||
lisCodeToolsDefsSaveAndExit,
|
DontSaveAndExitMenuItem.Caption:=lisCodeToolsDefsExitWithoutSave;
|
||||||
ExitMenuItem);
|
|
||||||
SaveAndExitMenuItem.OnClick:=@SaveAndExitMenuItemClick;
|
|
||||||
ExitMenuItem.Add(CreateSeperator);
|
|
||||||
AddMenuItem(DontSaveAndExitMenuItem,'DontSaveAndExitMenuItem',
|
|
||||||
lisCodeToolsDefsExitWithoutSave, ExitMenuItem);
|
|
||||||
DontSaveAndExitMenuItem.OnClick:=@DontSaveAndExitMenuItemClick;
|
|
||||||
|
|
||||||
// edit nodes
|
// edit nodes
|
||||||
AddMenuItem(EditMenuItem, 'EditMenuItem', lisCodeToolsDefsEdit, nil);
|
EditMenuItem.Caption := lisCodeToolsDefsEdit;
|
||||||
AddMenuItem(MoveNodeUpMenuItem, 'MoveNodeUpMenuItem',
|
MoveNodeUpMenuItem.Caption:=lisCodeToolsDefsMoveNodeUp;
|
||||||
lisCodeToolsDefsMoveNodeUp,
|
MoveNodeDownMenuItem.Caption := lisCodeToolsDefsMoveNodeDown;
|
||||||
EditMenuItem);
|
MoveNodeLvlUpMenuItem.Caption := lisCodeToolsDefsMoveNodeOneLevelUp;
|
||||||
MoveNodeUpMenuItem.OnClick:=@MoveNodeUpMenuItemClick;
|
MoveNodeLvlDownMenuItem.Caption := lisCodeToolsDefsMoveNodeOneLevelDown;
|
||||||
|
InsertBehindMenuItem.Caption := lisCodeToolsDefsInsertNodeBelow;
|
||||||
AddMenuItem(MoveNodeDownMenuItem, 'MoveNodeDownMenuItem',
|
InsertAsChildMenuItem.Caption := lisCodeToolsDefsInsertNodeAsChild;
|
||||||
lisCodeToolsDefsMoveNodeDown,
|
DeleteNodeMenuItem.Caption := lisCodeToolsDefsDeleteNode;
|
||||||
EditMenuItem);
|
ConvertActionMenuItem.Caption := lisCodeToolsDefsConvertNode;
|
||||||
MoveNodeDownMenuItem.OnClick:=@MoveNodeDownMenuItemClick;
|
|
||||||
|
|
||||||
AddMenuItem(MoveNodeLvlUpMenuItem, 'MoveNodeLvlUpMenuItem',
|
|
||||||
lisCodeToolsDefsMoveNodeOneLevelUp,
|
|
||||||
EditMenuItem);
|
|
||||||
MoveNodeLvlUpMenuItem.OnClick:=@MoveNodeLvlUpMenuItemClick;
|
|
||||||
|
|
||||||
AddMenuItem(MoveNodeLvlDownMenuItem, 'MoveNodeLvlDownMenuItem',
|
|
||||||
lisCodeToolsDefsMoveNodeOneLevelDown,
|
|
||||||
EditMenuItem);
|
|
||||||
MoveNodeLvlDownMenuItem.OnClick:=@MoveNodeLvlDownMenuItemClick;
|
|
||||||
|
|
||||||
EditMenuItem.Add(CreateSeperator);
|
|
||||||
|
|
||||||
AddMenuItem(InsertBehindMenuItem, 'InsertBehindMenuItem',
|
|
||||||
lisCodeToolsDefsInsertNodeBelow,
|
|
||||||
EditMenuItem);
|
|
||||||
|
|
||||||
AddMenuItem(InsertAsChildMenuItem, 'InsertAsChildMenuItem',
|
|
||||||
lisCodeToolsDefsInsertNodeAsChild,
|
|
||||||
EditMenuItem);
|
|
||||||
|
|
||||||
EditMenuItem.Add(CreateSeperator);
|
|
||||||
|
|
||||||
AddMenuItem(DeleteNodeMenuItem, 'DeleteNodeMenuItem',
|
|
||||||
lisCodeToolsDefsDeleteNode,
|
|
||||||
EditMenuItem);
|
|
||||||
DeleteNodeMenuItem.OnClick:=@DeleteNodeMenuItemClick;
|
|
||||||
|
|
||||||
AddMenuItem(ConvertActionMenuItem, 'ConvertActionMenuItem',
|
|
||||||
lisCodeToolsDefsConvertNode,
|
|
||||||
EditMenuItem);
|
|
||||||
|
|
||||||
{ EditMenuItem.Add(CreateSeperator);
|
|
||||||
AddMenuItem(CopyToClipbrdMenuItem,'CopyToClipbrdMenuItem','Copy to clipboard',
|
|
||||||
EditMenuItem);
|
|
||||||
AddMenuItem(PasteFromClipbrdMenuItem,'PasteFromClipbrdMenuItem',
|
|
||||||
'Paste from clipboard',EditMenuItem);}
|
|
||||||
|
|
||||||
// insert node behind submenu
|
// insert node behind submenu
|
||||||
AddMenuItem(InsertBehindDefineMenuItem, 'InsertBehindDefineMenuItem',
|
InsertBehindDefineMenuItem.Caption := lisCodeToolsDefsDefine;
|
||||||
lisCodeToolsDefsDefine,
|
InsertBehindDefineRecurseMenuItem.Caption := lisCodeToolsDefsDefineRecurse;
|
||||||
InsertBehindMenuItem);
|
InsertBehindUndefineMenuItem.Caption := lisCodeToolsDefsUndefine;
|
||||||
AddMenuItem(InsertBehindDefineRecurseMenuItem,
|
InsertBehindUndefineRecurseMenuItem.Caption := lisCodeToolsDefsUndefineRecurse;
|
||||||
'InsertBehindDefineRecurseMenuItem',
|
InsertBehindUndefineAllMenuItem.Caption := lisCodeToolsDefsUndefineAll;
|
||||||
lisCodeToolsDefsDefineRecurse,
|
InsertBehindBlockMenuItem.Caption := lisCodeToolsDefsBlock;
|
||||||
InsertBehindMenuItem);
|
InsertBehindDirectoryMenuItem.Caption := lisCodeToolsDefsInsertBehindDirectory;
|
||||||
AddMenuItem(InsertBehindUndefineMenuItem,
|
InsertBehindIfMenuItem.Caption := lisCodeToolsDefsIf;
|
||||||
'InsertBehindUndefineMenuItem', lisCodeToolsDefsUndefine,
|
InsertBehindIfDefMenuItem.Caption := lisCodeToolsDefsIfDef;
|
||||||
InsertBehindMenuItem);
|
InsertBehindIfNotDefMenuItem.Caption := lisCodeToolsDefsIfNDef;
|
||||||
AddMenuItem(InsertBehindUndefineRecurseMenuItem,
|
InsertBehindElseIfMenuItem.Caption := lisCodeToolsDefsElseIf;
|
||||||
'InsertBehindUndefineRecurseMenuItem',
|
InsertBehindElseMenuItem.Caption := lisCodeToolsDefsElse;
|
||||||
lisCodeToolsDefsUndefineRecurse,
|
|
||||||
InsertBehindMenuItem);
|
|
||||||
AddMenuItem(InsertBehindUndefineAllMenuItem,
|
|
||||||
'InsertBehindUndefineAllMenuItem', lisCodeToolsDefsUndefineAll,
|
|
||||||
InsertBehindMenuItem);
|
|
||||||
InsertBehindMenuItem.Add(CreateSeperator);
|
|
||||||
AddMenuItem(InsertBehindBlockMenuItem, 'InsertBehindBlockMenuItem',
|
|
||||||
lisCodeToolsDefsBlock,
|
|
||||||
InsertBehindMenuItem);
|
|
||||||
AddMenuItem(InsertBehindDirectoryMenuItem,
|
|
||||||
'InsertBehindDirectoryMenuItem',
|
|
||||||
lisCodeToolsDefsInsertBehindDirectory,
|
|
||||||
InsertBehindMenuItem);
|
|
||||||
InsertBehindMenuItem.Add(CreateSeperator);
|
|
||||||
AddMenuItem(InsertBehindIfMenuItem, 'InsertBehindIfMenuItem',
|
|
||||||
lisCodeToolsDefsIf,
|
|
||||||
InsertBehindMenuItem);
|
|
||||||
AddMenuItem(InsertBehindIfDefMenuItem, 'InsertBehindIfDefMenuItem',
|
|
||||||
lisCodeToolsDefsIfDef,
|
|
||||||
InsertBehindMenuItem);
|
|
||||||
AddMenuItem(InsertBehindIfNotDefMenuItem, 'InsertBehindIfNotDefMenuItem',
|
|
||||||
lisCodeToolsDefsIfNDef,
|
|
||||||
InsertBehindMenuItem);
|
|
||||||
AddMenuItem(InsertBehindElseIfMenuItem, 'InsertBehindElseIfMenuItem',
|
|
||||||
lisCodeToolsDefsElseIf,
|
|
||||||
InsertBehindMenuItem);
|
|
||||||
AddMenuItem(InsertBehindElseMenuItem, 'InsertBehindElseMenuItem',
|
|
||||||
lisCodeToolsDefsElse,
|
|
||||||
InsertBehindMenuItem);
|
|
||||||
for i:=0 to InsertBehindMenuItem.Count-1 do
|
|
||||||
if InsertBehindMenuItem[i].Caption<>'-' then
|
|
||||||
InsertBehindMenuItem[i].OnClick:=@InsertNodeMenuItemClick;
|
|
||||||
|
|
||||||
// insert node as child submenu
|
// insert node as child submenu
|
||||||
AddMenuItem(InsertAsChildDefineMenuItem, 'InsertAsChildDefineMenuItem',
|
InsertAsChildDefineMenuItem.Caption := lisCodeToolsDefsDefine;
|
||||||
lisCodeToolsDefsDefine,
|
InsertAsChildDefineRecurseMenuItem.Caption := lisCodeToolsDefsDefineRecurse;
|
||||||
InsertAsChildMenuItem);
|
InsertAsChildUndefineMenuItem.Caption := lisCodeToolsDefsUndefine;
|
||||||
AddMenuItem(InsertAsChildDefineRecurseMenuItem,
|
InsertAsChildUndefineRecurseMenuItem.Caption := lisCodeToolsDefsUndefineRecurse;
|
||||||
'InsertAsChildDefineRecurseMenuItem',
|
InsertAsChildUndefineAllMenuItem.Caption := lisCodeToolsDefsUndefineAll;
|
||||||
lisCodeToolsDefsDefineRecurse,
|
InsertAsChildBlockMenuItem.Caption := lisCodeToolsDefsBlock;
|
||||||
InsertAsChildMenuItem);
|
InsertAsChildDirectoryMenuItem.Caption := lisCodeToolsDefsInsertBehindDirectory;
|
||||||
AddMenuItem(InsertAsChildUndefineMenuItem,
|
InsertAsChildIfMenuItem.Caption := lisCodeToolsDefsIf;
|
||||||
'InsertAsChildUndefineMenuItem', lisCodeToolsDefsUndefine,
|
InsertAsChildIfDefMenuItem.Caption := lisCodeToolsDefsIfDef;
|
||||||
InsertAsChildMenuItem);
|
InsertAsChildIfNotDefMenuItem.Caption := lisCodeToolsDefsIfNDef;
|
||||||
AddMenuItem(InsertAsChildUndefineRecurseMenuItem,
|
InsertAsChildElseIfMenuItem.Caption := lisCodeToolsDefsElseIf;
|
||||||
'InsertAsChildUndefineRecurseMenuItem',
|
InsertAsChildElseMenuItem.Caption := lisCodeToolsDefsElse;
|
||||||
lisCodeToolsDefsUndefineRecurse,
|
|
||||||
InsertAsChildMenuItem);
|
|
||||||
AddMenuItem(InsertAsChildUndefineAllMenuItem,
|
|
||||||
'InsertAsChildUndefineAllMenuItem', lisCodeToolsDefsUndefineAll,
|
|
||||||
InsertAsChildMenuItem);
|
|
||||||
InsertAsChildMenuItem.Add(CreateSeperator);
|
|
||||||
AddMenuItem(InsertAsChildBlockMenuItem, 'InsertAsChildBlockMenuItem',
|
|
||||||
lisCodeToolsDefsBlock,
|
|
||||||
InsertAsChildMenuItem);
|
|
||||||
AddMenuItem(InsertAsChildDirectoryMenuItem,
|
|
||||||
'InsertAsChildDirectoryMenuItem',
|
|
||||||
lisCodeToolsDefsInsertBehindDirectory,
|
|
||||||
InsertAsChildMenuItem);
|
|
||||||
InsertAsChildMenuItem.Add(CreateSeperator);
|
|
||||||
AddMenuItem(InsertAsChildIfMenuItem, 'InsertAsChildIfMenuItem',
|
|
||||||
lisCodeToolsDefsIf,
|
|
||||||
InsertAsChildMenuItem);
|
|
||||||
AddMenuItem(InsertAsChildIfDefMenuItem, 'InsertAsChildIfDefMenuItem',
|
|
||||||
lisCodeToolsDefsIfDef,
|
|
||||||
InsertAsChildMenuItem);
|
|
||||||
AddMenuItem(InsertAsChildIfNotDefMenuItem, 'InsertAsChildIfNotDefMenuItem',
|
|
||||||
lisCodeToolsDefsIfNDef,
|
|
||||||
InsertAsChildMenuItem);
|
|
||||||
AddMenuItem(InsertAsChildElseIfMenuItem, 'InsertAsChildElseIfMenuItem',
|
|
||||||
lisCodeToolsDefsElseIf,
|
|
||||||
InsertAsChildMenuItem);
|
|
||||||
AddMenuItem(InsertAsChildElseMenuItem, 'InsertAsChildElseMenuItem',
|
|
||||||
lisCodeToolsDefsElse,
|
|
||||||
InsertAsChildMenuItem);
|
|
||||||
for i:=0 to InsertAsChildMenuItem.Count-1 do
|
|
||||||
if InsertAsChildMenuItem[i].Caption<>'-' then
|
|
||||||
InsertAsChildMenuItem[i].OnClick:=@InsertNodeMenuItemClick;
|
|
||||||
|
|
||||||
// convert node sub menu
|
// convert node sub menu
|
||||||
AddMenuItem(ConvertActionToDefineMenuItem, 'ConvertActionToDefineMenuItem',
|
ConvertActionToDefineMenuItem.Caption := lisCodeToolsDefsDefine;
|
||||||
lisCodeToolsDefsDefine,
|
ConvertActionToDefineRecurseMenuItem.Caption := lisCodeToolsDefsDefineRecurse;
|
||||||
ConvertActionMenuItem);
|
ConvertActionToUndefineMenuItem.Caption := lisCodeToolsDefsUndefine;
|
||||||
AddMenuItem(ConvertActionToDefineRecurseMenuItem,
|
ConvertActionToUndefineRecurseMenuItem.Caption := lisCodeToolsDefsUndefineRecurse;
|
||||||
'ConvertActionToDefineRecurseMenuItem',
|
ConvertActionToUndefineAllMenuItem.Caption := lisCodeToolsDefsUndefineAll;
|
||||||
lisCodeToolsDefsDefineRecurse,
|
ConvertActionToBlockMenuItem.Caption := lisCodeToolsDefsBlock;
|
||||||
ConvertActionMenuItem);
|
ConvertActionToDirectoryMenuItem.Caption := lisCodeToolsDefsInsertBehindDirectory;
|
||||||
AddMenuItem(ConvertActionToUndefineMenuItem,
|
ConvertActionToIfMenuItem.Caption := lisCodeToolsDefsIf;
|
||||||
'ConvertActionToUndefineMenuItem', lisCodeToolsDefsUndefine,
|
ConvertActionToIfDefMenuItem.Caption := lisCodeToolsDefsIfDef;
|
||||||
ConvertActionMenuItem);
|
ConvertActionToIfNotDefMenuItem.Caption := lisCodeToolsDefsIfNDef;
|
||||||
AddMenuItem(ConvertActionToUndefineRecurseMenuItem,
|
ConvertActionToElseIfMenuItem.Caption := lisCodeToolsDefsElseIf;
|
||||||
'ConvertActionToUndefineRecurseMenuItem',
|
ConvertActionToElseMenuItem.Caption := lisCodeToolsDefsElse;
|
||||||
lisCodeToolsDefsUndefineRecurse,
|
|
||||||
ConvertActionMenuItem);
|
|
||||||
AddMenuItem(ConvertActionToUndefineAllMenuItem,
|
|
||||||
'ConvertActionToUndefineAllMenuItem', lisCodeToolsDefsUndefineAll,
|
|
||||||
ConvertActionMenuItem);
|
|
||||||
ConvertActionMenuItem.Add(CreateSeperator);
|
|
||||||
AddMenuItem(ConvertActionToBlockMenuItem, 'ConvertActionToBlockMenuItem',
|
|
||||||
lisCodeToolsDefsBlock,
|
|
||||||
ConvertActionMenuItem);
|
|
||||||
AddMenuItem(ConvertActionToDirectoryMenuItem,
|
|
||||||
'ConvertActionToDirectoryMenuItem',
|
|
||||||
lisCodeToolsDefsInsertBehindDirectory,
|
|
||||||
ConvertActionMenuItem);
|
|
||||||
ConvertActionMenuItem.Add(CreateSeperator);
|
|
||||||
AddMenuItem(ConvertActionToIfMenuItem, 'ConvertActionToIfMenuItem',
|
|
||||||
lisCodeToolsDefsIf,
|
|
||||||
ConvertActionMenuItem);
|
|
||||||
AddMenuItem(ConvertActionToIfDefMenuItem, 'ConvertActionToIfDefMenuItem',
|
|
||||||
lisCodeToolsDefsIfDef,
|
|
||||||
ConvertActionMenuItem);
|
|
||||||
AddMenuItem(ConvertActionToIfNotDefMenuItem,
|
|
||||||
'ConvertActionToIfNotDefMenuItem', lisCodeToolsDefsIfNDef,
|
|
||||||
ConvertActionMenuItem);
|
|
||||||
AddMenuItem(ConvertActionToElseIfMenuItem, 'ConvertActionToElseIfMenuItem',
|
|
||||||
lisCodeToolsDefsElseIf,
|
|
||||||
ConvertActionMenuItem);
|
|
||||||
AddMenuItem(ConvertActionToElseMenuItem, 'ConvertActionToElseMenuItem',
|
|
||||||
lisCodeToolsDefsElse,
|
|
||||||
ConvertActionMenuItem);
|
|
||||||
for i:=0 to ConvertActionMenuItem.Count-1 do
|
|
||||||
if ConvertActionMenuItem[i].Caption<>'-' then
|
|
||||||
ConvertActionMenuItem[i].OnClick:=@ConvertActionMenuItemClick;
|
|
||||||
|
|
||||||
// tools
|
// tools
|
||||||
AddMenuItem(ToolsMenuItem, 'ToolsMenuItem', lisCTDefsTools, nil);
|
ToolsMenuItem.Caption := lisCTDefsTools;
|
||||||
AddMenuItem(OpenPreviewMenuItem, 'OpenPreviewMenuItem', lisCTDefsOpenPreview,
|
OpenPreviewMenuItem.Caption := lisCTDefsOpenPreview;
|
||||||
ToolsMenuItem);
|
|
||||||
OpenPreviewMenuItem.OnClick:=@OpenPreviewMenuItemClick;
|
|
||||||
|
|
||||||
{AddMenuItem(ShowMacroListMenuItem,'ShowMacroListMenuItem','Show Macros',
|
|
||||||
ToolsMenuItem);}
|
|
||||||
|
|
||||||
// templates
|
// templates
|
||||||
AddMenuItem(InsertTemplateMenuItem,'InsertTemplateMenuItem',
|
InsertTemplateMenuItem.Caption := lisCodeToolsDefsInsertTemplate;
|
||||||
lisCodeToolsDefsInsertTemplate, nil);
|
|
||||||
|
|
||||||
// FPC templates
|
// FPC templates
|
||||||
AddMenuItem(InsertFPCProjectDefinesTemplateMenuItem,
|
InsertFPCProjectDefinesTemplateMenuItem.Caption := lisCodeToolsDefsInsertFreePascalProjectTe;
|
||||||
'InsertFPCProjectDefinesTemplateMenuItem',
|
InsertFPCompilerDefinesTemplateMenuItem.Caption := lisCodeToolsDefsInsertFreePascalCompilerT;
|
||||||
lisCodeToolsDefsInsertFreePascalProjectTe,
|
InsertFPCSourceDirTemplateMenuItem.Caption := lisCodeToolsDefsInsertFreePascalSVNSource;
|
||||||
InsertTemplateMenuItem);
|
|
||||||
InsertFPCProjectDefinesTemplateMenuItem.OnClick:=
|
|
||||||
@InsertFPCProjectDefinesTemplateMenuItemClick;
|
|
||||||
|
|
||||||
AddMenuItem(InsertFPCompilerDefinesTemplateMenuItem,
|
|
||||||
'InsertFPCompilerDefinesTemplateMenuItem',
|
|
||||||
lisCodeToolsDefsInsertFreePascalCompilerT,
|
|
||||||
InsertTemplateMenuItem);
|
|
||||||
InsertFPCompilerDefinesTemplateMenuItem.OnClick:=
|
|
||||||
@InsertFPCompilerDefinesTemplateMenuItemClick;
|
|
||||||
|
|
||||||
AddMenuItem(InsertFPCSourceDirTemplateMenuItem,
|
|
||||||
'InsertFPCSourceDirTemplateMenuItem',
|
|
||||||
lisCodeToolsDefsInsertFreePascalSVNSource,
|
|
||||||
InsertTemplateMenuItem);
|
|
||||||
InsertFPCSourceDirTemplateMenuItem.OnClick:=
|
|
||||||
@InsertFPCSourceDirDefinesTemplateMenuItemClick;
|
|
||||||
|
|
||||||
// lazarus templates
|
// lazarus templates
|
||||||
InsertTemplateMenuItem.Add(CreateSeperator);
|
InsertLazarusSourceTemplateMenuItem.Caption := lisCodeToolsDefsInsertLazarusDirectoryTem;
|
||||||
AddMenuItem(InsertLazarusSourceTemplateMenuItem,
|
|
||||||
'InsertLazarusSourceTemplateMenuItem',
|
|
||||||
lisCodeToolsDefsInsertLazarusDirectoryTem,
|
|
||||||
InsertTemplateMenuItem);
|
|
||||||
InsertLazarusSourceTemplateMenuItem.OnClick:=
|
|
||||||
@InsertLazarusSourceDefinesTemplateMenuItemClick;
|
|
||||||
|
|
||||||
// Delphi 5 templates
|
// Delphi 5 templates
|
||||||
InsertTemplateMenuItem.Add(CreateSeperator);
|
InsertDelphi5CompilerDefinesTemplateMenuItem.Caption := lisCodeToolsDefsInsertDelphi5CompilerTemp;
|
||||||
AddMenuItem(InsertDelphi5CompilerDefinesTemplateMenuItem,
|
InsertDelphi5DirectoryTemplateMenuItem.Caption := lisCodeToolsDefsInsertDelphi5DirectoryTem;
|
||||||
'InsertDelphi5CompilerDefinesTemplateMenuItem',
|
InsertDelphi5ProjectTemplateMenuItem.Caption := lisCodeToolsDefsInsertDelphi5ProjectTempl;
|
||||||
lisCodeToolsDefsInsertDelphi5CompilerTemp,
|
|
||||||
InsertTemplateMenuItem);
|
|
||||||
InsertDelphi5CompilerDefinesTemplateMenuItem.OnClick:=
|
|
||||||
@InsertDelphiCompilerDefinesTemplateMenuItemClick;
|
|
||||||
|
|
||||||
AddMenuItem(InsertDelphi5DirectoryTemplateMenuItem,
|
|
||||||
'InsertDelphi5DirectoryTemplateMenuItem',
|
|
||||||
lisCodeToolsDefsInsertDelphi5DirectoryTem,
|
|
||||||
InsertTemplateMenuItem);
|
|
||||||
InsertDelphi5DirectoryTemplateMenuItem.OnClick:=
|
|
||||||
@InsertDelphiDirectoryTemplateMenuItemClick;
|
|
||||||
|
|
||||||
AddMenuItem(InsertDelphi5ProjectTemplateMenuItem,
|
|
||||||
'InsertDelphi5ProjectTemplateMenuItem',
|
|
||||||
lisCodeToolsDefsInsertDelphi5ProjectTempl,
|
|
||||||
InsertTemplateMenuItem);
|
|
||||||
InsertDelphi5ProjectTemplateMenuItem.OnClick:=
|
|
||||||
@InsertDelphiProjectTemplateMenuItemClick;
|
|
||||||
|
|
||||||
// Delphi 6 templates
|
// Delphi 6 templates
|
||||||
InsertTemplateMenuItem.Add(CreateSeperator);
|
InsertDelphi6CompilerDefinesTemplateMenuItem.Caption := lisCodeToolsDefsInsertDelphi6CompilerTemp;
|
||||||
AddMenuItem(InsertDelphi6CompilerDefinesTemplateMenuItem,
|
InsertDelphi6DirectoryTemplateMenuItem.Caption := lisCodeToolsDefsInsertDelphi6DirectoryTem;
|
||||||
'InsertDelphi6CompilerDefinesTemplateMenuItem',
|
InsertDelphi6ProjectTemplateMenuItem.Caption := lisCodeToolsDefsInsertDelphi6ProjectTempl;
|
||||||
lisCodeToolsDefsInsertDelphi6CompilerTemp,
|
|
||||||
InsertTemplateMenuItem);
|
|
||||||
InsertDelphi6CompilerDefinesTemplateMenuItem.OnClick:=
|
|
||||||
@InsertDelphiCompilerDefinesTemplateMenuItemClick;
|
|
||||||
|
|
||||||
AddMenuItem(InsertDelphi6DirectoryTemplateMenuItem,
|
|
||||||
'InsertDelphi6DirectoryTemplateMenuItem',
|
|
||||||
lisCodeToolsDefsInsertDelphi6DirectoryTem,
|
|
||||||
InsertTemplateMenuItem);
|
|
||||||
InsertDelphi6DirectoryTemplateMenuItem.OnClick:=
|
|
||||||
@InsertDelphiDirectoryTemplateMenuItemClick;
|
|
||||||
|
|
||||||
AddMenuItem(InsertDelphi6ProjectTemplateMenuItem,
|
|
||||||
'InsertDelphi6ProjectTemplateMenuItem',
|
|
||||||
lisCodeToolsDefsInsertDelphi6ProjectTempl,
|
|
||||||
InsertTemplateMenuItem);
|
|
||||||
InsertDelphi6ProjectTemplateMenuItem.OnClick:=
|
|
||||||
@InsertDelphiProjectTemplateMenuItemClick;
|
|
||||||
|
|
||||||
// Delphi 7 templates
|
// Delphi 7 templates
|
||||||
InsertTemplateMenuItem.Add(CreateSeperator);
|
InsertDelphi7CompilerDefinesTemplateMenuItem.Caption := lisCodeToolsDefsInsertDelphi7CompilerTemp;
|
||||||
AddMenuItem(InsertDelphi7CompilerDefinesTemplateMenuItem,
|
InsertDelphi7DirectoryTemplateMenuItem.Caption := lisCodeToolsDefsInsertDelphi7DirectoryTem;
|
||||||
'InsertDelphi7CompilerDefinesTemplateMenuItem',
|
InsertDelphi7ProjectTemplateMenuItem.Caption := lisCodeToolsDefsInsertDelphi7ProjectTempl;
|
||||||
lisCodeToolsDefsInsertDelphi7CompilerTemp,
|
|
||||||
InsertTemplateMenuItem);
|
|
||||||
InsertDelphi7CompilerDefinesTemplateMenuItem.OnClick:=
|
|
||||||
@InsertDelphiCompilerDefinesTemplateMenuItemClick;
|
|
||||||
|
|
||||||
AddMenuItem(InsertDelphi7DirectoryTemplateMenuItem,
|
|
||||||
'InsertDelphi7DirectoryTemplateMenuItem',
|
|
||||||
lisCodeToolsDefsInsertDelphi7DirectoryTem,
|
|
||||||
InsertTemplateMenuItem);
|
|
||||||
InsertDelphi7DirectoryTemplateMenuItem.OnClick:=
|
|
||||||
@InsertDelphiDirectoryTemplateMenuItemClick;
|
|
||||||
|
|
||||||
AddMenuItem(InsertDelphi7ProjectTemplateMenuItem,
|
|
||||||
'InsertDelphi7ProjectTemplateMenuItem',
|
|
||||||
lisCodeToolsDefsInsertDelphi7ProjectTempl,
|
|
||||||
InsertTemplateMenuItem);
|
|
||||||
InsertDelphi7ProjectTemplateMenuItem.OnClick:=
|
|
||||||
@InsertDelphiProjectTemplateMenuItemClick;
|
|
||||||
|
|
||||||
// Kylix 3 templates
|
// Kylix 3 templates
|
||||||
InsertTemplateMenuItem.Add(CreateSeperator);
|
InsertKylix3CompilerDefinesTemplateMenuItem.Caption := lisCodeToolsDefsInsertKylix3CompilerTemp;
|
||||||
AddMenuItem(InsertKylix3CompilerDefinesTemplateMenuItem,
|
InsertKylix3DirectoryTemplateMenuItem.Caption := lisCodeToolsDefsInsertKylix3DirectoryTem;
|
||||||
'InsertKylix3CompilerDefinesTemplateMenuItem',
|
InsertKylix3ProjectTemplateMenuItem.Caption := lisCodeToolsDefsInsertKylix3ProjectTempl;
|
||||||
lisCodeToolsDefsInsertKylix3CompilerTemp,
|
|
||||||
InsertTemplateMenuItem);
|
|
||||||
InsertKylix3CompilerDefinesTemplateMenuItem.OnClick:=
|
|
||||||
@InsertKylixCompilerDefinesTemplateMenuItemClick;
|
|
||||||
|
|
||||||
AddMenuItem(InsertKylix3DirectoryTemplateMenuItem,
|
|
||||||
'InsertKylix3DirectoryTemplateMenuItem',
|
|
||||||
lisCodeToolsDefsInsertKylix3DirectoryTem,
|
|
||||||
InsertTemplateMenuItem);
|
|
||||||
InsertKylix3DirectoryTemplateMenuItem.OnClick:=
|
|
||||||
@InsertKylixDirectoryTemplateMenuItemClick;
|
|
||||||
|
|
||||||
AddMenuItem(InsertKylix3ProjectTemplateMenuItem,
|
|
||||||
'InsertKylix3ProjectTemplateMenuItem',
|
|
||||||
lisCodeToolsDefsInsertKylix3ProjectTempl,
|
|
||||||
InsertTemplateMenuItem);
|
|
||||||
InsertKylix3ProjectTemplateMenuItem.OnClick:=
|
|
||||||
@InsertKylixProjectTemplateMenuItemClick;
|
|
||||||
|
|
||||||
// define tree----------------------------------------------------------------
|
|
||||||
CreateControl(DefineTreeView,TTreeView,'DefineTreeView',Self);
|
|
||||||
with DefineTreeView do begin
|
|
||||||
DefaultItemHeight:=22;
|
|
||||||
Images:=TheImageList;
|
|
||||||
StateImages:=TheImageList;
|
|
||||||
OnSelectionChanged:=@DefineTreeViewSelectionChanged;
|
|
||||||
end;
|
|
||||||
|
|
||||||
// selected item
|
// selected item
|
||||||
CreateControl(SelectedItemGroupBox,TGroupBox,'SelectedItemGroupBox',Self);
|
|
||||||
SelectedItemGroupBox.Caption:=lisCodeToolsDefsSelectedNode;
|
SelectedItemGroupBox.Caption:=lisCodeToolsDefsSelectedNode;
|
||||||
SelectedItemGroupBox.OnResize:=@SelectedItemGroupBoxResize;
|
|
||||||
|
|
||||||
CreateControl(TypeLabel,TLabel,'TypeLabel',SelectedItemGroupBox);
|
|
||||||
|
|
||||||
CreateControl(NameLabel,TLabel,'NameLabel',SelectedItemGroupBox);
|
|
||||||
NameLabel.Caption:=lisCodeToolsDefsName;
|
NameLabel.Caption:=lisCodeToolsDefsName;
|
||||||
|
|
||||||
CreateControl(NameEdit,TEdit,'NameEdit',SelectedItemGroupBox);
|
|
||||||
|
|
||||||
CreateControl(DescriptionLabel,TLabel,'DescriptionLabel',
|
|
||||||
SelectedItemGroupBox);
|
|
||||||
DescriptionLabel.Caption:=lisCodeToolsDefsDescription;
|
DescriptionLabel.Caption:=lisCodeToolsDefsDescription;
|
||||||
|
|
||||||
CreateControl(DescriptionEdit,TEdit,'DescriptionEdit',
|
|
||||||
SelectedItemGroupBox);
|
|
||||||
|
|
||||||
CreateControl(VariableLabel,TLabel,'VariableLabel',SelectedItemGroupBox);
|
|
||||||
VariableLabel.Caption:=lisCodeToolsDefsVariable;
|
VariableLabel.Caption:=lisCodeToolsDefsVariable;
|
||||||
|
|
||||||
CreateControl(VariableEdit,TEdit,'VariableEdit',SelectedItemGroupBox);
|
|
||||||
|
|
||||||
CreateControl(ValueNoteBook,TNoteBook,'ValueNoteBook',
|
|
||||||
SelectedItemGroupBox);
|
|
||||||
with ValueNoteBook do begin
|
|
||||||
if PageCount>0 then
|
|
||||||
Pages[0]:=lisCodeToolsDefsValueAsText
|
|
||||||
else
|
|
||||||
Pages.Add(lisCodeToolsDefsValueAsText);
|
|
||||||
Pages.Add(lisCodeToolsDefsValueAsFilePaths);
|
|
||||||
OnPageChanged:=@ValueNoteBookPageChanged;
|
|
||||||
OnResize:=@ValueNoteBookResize;
|
|
||||||
end;
|
|
||||||
|
|
||||||
CreateControl(ValueAsTextSynEdit,TSynEdit,'ValueAsTextSynEdit',
|
|
||||||
ValueNoteBook.Page[0]);
|
|
||||||
ValueAsTextSynEdit.Options:=[eoBracketHighlight, eoHideRightMargin,
|
|
||||||
eoDragDropEditing, eoHalfPageScroll, eoScrollByOneLess, eoScrollPastEol,
|
|
||||||
eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces];
|
|
||||||
ValueAsTextSynEdit.Gutter.Visible:=false;
|
|
||||||
ValueAsTextSynEdit.Scrollbars:=ssBoth;
|
|
||||||
ValueAsTextSynEdit.Align:=alClient;
|
|
||||||
|
|
||||||
CreateControl(ValueAsFilePathsSynEdit,TSynEdit,'ValueAsFilePathsSynEdit',
|
ValueNotebook.Page[0].Caption := lisCodeToolsDefsValueAsText;
|
||||||
ValueNoteBook.Page[1]);
|
ValueNotebook.Page[1].Caption := lisCodeToolsDefsValueAsFilePaths;
|
||||||
ValueAsFilePathsSynEdit.Options:=ValueAsTextSynEdit.Options;
|
|
||||||
ValueAsFilePathsSynEdit.Gutter.Visible:=false;
|
|
||||||
ValueAsFilePathsSynEdit.Scrollbars:=ssBoth;
|
|
||||||
ValueAsFilePathsSynEdit.Align:=alLeft;
|
|
||||||
|
|
||||||
CreateControl(MoveFilePathUpBitBtn,TBitBtn,'MoveFilePathUpBitBtn',
|
|
||||||
ValueNoteBook.Page[1]);
|
|
||||||
MoveFilePathUpBitBtn.Caption:=dlgUpWord;
|
MoveFilePathUpBitBtn.Caption:=dlgUpWord;
|
||||||
MoveFilePathUpBitBtn.OnClick:=@MoveFilePathUpBitBtnClick;
|
|
||||||
|
|
||||||
CreateControl(MoveFilePathDownBitBtn,TBitBtn,'MoveFilePathDownBitBtn',
|
|
||||||
ValueNoteBook.Page[1]);
|
|
||||||
MoveFilePathDownBitBtn.Caption:=dlgDownWord;
|
MoveFilePathDownBitBtn.Caption:=dlgDownWord;
|
||||||
MoveFilePathDownBitBtn.OnClick:=@MoveFilePathDownBitBtnClick;
|
|
||||||
|
|
||||||
CreateControl(DeleteFilePathBitBtn,TBitBtn,'DeleteFilePathBitBtn',
|
|
||||||
ValueNoteBook.Page[1]);
|
|
||||||
DeleteFilePathBitBtn.Caption:=dlgEdDelete;
|
DeleteFilePathBitBtn.Caption:=dlgEdDelete;
|
||||||
DeleteFilePathBitBtn.OnClick:=@DeleteFilePathBitBtnClick;
|
|
||||||
|
|
||||||
CreateControl(InsertFilePathBitBtn,TBitBtn,'InsertFilePathBitBtn',
|
|
||||||
ValueNoteBook.Page[1]);
|
|
||||||
InsertFilePathBitBtn.Caption:=srVK_INSERT;
|
InsertFilePathBitBtn.Caption:=srVK_INSERT;
|
||||||
InsertFilePathBitBtn.OnClick:=@InsertFilePathBitBtnClick;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TCodeToolsDefinesEditor.CreateSeperator : TMenuItem;
|
function TCodeToolsDefinesEditor.CreateSeperator : TMenuItem;
|
||||||
@ -1987,20 +1520,15 @@ end;
|
|||||||
constructor TCodeToolsDefinesEditor.Create(TheOwner: TComponent);
|
constructor TCodeToolsDefinesEditor.Create(TheOwner: TComponent);
|
||||||
begin
|
begin
|
||||||
inherited Create(TheOwner);
|
inherited Create(TheOwner);
|
||||||
Position:=poScreenCenter;
|
|
||||||
IDEDialogLayoutList.ApplyLayout(Self,500,460);
|
IDEDialogLayoutList.ApplyLayout(Self,500,460);
|
||||||
|
|
||||||
if LazarusResources.Find(ClassName)=nil then begin
|
|
||||||
Caption:=lisCodeToolsDefsCodeToolsDefinesEditor;
|
Caption:=lisCodeToolsDefsCodeToolsDefinesEditor;
|
||||||
OnResize:=@FormResize;
|
|
||||||
OnKeyDown:=@CodeToolsDefinesEditorKeyDown;
|
CreateComponents;
|
||||||
|
|
||||||
CreateComponents;
|
|
||||||
end;
|
|
||||||
FDefineTree:=TDefineTree.Create;
|
FDefineTree:=TDefineTree.Create;
|
||||||
FormResize(Self);
|
|
||||||
KeyPreview:=true;
|
|
||||||
OnKeyUp:=@CodeToolsDefinesEditorKeyUp;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
destructor TCodeToolsDefinesEditor.Destroy;
|
destructor TCodeToolsDefinesEditor.Destroy;
|
||||||
@ -2009,11 +1537,8 @@ begin
|
|||||||
inherited Destroy;
|
inherited Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
//==============================================================================
|
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
{$I codetoolsdefines.lrs}
|
{$I codetoolsdefines.lrs}
|
||||||
|
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user