mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-06 16:38:15 +02:00
29 lines
412 B
ObjectPascal
29 lines
412 B
ObjectPascal
unit customdrawn_mac;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
// RTL
|
|
Classes, SysUtils, Types,
|
|
// LCL -> Use only TForm, TWinControl, TCanvas and TLazIntfImage
|
|
Graphics, Controls, LCLType,
|
|
//
|
|
customdrawndrawers, customdrawn_common;
|
|
|
|
type
|
|
|
|
{ TCDDrawerMac }
|
|
|
|
TCDDrawerMac = class(TCDDrawerCommon)
|
|
public
|
|
end;
|
|
|
|
implementation
|
|
|
|
initialization
|
|
RegisterDrawer(TCDDrawerMac.Create, dsMacOSX);
|
|
end.
|
|
|