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

IDE: fixed 'Jump History' dialog caption

Browse Source 
git-svn-id: trunk@24677 -
This commit is contained in:
maxim 2010-04-17 16:53:19 +00:00
parent 0c694a019d
commit db7ff50653
3 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/jumphistoryview.lfm
View File

@ -3,22 +3,22 @@ object JumpHistoryViewWin: TJumpHistoryViewWin
Height = 426
Top = 228
Width = 400
ActiveControl = listHistory
Caption = 'JumpHistoryViewWin'
ClientHeight = 426
ClientWidth = 400
OnCreate = FormCreate
OnDestroy = FormDestroy
ShowHint = True
LCLVersion = '0.9.25'
LCLVersion = '0.9.29'
object listHistory: TListBox
Left = 0
Height = 426
Top = 0
Width = 400
Align = alClient
ClickOnSelChange = False
ItemHeight = 0
OnClick = listHistoryClick
OnDblClick = listHistoryDblClick
TabOrder = 0
TopIndex = -1
end
end

9
ide/jumphistoryview.pas
View File

@ -37,7 +37,6 @@ type
TJumpHistoryViewWin = class(TForm)
listHistory : TListBox;
procedure FormCreate(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure listHistoryClick(Sender : TObject);
procedure listHistoryDblClick(Sender : TObject);
procedure OnIdle(Sender : TObject; var Done: Boolean);
@ -75,7 +74,7 @@ procedure TJumpHistoryViewWin.FormCreate(Sender : TObject);
var
ALayout: TIDEWindowLayout;
begin
Caption := lisMenuViewJumpHistory;
Caption := lisJHJumpHistory;
Name := NonModalIDEWindowNames[nmiwJumpHistory];
ALayout:=EnvironmentOptions.IDEWindowLayoutList.
ItemByEnum(nmiwJumpHistory);
@ -86,12 +85,6 @@ begin
InitDisplay;
end;
procedure TJumpHistoryViewWin.FormDestroy(Sender : TObject);
begin
end;
procedure TJumpHistoryViewWin.listHistoryClick(Sender : TObject);
begin
if EnvironmentOptions.MsgViewDblClickJumps then exit;

5
ide/lazarusidestrconsts.pas
View File

@ -252,7 +252,7 @@ resourcestring
lisMenuJumpBack = 'Jump back';
lisMenuJumpForward = 'Jump forward';
lisMenuAddJumpPointToHistory = 'Add jump point to history';
lisMenuViewJumpHistory = 'Jump-History ...';
lisMenuViewJumpHistory = 'Jump History ...';
lisMenuFindBlockOtherEndOfCodeBlock = 'Find other end of code block';
lisMenuFindCodeBlockStart = 'Find code block start';
lisMenuFindDeclarationAtCursor = 'Find Declaration at cursor';
@ -4675,6 +4675,9 @@ resourcestring
lisSelectTheActiveBuildMode = 'Select the active build mode';
lisSearchUnit = 'Search unit';
//Jump History dialog
lisJHJumpHistory = 'Jump History';
implementation
end.