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

TurboPower_iPro: Property ScrollDist is back(for controlling built-in scrolling). Add German translation file of iphtmppv.

Browse Source 
git-svn-id: trunk@52062 -
This commit is contained in:
wp 2016-03-26 13:42:08 +00:00
parent 380411835c
commit ef066ef583
3 changed files with 62 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -4328,6 +4328,7 @@ components/turbopower_ipro/languages/ipconst.pt_BR.po svneol=native#text/plain
components/turbopower_ipro/languages/ipconst.ru.po svneol=native#text/plain
components/turbopower_ipro/languages/ipconst.uk.po svneol=native#text/plain
components/turbopower_ipro/languages/ipconst.zh_CN.po svneol=native#text/plain
components/turbopower_ipro/languages/iphtmlpv.de.po svneol=native#text/plain
components/turbopower_ipro/languages/iphtmlpv.fr.po svneol=native#text/plain
components/turbopower_ipro/languages/iphtmlpv.hu.po svneol=native#text/plain
components/turbopower_ipro/languages/iphtmlpv.it.po svneol=native#text/plain

12
components/turbopower_ipro/iphtml.pas
View File

@ -2471,6 +2471,7 @@ type
FPrintSettings: TIpHtmlPrintSettings;
FFactBAParag: Real;
FWantTabs: Boolean;
FScrollDist: Integer;
procedure SetDataProvider(const AValue: TIpAbstractHtmlDataProvider);
procedure SetFactBAParag(const Value: Real);
function FactBAParagNotIs1: Boolean;
@ -2586,6 +2587,7 @@ type
property MarginHeight: Integer read FMarginHeight write FMarginHeight default 10;
property MarginWidth: Integer read FMarginWidth write FMarginWidth default 10;
property PrintSettings: TIpHtmlPrintSettings read FPrintSettings write FPrintSettings;
property ScrollDist: Integer read FScrollDist write FScrollDist default 100;
property ShowHints: Boolean read FShowHints write FShowHints default True;
property TextColor: TColor read FTextColor write FTextColor default clBlack;
property Title: string read GetTitle;
@ -2632,6 +2634,7 @@ type
property PrintSettings;
property MarginHeight;
property MarginWidth;
property ScrollDist;
property ShowHints;
property TabOrder;
property TabStop;
@ -13264,22 +13267,22 @@ begin
end
else if key = VK_UP then // up
begin
TIpHtmlCustomPanel(Owner).Scroll(hsaUp);
TIpHtmlCustomPanel(Owner).Scroll(hsaUp, TIpHtmlCustomPanel(Owner).ScrollDist);
Key := 0
end
else if key = VK_DOWN then // down
begin
TIpHtmlCustomPanel(Owner).Scroll(hsaDown);
TIpHtmlCustomPanel(Owner).Scroll(hsaDown, TIpHtmlCustomPanel(Owner).ScrollDist);
Key := 0
end
else if key = VK_LEFT then // left
begin
TIpHtmlCustomPanel(Owner).Scroll(hsaLeft);
TIpHtmlCustomPanel(Owner).Scroll(hsaLeft, TIpHtmlCustomPanel(Owner).ScrollDist);
Key := 0
end
else if key = VK_RIGHT then // right
begin
TIpHtmlCustomPanel(Owner).Scroll(hsaRight);
TIpHtmlCustomPanel(Owner).Scroll(hsaRight, TIpHtmlCustomPanel(Owner).ScrollDist);
Key := 0
end
else if key = VK_HOME then // home
@ -15017,6 +15020,7 @@ begin
FPrintSettings := TIpHtmlPrintSettings.Create;
FFactBAParag := 1;
FWantTabs := True;
FScrollDist := 100;
end;
destructor TIpHtmlCustomPanel.Destroy;

53
components/turbopower_ipro/languages/iphtmlpv.de.po Normal file
View File

@ -0,0 +1,53 @@
msgid ""
msgstr ""
"PO-Revision-Date: 2016-03-26 14:31+0100\n"
"Last-Translator: Giuliano Colla <giuliano.colla@fastwebnet.it>\n"
"Language-Team: \n"
"Language: de\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=2; plural=(n != 1);\n"
"X-Generator: Poedit 1.8.7\n"
"Project-Id-Version: \n"
"POT-Creation-Date: \n"
#: iphtmlpv.rsiphtmlpreviewclose
msgid "Close"
msgstr "Schließen"
#: iphtmlpv.rsiphtmlpreviewfitall
msgid "Fit all"
msgstr "Einpassen"
#: iphtmlpv.rsiphtmlpreviewfitheight
msgid "Height"
msgstr "Höhe"
#: iphtmlpv.rsiphtmlpreviewfitwidth
msgid "Width"
msgstr "Breite"
#: iphtmlpv.rsiphtmlpreviewof
msgid "of"
msgstr "von"
#: iphtmlpv.rsiphtmlpreviewpage
msgid "Page:"
msgstr "Seite:"
#: iphtmlpv.rsiphtmlpreviewprint
msgid "Print"
msgstr "Drucken"
#: iphtmlpv.rsiphtmlpreviewprintpreview
msgid "Print preview"
msgstr "Druckvorschau"
#: iphtmlpv.rsiphtmlpreviewselectprinter
msgid "Select printer ..."
msgstr "Drucker auswählen..."
#: iphtmlpv.rsiphtmlpreviewzoom
msgid "Zoom:"
msgstr "Zoom:"