mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-27 21:14:01 +02:00
31 lines
484 B
ObjectPascal
31 lines
484 B
ObjectPascal
unit customdrawn_win2000;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
// RTL
|
|
Classes, SysUtils,
|
|
// fpimage
|
|
fpcanvas, fpimgcanv, fpimage,
|
|
// LCL -> Use only TForm, TWinControl, TCanvas and TLazIntfImage
|
|
Graphics, Controls, LCLType, LCLIntf, IntfGraphics,
|
|
//
|
|
customdrawndrawers, customdrawn_common;
|
|
|
|
type
|
|
|
|
{ TCDDrawerWin2k }
|
|
|
|
TCDDrawerWin2k = class(TCDDrawerCommon)
|
|
public
|
|
end;
|
|
|
|
implementation
|
|
|
|
initialization
|
|
RegisterDrawer(TCDDrawerWin2k.Create, dsWin2000);
|
|
end.
|
|
|