Unit 'ovclbl2' Package
[Overview][Classes][Index] [#pl_orpheus]

TOvcCustomDirectionPicker

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

Declaration

Source position: ovclbl2.pas line 45

type TOvcCustomDirectionPicker = class(TOvcGraphicControl)

protected

  FDirection: Integer;

  

  FNumDirections: Integer;

  

  FSelectedBitmap: TBitmap;

  

  FShowCenter: Boolean;

  

  FDirectionBitmap: TBitmap;

  

  FOnChange: TNotifyEvent;

  

  procedure SetDirection();

  

  procedure SetSelectedBitmap();

  

  procedure SetNumDirections();

  

  procedure SetShowCenter();

  

  procedure SetDirectionBitmap();

  

  procedure MouseDown(); override;

  

  procedure Paint; override;

  

  property Direction: Integer; [rw]

  

  property NumDirections: Integer; [rw]

  

  property SelectedBitmap: TBitmap; [rw]

  

  property ShowCenter: Boolean; [rw]

  

  property DirectionBitmap: TBitmap; [rw]

  

  property OnChange: TNotifyEvent; [rw]

  

public

  constructor Create(); override;

  

  destructor Destroy; override;

  

end;

Inheritance

TOvcCustomDirectionPicker

  

|

TOvcGraphicControl

  

|

TObject



CT Web help

CodeTyphon Studio