2007-01-16 02:17:08 +00:00
|
|
|
unit Unit1;
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
uses
|
|
|
|
{$IFNDEF LCL} Windows, Messages, {$ELSE} LclIntf, LMessages, LclType, LResources, {$ENDIF}
|
|
|
|
SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
|
Dialogs, ovcbase, ovcrlbl;
|
|
|
|
|
|
|
|
type
|
|
|
|
TForm1 = class(TForm)
|
|
|
|
OvcRotatedLabel1: TOvcRotatedLabel;
|
|
|
|
OvcRotatedLabel2: TOvcRotatedLabel;
|
|
|
|
OvcRotatedLabel3: TOvcRotatedLabel;
|
|
|
|
OvcRotatedLabel4: TOvcRotatedLabel;
|
|
|
|
private
|
|
|
|
{ Private declarations }
|
|
|
|
public
|
|
|
|
{ Public declarations }
|
|
|
|
end;
|
|
|
|
|
|
|
|
var
|
|
|
|
Form1: TForm1;
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
{$IFNDEF LCL}
|
|
|
|
{$R *.dfm}
|
2014-04-28 20:45:29 +00:00
|
|
|
{$ELSE}
|
|
|
|
{$R *.lfm}
|
2007-01-16 02:17:08 +00:00
|
|
|
{$ENDIF}
|
|
|
|
|
|
|
|
|
|
|
|
end.
|