www.pudn.com > TMS.Component.Pack.v5.0.rar > AdvHTMLDE.pas, change:2009-01-24,size:15425b

{**************************************************************************} 
{ HTML design time property editor interface                               } 
{ for Delphi & C++Builder                                                  } 
{ version 1.2                                                              } 
{                                                                          } 
{ written by TMS Software                                                  } 
{            copyright © 2000 - 2004                                       } 
{            Email : info@tmssoftware.com                                  } 
{            Web : http://www.tmssoftware.com                              } 
{                                                                          } 
{ The source code is given as is. The author is not responsible            } 
{ for any possible damage done due to the use of this code.                } 
{ The component can be freely used in any application. The complete        } 
{ source code remains property of the author and may not be distributed,   } 
{ published, given or sold in any form as such. No parts of the source     } 
{ code can be included in any other component or application without       } 
{ written authorization of the author.                                     } 
{**************************************************************************} 
 
unit AdvHTMLDE; 
 
interface 
{$I TMSDEFS.INC} 
uses 
  AdvHTMLProp,Classes,Forms,Dialogs,Controls,Windows,TypInfo,Graphics,Sysutils, 
  PictureContainer, 
{$IFNDEF TMSPERSONAL} 
  DB, 
{$ENDIF} 
{$IFDEF DELPHI6_LVL} 
  {$IFNDEF TMSDOTNET} 
  DesignIntf, DesignEditors 
  {$ENDIF} 
  {$IFDEF TMSDOTNET} 
  Borland.Vcl.Design.DesignIntf, Borland.Vcl.Design.DesignEditors 
  {$ENDIF} 
 
{$ELSE} 
  DsgnIntf 
{$ENDIF} 
  ; 
 
type 
  THTMLDefaultEditor = class(TDefaultEditor) 
  protected 
  {$IFNDEF DELPHI6_LVL} 
    procedure EditProperty(PropertyEditor: TPropertyEditor; 
                           var Continue, FreeEditor: Boolean); override; 
  {$ELSE} 
    procedure EditProperty(const Prop:IProperty; var Continue:Boolean); override; 
  {$ENDIF} 
  public 
    function GetVerb(index:integer):string; override; 
    function GetVerbCount:integer; override; 
    procedure ExecuteVerb(Index:integer); override; 
  end; 
 
  THTMLTextProperty = class(TClassProperty) 
  public 
    function GetAttributes: TPropertyAttributes; override; 
    procedure Edit; override; 
    procedure SetValue(const Value: String); override; 
    function GetValue: String; override; 
  end; 
 
  THTMLStringProperty = class(TClassProperty) 
  public 
    function GetAttributes: TPropertyAttributes; override; 
    procedure Edit; override; 
    procedure SetValue(const Value: String); override; 
    function GetValue: String; override; 
  end; 
 
 
implementation 
 
function THTMLTextProperty.GetAttributes: TPropertyAttributes; 
begin 
 Result:=[paDialog]; 
end; 
 
procedure THTMLTextProperty.Edit; 
var 
  HTMLEditor: TAdvHTMLEditor; 
  PropInfo: PPropInfo; 
{$IFNDEF TMSPERSONAL} 
  FDataSource:TDataSource; 
{$ENDIF}   
 
begin 
  HTMLEditor := TAdvHTMLEditor.Create(Application); 
  try 
  {$IFNDEF TMSDOTNET} 
  HTMLEditor.Memo1.Lines.Assign(TStrings(GetOrdValue)); 
  HTMLEditor.HTMLStaticText1.HTMLText.Assign(TStrings(GetOrdValue)); 
  {$ENDIF} 
  {$IFDEF TMSDOTNET} 
  HTMLEditor.Memo1.Lines.Assign(TStrings(GetObjValue)); 
  HTMLEditor.HTMLStaticText1.HTMLText.Assign(TStrings(GetObjValue)); 
  {$ENDIF} 
 
  {try to inherit the default font} 
  PropInfo:= typInfo.GetPropInfo(GetComponent(0).ClassInfo,'Font'); 
  if (PropInfo<>nil) then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.Font.Assign(TFont(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.Font.Assign(TFont(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
  PropInfo:= typInfo.GetPropInfo(GetComponent(0).ClassInfo,'Images'); 
  if (PropInfo<>nil) then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.Images:=(TImageList(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.Images:=(TImageList(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
  PropInfo:= typInfo.GetPropInfo(GetComponent(0).ClassInfo,'URLColor'); 
  if (PropInfo<>nil) then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.URLColor:=(TColor(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.URLColor:=(TColor(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
  PropInfo:= typInfo.GetPropInfo(GetComponent(0).ClassInfo,'HoverColor'); 
  if (PropInfo<>nil) then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.HoverColor:=(TColor(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.HoverColor:=(TColor(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
  PropInfo:= typInfo.GetPropInfo(GetComponent(0).ClassInfo,'HoverFontColor'); 
  if (PropInfo<>nil) then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.HoverFontColor:=(TColor(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.HoverFontColor:=(TColor(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
  PropInfo := typInfo.GetPropInfo(GetComponent(0).ClassInfo,'Hover'); 
  if (PropInfo<>nil) then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.Hover:=(Boolean(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.Hover:=(Boolean(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
  PropInfo := typInfo.GetPropInfo(GetComponent(0).ClassInfo,'AnchorHint'); 
  if (PropInfo<>nil) then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.AnchorHint := (Boolean(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.AnchorHint := (Boolean(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
  PropInfo := typInfo.GetPropInfo(GetComponent(0).ClassInfo,'ShadowColor'); 
  if (PropInfo<>nil) then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.ShadowColor := (TColor(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.ShadowColor := (TColor(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
  PropInfo := typInfo.GetPropInfo(GetComponent(0).ClassInfo,'ShadowOffset'); 
  if (PropInfo<>nil) then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.ShadowOffset := (integer(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.ShadowOffset := (integer(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
  PropInfo := typInfo.GetPropInfo(GetComponent(0).ClassInfo,'PictureContainer'); 
  if PropInfo <> nil then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.PictureContainer := (TPictureContainer(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.PictureContainer := (TPictureContainer(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
 
{$IFNDEF TMSPERSONAL} 
  PropInfo:= typInfo.GetPropInfo(GetComponent(0).ClassInfo,'Datasource'); 
  if (PropInfo<>nil) then 
    begin 
     HTMLEditor.DBfields.Visible := True; 
     {$IFNDEF TMSDOTNET} 
     FDataSource := TDataSource(GetOrdProp(GetComponent(0),PropInfo)); 
     {$ENDIF} 
     {$IFDEF TMSDOTNET} 
     FDataSource := TDataSource(GetObjectProp(GetComponent(0),PropInfo)); 
     {$ENDIF} 
 
     if Assigned(FDataSource) then 
      begin 
        if Assigned(FDataSource.dataset) then fDataSource.DataSet.GetFieldNames(HTMLEditor.FieldNames); 
      end; 
    end; 
{$ENDIF} 
 
  if HTMLEditor.Showmodal = mrOK then 
    {$IFNDEF TMSDOTNET} 
    SetOrdValue(longint(HTMLEditor.Memo1.Lines)); 
    {$ENDIF} 
    {$IFDEF TMSDOTNET} 
    SetObjValue(HTMLEditor.Memo1.Lines); 
    {$ENDIF} 
  finally 
    HTMLEditor.Free; 
  end; 
end; 
 
procedure THTMLTextProperty.SetValue(const Value: String); 
begin 
end; 
 
function THTMLTextProperty.GetValue: String; 
begin 
  Result := '(HTMLText)'; 
end; 
 
 
function THTMLStringProperty.GetAttributes: TPropertyAttributes; 
begin 
  Result := [paDialog]; 
end; 
 
procedure THTMLStringProperty.Edit; 
var 
  HTMLEditor: TAdvHTMLEditor; 
  PropInfo: PPropInfo; 
{$IFNDEF TMSPERSONAL} 
  FDataSource: TDataSource; 
{$ENDIF}   
  S: string; 
  i: Integer; 
 
begin 
  HTMLEditor := TAdvHTMLEditor.Create(Application); 
  try 
   HTMLEditor.Memo1.Lines.Clear; 
   HTMLEditor.Memo1.Lines.Add(String(GetStrValue)); 
   HTMLEditor.HTMLStaticText1.HTMLText.Text := GetStrValue; 
 
  {try to inherit the default font} 
   PropInfo := typInfo.GetPropInfo(GetComponent(0).ClassInfo,'Font'); 
  if (PropInfo<>nil) then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.Font.Assign(TFont(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.Font.Assign(TFont(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
 
  PropInfo := typInfo.GetPropInfo(GetComponent(0).ClassInfo,'Images'); 
  if (PropInfo<>nil) then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.Images:=(TImageList(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.Images:=(TImageList(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
  PropInfo := typInfo.GetPropInfo(GetComponent(0).ClassInfo,'URLColor'); 
  if (PropInfo<>nil) then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.URLColor:=(TColor(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.URLColor:=(TColor(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
  PropInfo := typInfo.GetPropInfo(GetComponent(0).ClassInfo,'HoverColor'); 
  if (PropInfo<>nil) then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.HoverColor:=(TColor(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.HoverColor:=(TColor(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
  PropInfo := typInfo.GetPropInfo(GetComponent(0).ClassInfo,'HoverFontColor'); 
  if (PropInfo<>nil) then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.HoverFontColor:=(TColor(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.HoverFontColor:=(TColor(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
  PropInfo := typInfo.GetPropInfo(GetComponent(0).ClassInfo,'Hover'); 
  if (PropInfo<>nil) then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.Hover:=(boolean(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.Hover:=(boolean(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
  PropInfo := typInfo.GetPropInfo(GetComponent(0).ClassInfo,'AnchorHint'); 
  if (PropInfo<>nil) then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.AnchorHint:=(boolean(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.AnchorHint:=(boolean(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
  PropInfo := typInfo.GetPropInfo(GetComponent(0).ClassInfo,'ShadowColor'); 
  if (PropInfo<>nil) then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.ShadowColor:=(TColor(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.ShadowColor:=(TColor(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
  PropInfo := typInfo.GetPropInfo(GetComponent(0).ClassInfo,'ShadowOffset'); 
  if (PropInfo<>nil) then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.ShadowOffset:=(integer(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.ShadowOffset:=(integer(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
  PropInfo := typInfo.GetPropInfo(GetComponent(0).ClassInfo,'PictureContainer'); 
  if PropInfo <> nil then 
   {$IFNDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.PictureContainer := (TPictureContainer(GetOrdProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
   {$IFDEF TMSDOTNET} 
   HTMLEditor.HTMLStaticText1.PictureContainer := (TPictureContainer(GetObjectProp(GetComponent(0),PropInfo))); 
   {$ENDIF} 
 
{$IFNDEF TMSPERSONAL} 
  PropInfo := typInfo.GetPropInfo(GetComponent(0).ClassInfo,'Datasource'); 
  if (PropInfo<>nil) then 
    begin 
     HTMLEditor.DBfields.Visible:=true; 
     {$IFNDEF TMSDOTNET} 
     FDataSource := TDataSource(GetOrdProp(GetComponent(0),PropInfo)); 
     {$ENDIF} 
     {$IFDEF TMSDOTNET} 
     FDataSource := TDataSource(GetObjectProp(GetComponent(0),PropInfo)); 
     {$ENDIF} 
     if Assigned(FDataSource) then 
      begin 
        if assigned(fDataSource.dataset) then fDataSource.DataSet.GetFieldNames(HTMLEditor.FieldNames); 
      end; 
    end; 
{$ENDIF} 
 
  if HTMLEditor.Showmodal = mrOK then 
  begin 
    s := ''; 
    for i := 1 to HTMLEditor.Memo1.Lines.Count do 
      s := s + HTMLEditor.Memo1.Lines[i-1]; 
 
    SetStrValue(s); 
  end; 
 
  finally 
    HTMLEditor.Free; 
  end; 
end; 
 
procedure THTMLStringProperty.SetValue(const Value: String); 
begin 
end; 
 
function THTMLStringProperty.GetValue: String; 
begin 
  Result := '(HTMLString)'; 
end; 
 
{ THTMLDefaultEditor } 
{$IFDEF DELPHI6_LVL} 
procedure THTMLDefaultEditor.EditProperty(const Prop:IProperty; var Continue:Boolean); 
{$ELSE} 
procedure THTMLDefaultEditor.EditProperty(PropertyEditor: TPropertyEditor; 
  var Continue, FreeEditor: Boolean); 
{$ENDIF} 
var 
 PropName: string; 
begin 
{$IFDEF DELPHI6_LVL} 
 PropName := Prop.GetName; 
{$ELSE} 
 PropName := PropertyEditor.GetName; 
{$ENDIF} 
 if (CompareText(PropName, 'HTMLTEXT') = 0) then 
   begin 
{$IFDEF DELPHI6_LVL} 
    Prop.Edit; 
{$ELSE} 
    PropertyEditor.Edit; 
{$ENDIF} 
    Continue := False; 
   end; 
end; 
 
 
 
procedure THTMLDefaultEditor.ExecuteVerb(Index: integer); 
var 
 compiler:string; 
begin 
 case Index of 
 0: Edit; 
 1: begin 
   {$IFDEF VER90} 
   compiler := 'Delphi 2'; 
   {$ENDIF} 
   {$IFDEF VER93} 
   compiler := 'C++Builder 1'; 
   {$ENDIF} 
   {$IFDEF VER100} 
   compiler := 'Delphi 3'; 
   {$ENDIF} 
   {$IFDEF VER110} 
   compiler := 'C++Builder 3'; 
   {$ENDIF} 
   {$IFDEF VER120} 
   compiler := 'Delphi 4'; 
   {$ENDIF} 
   {$IFDEF VER125} 
   compiler := 'C++Builder 4'; 
   {$ENDIF} 
   {$IFDEF VER130} 
   {$IFDEF BCB} 
   compiler := 'C++Builder 5'; 
   {$ELSE} 
   compiler := 'Delphi 5'; 
   {$ENDIF} 
   {$ENDIF} 
   {$IFDEF VER140} 
   {$IFDEF BCB} 
   compiler := 'C++Builder 6'; 
   {$ELSE} 
   compiler := 'Delphi 6'; 
   {$ENDIF} 
   {$ENDIF} 
 
   {$IFDEF VER150} 
   compiler := 'Delphi 7'; 
   {$ENDIF} 
   {$IFDEF VER150} 
   compiler:='Delphi 8'; 
   {$ENDIF} 
 
   messagedlg(component.className+' for '+compiler+#13#10#13#10'© 1999-2004 by TMS software'#13#10'http://www.tmssoftware.com', 
              mtinformation,[mbok],0); 
   end; 
 end; 
end; 
 
 
 
function THTMLDefaultEditor.GetVerb(index: integer): string; 
begin 
  Result := ''; 
  case index of 
  0:Result := 'HTML Editor'; 
  1:Result := 'About'; 
  end; 
end; 
 
function THTMLDefaultEditor.GetVerbCount: integer; 
begin 
  Result := 2; 
end; 
 
end.