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

tvplanit: Activate the Lazarus translation system using po files. Translations are welcome! Some translation-related improvements in form layout.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4707 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-10 14:45:43 +00:00
parent 1a3ee925e3
commit d5bbf9165c
10 changed files with 2805 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/tvplanit/source/vpabout.pas
View File

@@ -106,10 +106,7 @@ uses
{$IFNDEF LCL}
ShellAPI,
{$ENDIF}
VpConst;
resourcestring
cBrowserError = 'Unable to start web browser. Make sure you have it properly setup on your system.';
VpConst, VpSR;
const
TURBO_LINK_URL = 'http://sourceforge.net/projects/tpvplanit/';
@@ -174,7 +171,7 @@ begin
if ShellExecute(0, 'open', TURBO_LINK_URL, '', '', SW_SHOWNORMAL) <= 32
{$ENDIF}
then
ShowMessage(cBrowserError);
ShowMessage(RSBrowserError);
end;
{=====}
@@ -204,7 +201,7 @@ begin
if ShellExecute(0, 'open', HELP_URL, '', '', SW_SHOWNORMAL) <= 32
{$ENDIF}
then
ShowMessage(cBrowserError);
ShowMessage(RSBrowserError);
end;
{=====}
@@ -216,7 +213,7 @@ begin
if ShellExecute(0, 'open', NEWS_SPECIFIC_URL, '', '', SW_SHOWNORMAL) <= 32
{$ENDIF}
then
ShowMessage(cBrowserError);
ShowMessage(RSBrowserError);
end;
{=====}
@@ -228,7 +225,7 @@ begin
if ShellExecute(0, 'open', GENERAL_DISCUSSION_URL, '', '', SW_SHOWNORMAL) <= 32
{$ENDIF}
then
ShowMessage(cBrowserError);
ShowMessage(RSBrowserError);
end;
end.