Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi TWebBrowser und align (https://www.delphipraxis.net/187320-twebbrowser-und-align.html)

Satyr 19. Nov 2015 13:09

TWebBrowser und align
 
Huhu,

ich bin dabei einen kleinen Texteditor zu schreiben und möchte dafür den praktische Design Modus des TWebBrowser verwenden. Bei den meisten Textformatierungen usw. klappt das. Nur mit links-/rechtsbündigkeit und zentrieren habe ich Probleme.

Hier mein Code für zentrieren:

Delphi-Quellcode:
procedure TForm1.sButton2Click(Sender: TObject);
var
   HTMLDocument2Ifc: IHTMLDocument2;
begin

 HTMLDocument2Ifc := WebBrowser1.Document as IHTMLDocument2;
 HTMLDocument2Ifc.execCommand('JUSTIFYCENTER', false, 0);

end;
Das wird auch ausgeführt, mehr oder weniger. Es wird dabei als HTML Code folgendes eingetragen:

Code:
<P style="TEXT-ALIGN: left" align=center>
Das dies nicht funktionieren kann ist klar. Ich weiß leider nicht wie ich das ändern kann. Weiß jemand was das soll?

Gruß,
Andreas

Gerd01 20. Nov 2015 07:04

AW: TWebBrowser und align
 
Was ist dir klar und was ist deine Frage?

nahpets 20. Nov 2015 13:19

AW: TWebBrowser und align
 
Klar dürfte dashier sein:
Code:
<P style="TEXT-ALIGN: left" align=center>
Wenn ich einerseits sage, dass der Stil des P-Tags linksbündiger Text sein soll, andererseits aber gleichzeitig sage, dass der Text zentriert werden soll, dann hat jeder Browser einen Konflikt aufzulösen, den er ohne Zusatzinformationen nicht auflösen kann.

Und die Ursache dieses Konfliktes dürfte irgendwo in den Tiefen von
Code:
HTMLDocument2Ifc.execCommand('JUSTIFYCENTER', false, 0);
liegen, wobei diese Ursache von Delphi aus nicht zu beheben sein dürfte.

Diehier http://www.dreamincode.net/forums/to...ditor-in-c%23/ machen das so:
Code:
HTMLEditor.document.ExecCommand("JustifyCenter", false, null);
Anstelle der 0 nehmen die null, dass könnte bei Delphi EmptyParam aus der Unit Variants entsprechen.
Käme mal auf einen Versuch an.

Satyr 20. Nov 2015 13:24

AW: TWebBrowser und align
 
Danke für die Antwort. Versucht habe ich schon "null" und "EmptyParam". Macht leider alles das selbe.

Wenn ich das mit Delphi nicht lösen kann, werde ich wohl die tags von Hand zusammenbauen müssen *sfz*.


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:12 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz