| Class TPanopticForm (unit PanopticDemo) |
TForm
| Constructors |
| Functions |
procedure ColorBlueClick(Sender: TObject);
procedure ContinuousClick(Sender: TObject);
procedure CountryPanopticStep(Sender: TObject);
procedure DarkBackgroundClick(Sender: TObject);
procedure DepthChange(Sender: TObject);
procedure FlagLayoutClick(Sender: TObject);
procedure FlagsBitBtnClick(Sender: TObject);
procedure FlagsPageControlChange(Sender: TObject);
procedure FlagsPanopticStep(Sender: TObject);
procedure FlagsTrackBarChange(Sender: TObject);
procedure FontBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure GlyphLayoutClick(Sender: TObject);
procedure GlyphTransparentClick(Sender: TObject);
procedure ImaginationPanopticBeforeFirstStep(Sender: TObject);
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);
procedure PanopticGeneralDrawGlyph(Sender: TObject; Glyph: TBitmap;
const PercentDone: Double);
procedure PanopticGeneralDrawTextLine(Sender: TObject;
var LineText: string; LineFont: TFont; TextStyle: TTextStyle;
const LineIndex: Integer; const PercentDone: Double);
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);
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;