Delphi-Quellcode:
procedure TWebbrowserKeeperF.WebBrowserSet3DBorderStyle(bValue: Boolean);
var
StrBorderStyle: AnsiString;
tmpElement,
tmpDocument,
Element,
Document : OleVariant;
begin
if Assigned(WB) then begin
try
try
Document := WB.OleObject.Document;
if Assigned(TVarData(Document).VPointer) then begin // (varType(Document) = varDispatch) and not VarIsEmpty(Document) and not VarIsNull(Document) then begin
Element := Document.Body;
if Assigned(TVarData(Element).VPointer) then // and (varType(Element) = varDispatch) and not VarIsEmpty(Element) and not VarIsNull(Element)
begin
case bValue of
False: StrBorderStyle := 'none';
True: StrBorderStyle := '';
end;
Element.Style.BorderStyle := StrBorderStyle;
Element.Style.overflowX := 'auto'; // horizontale Scrollbar nur bei Bedarf einblenden
Element.Style.overflowY := 'auto'; // vertikale Scrollbar nur bei Bedarf einblenden
end; // (mögliche Werte:
end; // 'visible' Default. No scroll bar. Display is clipped to visible area.
except // 'scroll' Scroll bar always visible - whether required or not.
end; // 'hidden' No scroll bar. Content outside of visible area is hidden.
finally // 'auto' Content is clipped and scroll bar is displayed if required.)
Element := tmpElement;
Document := tmpDocument;
end;
end;
end;
Wenn ich diesen Code einfüge kommen folgende Fehler.
Delphi-Quellcode:
[Fehler] Unit1.pas(48): '
;' erwartet, aber '
.' gefunden
[Fehler] Unit1.pas(56): Undefinierter Bezeichner: '
WB'
[Fehler] Unit1.pas(59):
Operator oder Semikolon fehlt
[Fehler] Unit1.pas(59): Anweisung erforderlich, aber Ausdruck vom Typ '
OleVariant' gefunden
[Fehler] Unit1.pas(64): Undefinierter Bezeichner: '
bValue'
[Fataler Fehler] Project1.dpr(5): Verwendete
Unit '
Unit1.pas' kann nicht compiliert werden