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

IDE: added resourcestring

Browse Source 
git-svn-id: trunk@23186 -
This commit is contained in:
mattias 2009-12-18 15:02:02 +00:00
parent 5b7d36de82
commit 2445aea5ec
2 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/customformeditor.pp
View File

@ -254,7 +254,7 @@ each control that's dropped onto the form
function CreateComponent(ParentCI: TIComponentInterface;
TypeClass: TComponentClass;
const AUnitName: shortstring;
X,Y,W,H: Integer): TIComponentInterface; override;
NewLeft,NewTop,NewWidth,NewHeight: Integer): TIComponentInterface; override;
function CreateComponentFromStream(BinStream: TStream;
AncestorType: TComponentClass;
const NewUnitName: ShortString;
@ -1578,7 +1578,7 @@ begin
end;
function TCustomFormEditor.CreateComponent(ParentCI: TIComponentInterface;
TypeClass: TComponentClass; const AUnitName: shortstring; X, Y, W, H: Integer
TypeClass: TComponentClass; const AUnitName: shortstring; NewLeft, NewTop, NewWidth, NewHeight: Integer
): TIComponentInterface;
const
PreferredDistanceMin = 30;
@ -1622,7 +1622,7 @@ begin
Mediator:=nil;
FreeMediator:=false;
try
//DebugLn(['[TCustomFormEditor.CreateComponent] Class="'+TypeClass.ClassName+'" ',X,',',Y,',',W,'x',H]);
//DebugLn(['[TCustomFormEditor.CreateComponent] Class="'+TypeClass.ClassName+'" ',NewLeft,',',NewTop,',',NewWidth,'x',NewHeight]);
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TCustomFormEditor.CreateComponent A');{$ENDIF}
OwnerComponent:=nil;
@ -1712,9 +1712,9 @@ begin
NewComponent.Name := NewComponentName;
except
on e: Exception do begin
MessageDlg('Error naming component',
'Error setting the name of a component '
+dbgsName(NewComponent)+' to '+NewComponentName,
MessageDlg(lisErrorNamingComponent,
Format(lisErrorSettingTheNameOfAComponentTo, [dbgsName(NewComponent),
NewComponentName]),
mtError,[mbCancel],0);
exit;
end;
@ -1722,10 +1722,10 @@ begin
try
// set bounds
CompLeft:=X;
CompTop:=Y;
CompWidth:=W;
CompHeight:=H;
CompLeft:=NewLeft;
CompTop:=NewTop;
CompWidth:=NewWidth;
CompHeight:=NewHeight;
if NewComponent is TControl then
begin
AControl := TControl(NewComponent);

3
ide/lazarusidestrconsts.pas
View File

@ -3907,6 +3907,9 @@ resourcestring
lisHelpSelectorDialog = 'Help selector';
lisSelectAHelpItem = 'Select a help item:';
lisErrorMovingComponent = 'Error moving component';
lisErrorNamingComponent = 'Error naming component';
lisErrorSettingTheNameOfAComponentTo = 'Error setting the name of a '
+'component %s to %s';
lisErrorMovingComponent2 = 'Error moving component %s:%s';
lisInstalledPackages = 'Installed Packages';
lisAvailablePackages = 'Available packages';