paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 06:59:14 +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 Height = 426
Top = 228 Top = 228
Width = 400 Width = 400
ActiveControl = listHistory
Caption = 'JumpHistoryViewWin' Caption = 'JumpHistoryViewWin'
ClientHeight = 426 ClientHeight = 426
ClientWidth = 400 ClientWidth = 400
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy
ShowHint = True ShowHint = True
LCLVersion = '0.9.25' LCLVersion = '0.9.29'
object listHistory: TListBox object listHistory: TListBox
Left = 0
Height = 426 Height = 426
Top = 0
Width = 400 Width = 400
Align = alClient Align = alClient
ClickOnSelChange = False ClickOnSelChange = False
ItemHeight = 0
OnClick = listHistoryClick OnClick = listHistoryClick
OnDblClick = listHistoryDblClick OnDblClick = listHistoryDblClick
TabOrder = 0 TabOrder = 0
TopIndex = -1
end end
end end

9
ide/jumphistoryview.pas
View File

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

5
ide/lazarusidestrconsts.pas
View File

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