pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Various minor updates over the last few months that were never committed.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1338 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
macpgmr
2010-10-07 14:20:50 +00:00
parent e22a6b1b20
commit 2c2ae468d6
4 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/xdev_toolkit/HelpUtil.pas
View File

@@ -123,7 +123,9 @@ begin
Result := shrSuccess; Result := shrSuccess;
{$ELSE} {$ELSE}
{$IFDEF DARWIN} {$IFDEF DARWIN}
if Shell('Open -a "Help Viewer" "' + Application.HelpFile + '"') = 127 then if Shell('Open -a "HelpViewer" "' + Application.HelpFile + '"') = 127 then
// Note: Renamed from Help Viewer.app to HelpViewer.app with 10.5.
//
// Note: With OS X earlier than 10.4 (Tiger), if connected to network // Note: With OS X earlier than 10.4 (Tiger), if connected to network
// but not connected to Internet, takes Help Viewer 1-2 minutes to // but not connected to Internet, takes Help Viewer 1-2 minutes to
// recover and turn off rotating ball! Can comment out previous Shell // recover and turn off rotating ball! Can comment out previous Shell

4
components/xdev_toolkit/XDevStatus.html
View File

@@ -57,7 +57,7 @@ reports, suggestions and comments to:<P>
<I>Note:</I> You can also post to the Lazarus forum if you want your bug reports <I>Note:</I> You can also post to the Lazarus forum if you want your bug reports
and suggestions to be seen by the entire Lazarus community.<P> and suggestions to be seen by the entire Lazarus community.<P>
The XDev Toolkit source code is here: <A HREF="http://web.fastermac.net/~MacPgmr/XDev/downloads">http://web.fastermac.net/~MacPgmr/XDev/downloads</A><P> The XDev Toolkit source code is here: <A HREF="http://web.me.com/macpgmr/XDev">http://web.me.com/macpgmr/XDev</A><P>
You can also download the XDev Toolkit files via Subversion:<P> You can also download the XDev Toolkit files via Subversion:<P>
@@ -346,7 +346,7 @@ also be able to output version information to a Lazarus .lpi file.<P>
<A HREF="http://wiki.lazarus.freepascal.org/Deploying_Your_Application">http://wiki.lazarus.freepascal.org/Deploying_Your_Application</A><P> <A HREF="http://wiki.lazarus.freepascal.org/Deploying_Your_Application">http://wiki.lazarus.freepascal.org/Deploying_Your_Application</A><P>
<P> <P>
<HR> <HR>
Last updated: July 20, 2008 Last updated: Feb 2, 2010
<P> <P>
</BODY> </BODY>

2
components/xdev_toolkit/dfmtolfm.ini
View File

@@ -80,6 +80,8 @@ TLabeledEdit.Font.Name=
TLabeledEdit.Font.Style= TLabeledEdit.Font.Style=
TListBox.ScrollWidth= TListBox.ScrollWidth=
TDBImage.TabOrder= TDBImage.TabOrder=
TScrollBox.HorzScrollBar.Tracking=
TScrollBox.VertScrollBar.Tracking=
; When -p switch is used with DfmToLfm, don't try to add parent's font ; When -p switch is used with DfmToLfm, don't try to add parent's font

10
components/xdev_toolkit/dfmtolfm.pas
View File

@@ -224,7 +224,15 @@ begin
DeleteLine := True; DeleteLine := True;
end end
else {Other property} else if Copy(StripStr, Length(StripStr), 1) = '<' then {Skip to end>?}
begin
repeat
WriteLn(LfmFileVar, InStr);
ReadLn(DfmFileVar, InStr);
until Trim(InStr) = 'end>';
end
else if Pos('=', StripStr) > 0 then {Other property?}
begin {Check if property should be deleted from current object} begin {Check if property should be deleted from current object}
if CfgFileObj.ValueExists('DeleteProps', if CfgFileObj.ValueExists('DeleteProps',
Copy(StripStr, 1, Pos('=', StripStr)-1)) or Copy(StripStr, 1, Pos('=', StripStr)-1)) or