Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

end;

implementation

uses ComServ, AxCtrls, Unit2;

procedure TMyFontServer.Initialize;

begin

 inherited Initialize;

 FFont := TFont.Create;

end;

destructor TMyFontServer.Destroy;

begin

 FFont.Free;

 inherited Destroy;

end;

function TMyFontServer.Get_MyFont: IFontDisp;

begin

 FFont.Assign(Form2.Label1.Font);

 GetOleFont(FFont, Result);

end;

procedure TMyFontServer.Set_MyFont(const Value: IFontDisp);

begin

 SetOleFont(FFont, Value);

 Form2.Label1.Font.Assign(FFont);

end;

initialization

 TAutoObjectFactory.Create(ComServer, TMyFontServer, Class_MyFontServer, ciMultiInstance);

end.

{--------------------------------------------------------------------}

unit Unit2;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type TForm2 = class(TForm)

 Label1: TLabel;

end;

var Form2: TForm2;

implementation

{$R *.DFM}

end.

{--------------------------------------------------------------------}

unit FontCli1;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, StdVCL, Project1_TLB;

type TForm1 = class(TForm)

 Button1: TButton;

 Label1: TLabel;

 FontDialog1: TFontDialog;

 procedure Button1Click(Sender: TObject);

 procedure FormCreate(Sender: TObject);

public

 MyFontServer: IMyFontServer;

end;

var Form1: TForm1;

implementation

uses ActiveX, AxCtrls;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var Temp: IFontDisp;

begin

 if (FontDialog1.Execute) then begin

Label1.Font.Assign(FontDialog1.Font);

GetOleFont(Label1.Font, Temp);

MyFontServer.Set_MyFont(Temp);

 end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

 MyFontServer := CoMyFontServer.Create;

end;

end.

{--------------------------------------------------------------------}

Так

для чего нам Unit1, создающий реализацию интерфейса? Интерфейс Ole, такой как, например, IFontDisp, может считаться соглашением о том, что свойства и функции будут определены в заданном формате, а функции будут реализованы как определено (для получения дополнительной информации смотри Руководство Разработчика, главу 36, «An Overview of COM» (Обзор COM). Тот факт, что интерфейс определен, не означает, что он реализован. Например, чтобы заставить определенный вами интерфейс IFontDisp быть полезным, необходимо обеспечить хранение шрифта и механизм добавления и извлечения информации об атрибутах шрифта, таких, как имя шрифта, наклонное начертание, размер и пр.

Примечание:

GetOleFont и SetOleFont определены в AxCtrls.pas. IFontDisp определен в ActiveX.pas 

Использование CHARTFX.VBX

Delphi 1 

Хотя это можно было бы пообсуждать и здесь, но для ChartFX существует контекстно-зависимая подсказка. Киньте компонент на форму, выберите его и нажмите F1. 

VBX в приложениях DELPHI: как распространять?

Delphi 1 

Чтобы использовать любые элементы управления VBX с компилированным Delphi EXE-файлом, вам необходимо распространить BIVBX11.DLL (расположен в каталоге \WINDOWS\SYSTEM – Borland при установке копирует его туда).