diff --git a/.gitattributes b/.gitattributes index e728f23fcd..5a6943f50e 100644 --- a/.gitattributes +++ b/.gitattributes @@ -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 diff --git a/components/turbopower_ipro/iphtml.pas b/components/turbopower_ipro/iphtml.pas index c0ff1857ac..3e2469d8f0 100644 --- a/components/turbopower_ipro/iphtml.pas +++ b/components/turbopower_ipro/iphtml.pas @@ -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; diff --git a/components/turbopower_ipro/languages/iphtmlpv.de.po b/components/turbopower_ipro/languages/iphtmlpv.de.po new file mode 100644 index 0000000000..715f97417e --- /dev/null +++ b/components/turbopower_ipro/languages/iphtmlpv.de.po @@ -0,0 +1,53 @@ +msgid "" +msgstr "" +"PO-Revision-Date: 2016-03-26 14:31+0100\n" +"Last-Translator: Giuliano Colla \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:"