Class TPanopticForm (unit PanopticDemo)

Inherits from

TForm

Constructors



Functions

procedure ColorBlueClick(Sender: TObject);


procedure ContinuousClick(Sender: TObject);


procedure CountryPanopticStep(Sender: TObject);


procedure DarkBackgroundClick(Sender: TObject);

Change the color 7 times (100/7 ~= 16

procedure DepthChange(Sender: TObject);


procedure FlagLayoutClick(Sender: TObject);


procedure FlagsBitBtnClick(Sender: TObject);

Flags (Demo 3

procedure FlagsPageControlChange(Sender: TObject);


procedure FlagsPanopticStep(Sender: TObject);


procedure FlagsTrackBarChange(Sender: TObject);


procedure FontBtnClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

General (Demo 1

procedure GlyphLayoutClick(Sender: TObject);


procedure GlyphTransparentClick(Sender: TObject);


procedure ImaginationPanopticBeforeFirstStep(Sender: TObject);

Imagination (Demo 4

procedure ImaginationPanopticDrawTextLine(Sender: TObject; var LineText: string; LineFont: TFont; TextStyle: TTextStyle; const LineIndex: Integer; const PercentDone: Double);


procedure ImaginationPanopticStep(Sender: TObject);


procedure PageControl2Change(Sender: TObject);


procedure Panoptic3Click(Sender: TObject);


procedure PanopticGeneralAfterLastStep(Sender: TObject);

Change the font of the E-mail line

procedure PanopticGeneralDrawGlyph(Sender: TObject; Glyph: TBitmap; const PercentDone: Double);

Change spacing if "Varying" selected and on every 3rd step.

procedure PanopticGeneralDrawTextLine(Sender: TObject; var LineText: string; LineFont: TFont; TextStyle: TTextStyle; const LineIndex: Integer; const PercentDone: Double);

TPanoptic events for General (Demo 1).

procedure PanopticGeneralStep(Sender: TObject);


procedure ScrollDirectionClick(Sender: TObject);


procedure ShaddowClick(Sender: TObject);


procedure ShowImageClick(Sender: TObject);


procedure ShowTextClick(Sender: TObject);


procedure SpacingChange(Sender: TObject);


procedure SpeedChange(Sender: TObject);


procedure StarWarsPanopticDrawTextLine(Sender: TObject; var LineText: string; LineFont: TFont; TextStyle: TTextStyle; const LineIndex: Integer; const PercentDone: Double);

Star Wars Effect (Demo 2

procedure StopStartBtnClick(Sender: TObject);


procedure TextAlignmentClick(Sender: TObject);


procedure VaryingSpacingClick(Sender: TObject);


Properties

Events

Variables

AussieStates : TTabSheet;


ChangeColors : TCheckBox;


ColorBlue : TRadioButton;


ColorNavy : TRadioButton;


ColorRed : TRadioButton;


ColorSilver : TRadioButton;


Continuous : TCheckBox;


CountryPanoptic : TPanoptic;


DarkBackground : TCheckBox;


Depth : TTrackBar;


DepthLbl : TLabel;


DepthString : TLabel;


DrawingEvent : TRadioGroup;


FlagLayout : TRadioGroup;


FlagsBitBtn : TBitBtn;


FlagsPageControl : TPageControl;


FlagsPanoptic : TPanoptic;


FlagsTrackBar : TTrackBar;


FontBtn : TSpeedButton;


FontDialog1 : TFontDialog;


GlyphLayout : TRadioGroup;


GlyphTransparent : TCheckBox;


GroupBox1 : TGroupBox;


GroupBox3 : TGroupBox;


GroupBox4 : TGroupBox;


GroupBox5 : TGroupBox;


GroupBox6 : TGroupBox;


Image1 : TImage;


ImaginationPanoptic : TPanoptic;


ImaginationTS : TTabSheet;


Label1 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label14 : TLabel;


Label15 : TLabel;


Label16 : TLabel;


Label17 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label9 : TLabel;


Lowered : TRadioButton;


Memo1 : TMemo;


Memo2 : TMemo;


MultiColor : TRadioButton;


Normal : TRadioButton;


NumberOfFlags : TLabel;


PageControl1 : TPageControl;


PageControl2 : TPageControl;


Panel1 : TPanel;


Panel2 : TPanel;


Panel4 : TPanel;


Panoptic1 : TPanoptic;


Panoptic2 : TPanoptic;


Panoptic3 : TPanoptic;


Panoptic4 : TPanoptic;


PanopticGeneral : TPanoptic;


Raised : TRadioButton;


ScrollDirection : TRadioGroup;


Shaddow : TRadioButton;


Shape1 : TShape;


Shape10 : TShape;


Shape3 : TShape;


Shape5 : TShape;


Shape6 : TShape;


Shape7 : TShape;


Shape8 : TShape;


Shape9 : TShape;


ShowImage : TCheckBox;


ShowText : TCheckBox;


Spacing : TTrackBar;


SpacingLbl : TLabel;


Speed : TTrackBar;


StarWarsPanel : TPanel;


StarWarsPanoptic : TPanoptic;


StarWarsTS : TTabSheet;


StopStartBtn : TSpeedButton;


TabSheet1 : TTabSheet;


TabSheet2 : TTabSheet;


TabSheet3 : TTabSheet;


TabSheet4 : TTabSheet;


TabSheet5 : TTabSheet;


TabSheet6 : TTabSheet;


TabSheet7 : TTabSheet;


TextAlignment : TRadioGroup;


USStates : TTabSheet;


VaryingSpacing : TSpeedButton;


HoldBitmap : TBitmap;



Constructors


Functions


procedure ColorBlueClick(Sender: TObject);


procedure ContinuousClick(Sender: TObject);


procedure CountryPanopticStep(Sender: TObject);


procedure DarkBackgroundClick(Sender: TObject);

Change the color 7 times (100/7 ~= 16


procedure DepthChange(Sender: TObject);


procedure FlagLayoutClick(Sender: TObject);


procedure FlagsBitBtnClick(Sender: TObject);

Flags (Demo 3


procedure FlagsPageControlChange(Sender: TObject);


procedure FlagsPanopticStep(Sender: TObject);


procedure FlagsTrackBarChange(Sender: TObject);


procedure FontBtnClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

General (Demo 1


procedure GlyphLayoutClick(Sender: TObject);


procedure GlyphTransparentClick(Sender: TObject);


procedure ImaginationPanopticBeforeFirstStep(Sender: TObject);

Imagination (Demo 4


procedure ImaginationPanopticDrawTextLine(Sender: TObject; var LineText: string; LineFont: TFont; TextStyle: TTextStyle; const LineIndex: Integer; const PercentDone: Double);


procedure ImaginationPanopticStep(Sender: TObject);


procedure PageControl2Change(Sender: TObject);


procedure Panoptic3Click(Sender: TObject);


procedure PanopticGeneralAfterLastStep(Sender: TObject);

Change the font of the E-mail line


procedure PanopticGeneralDrawGlyph(Sender: TObject; Glyph: TBitmap; const PercentDone: Double);

Change spacing if "Varying" selected and on every 3rd step.


procedure PanopticGeneralDrawTextLine(Sender: TObject; var LineText: string; LineFont: TFont; TextStyle: TTextStyle; const LineIndex: Integer; const PercentDone: Double);

TPanoptic events for General (Demo 1)...


procedure PanopticGeneralStep(Sender: TObject);


procedure ScrollDirectionClick(Sender: TObject);


procedure ShaddowClick(Sender: TObject);


procedure ShowImageClick(Sender: TObject);


procedure ShowTextClick(Sender: TObject);


procedure SpacingChange(Sender: TObject);


procedure SpeedChange(Sender: TObject);


procedure StarWarsPanopticDrawTextLine(Sender: TObject; var LineText: string; LineFont: TFont; TextStyle: TTextStyle; const LineIndex: Integer; const PercentDone: Double);

Star Wars Effect (Demo 2


procedure StopStartBtnClick(Sender: TObject);


procedure TextAlignmentClick(Sender: TObject);


procedure VaryingSpacingClick(Sender: TObject);


Properties


Events


Variables


AussieStates : TTabSheet;


ChangeColors : TCheckBox;


ColorBlue : TRadioButton;


ColorNavy : TRadioButton;


ColorRed : TRadioButton;


ColorSilver : TRadioButton;


Continuous : TCheckBox;


CountryPanoptic : TPanoptic;


DarkBackground : TCheckBox;


Depth : TTrackBar;


DepthLbl : TLabel;


DepthString : TLabel;


DrawingEvent : TRadioGroup;


FlagLayout : TRadioGroup;


FlagsBitBtn : TBitBtn;


FlagsPageControl : TPageControl;


FlagsPanoptic : TPanoptic;


FlagsTrackBar : TTrackBar;


FontBtn : TSpeedButton;


FontDialog1 : TFontDialog;


GlyphLayout : TRadioGroup;


GlyphTransparent : TCheckBox;


GroupBox1 : TGroupBox;


GroupBox3 : TGroupBox;


GroupBox4 : TGroupBox;


GroupBox5 : TGroupBox;


GroupBox6 : TGroupBox;


Image1 : TImage;


ImaginationPanoptic : TPanoptic;


ImaginationTS : TTabSheet;


Label1 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label14 : TLabel;


Label15 : TLabel;


Label16 : TLabel;


Label17 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label9 : TLabel;


Lowered : TRadioButton;


Memo1 : TMemo;


Memo2 : TMemo;


MultiColor : TRadioButton;


Normal : TRadioButton;


NumberOfFlags : TLabel;


PageControl1 : TPageControl;


PageControl2 : TPageControl;


Panel1 : TPanel;


Panel2 : TPanel;


Panel4 : TPanel;


Panoptic1 : TPanoptic;


Panoptic2 : TPanoptic;


Panoptic3 : TPanoptic;


Panoptic4 : TPanoptic;


PanopticGeneral : TPanoptic;


Raised : TRadioButton;


ScrollDirection : TRadioGroup;


Shaddow : TRadioButton;


Shape1 : TShape;


Shape10 : TShape;


Shape3 : TShape;


Shape5 : TShape;


Shape6 : TShape;


Shape7 : TShape;


Shape8 : TShape;


Shape9 : TShape;


ShowImage : TCheckBox;


ShowText : TCheckBox;


Spacing : TTrackBar;


SpacingLbl : TLabel;


Speed : TTrackBar;


StarWarsPanel : TPanel;


StarWarsPanoptic : TPanoptic;


StarWarsTS : TTabSheet;


StopStartBtn : TSpeedButton;


TabSheet1 : TTabSheet;


TabSheet2 : TTabSheet;


TabSheet3 : TTabSheet;


TabSheet4 : TTabSheet;


TabSheet5 : TTabSheet;


TabSheet6 : TTabSheet;


TabSheet7 : TTabSheet;


TextAlignment : TRadioGroup;


USStates : TTabSheet;


VaryingSpacing : TSpeedButton;


HoldBitmap : TBitmap;