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

IPro: use IDEIntf resource strings for design-time package

Browse Source 
git-svn-id: trunk@63351 -
This commit is contained in:
maxim 2020-06-12 22:28:03 +00:00
parent 104465304f
commit 42b490a925
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/turbopower_ipro/design/ipidehtmlcontrol.pas
View File

@ -17,7 +17,7 @@ interface
uses
Classes, SysUtils, LCLProc, Forms, Graphics, Controls, Dialogs, ExtCtrls, Menus,
IpMsg, Ipfilebroker, IpHtml, IDEHelpIntf, LazHelpIntf, LazIDEIntf;
IpMsg, Ipfilebroker, IpHtml, IDEHelpIntf, LazHelpIntf, LazIDEIntf, ObjInspStrConsts;
type
TLazIPHtmlControl = class;
@ -86,10 +86,6 @@ procedure Register;
implementation
resourcestring
ipdCopy = '&Copy';
ipdSelectAll = 'Select &all';
procedure Register;
begin
CreateIDEHTMLControl:=@IPCreateLazIDEHTMLControl;
@ -142,13 +138,13 @@ begin
AutoPopup := True;
FCopy := TMenuItem.Create(Owner);
FCopy.Caption := ipdCopy;
FCopy.Caption := oiStdActEditCopyHeadLine;
FCopy.ShortCut := ShortCut(ord('C'), [ssCtrl]);
FCopy.OnClick := @DoCopy;
Items.Add(FCopy);
FSelectAll := TMenuItem.Create(Owner);
FSelectAll.Caption := ipdSelectAll;
FSelectAll.Caption := oiStdActEditSelectAllHeadLine;
FSelectAll.ShortCut := ShortCut(ord('A'), [ssCtrl]);
FSelectAll.OnClick := @DoSelectAll;
Items.Add(FSelectAll);