unit Unit29;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
ISkinListBox =
interface
['
{38EF3B4F-86A1-45D0-A7F3-4E45E125979D}']
function GetHandle: hWnd;
property Handle: hWnd
read GetHandle;
procedure SetFont(nPointSize: Integer; FontName: PAnsiChar; AktForecolor: COLORREF;
InAktForecolor: COLORREF; Shadow: Boolean; SOffset: Integer; ShadowColor: COLORREF);
procedure InitTrackbar;
end;
TMyTest =
class(TinterfacedObject, ISkinListBox)
private
function GetHandle: hWnd;
property Handle: hWnd
read GetHandle;
procedure SetFont(nPointSize: Integer; FontName: PAnsiChar; AktForecolor: COLORREF;
InAktForecolor: COLORREF; Shadow: Boolean; SOffset: Integer; ShadowColor: COLORREF);
procedure InitTrackbar;
public
destructor Destroy;
override;
end;
TForm29 =
class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form29: TForm29;
implementation
{$R *.dfm}
procedure TForm29.FormCreate(Sender: TObject);
var
slb : ISkinListBox;
begin
slb := tMYTest.Create;
slb :=
nil;
end;
{ TMyTest }
destructor TMyTest.Destroy;
begin
asm int 3;
end;
inherited;
end;
function TMyTest.GetHandle: hWnd;
begin
end;
procedure TMyTest.InitTrackbar;
begin
end;
procedure TMyTest.SetFont(nPointSize: Integer; FontName: PAnsiChar;
AktForecolor, InAktForecolor: COLORREF; Shadow: Boolean; SOffset: Integer;
ShadowColor: COLORREF);
begin
end;
end.