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

Packager: formatting

Browse Source 
git-svn-id: trunk@38990 -
This commit is contained in:
juha 2012-10-08 00:12:29 +00:00
parent 07e313123f
commit a637ee7996
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/lresources.pp
View File

@ -1226,8 +1226,7 @@ begin
InitByteToStr;
Indent:='';
s:=Indent+'LazarusResources.Add('''+ResourceName+''','''+ResourceType+''',['
+LineEnd;
s:=Indent+'LazarusResources.Add('''+ResourceName+''','''+ResourceType+''',['+LineEnd;
WriteString(s);
Indent:=' '+Indent;
WriteString(Indent);

5
packager/addtopackagedlg.pas
View File

@ -1339,9 +1339,8 @@ begin
ComponentIconSpeedButton.Glyph.Assign(Image.Picture.Graphic);
ShortFilename:=AFilename;
LazPackage.ShortenFilename(ShortFilename,true);
ComponentIconSpeedButton.Hint:=
ShortFilename+' ('+IntToStr(ComponentIconSpeedButton.Glyph.Width)
+'x'+IntToStr(ComponentIconSpeedButton.Glyph.Height)+')';
with ComponentIconSpeedButton do
Hint:=Format('%s (%dx%d)', [ShortFilename, Glyph.Width, Glyph.Height]);
FComponentIconFilename:=AFilename;
finally
Image.Free;