TPageControl, TTabControl, () TTabSheet. . , New Page ( ), Next Page ( ) Previous Page ( ). , . . .
HotTrack, MultiLine, ScrollOpposite, TabHeight, TabPosition TabWidth, TTabControl, TPageControl :
property ActivePage: TTabSheet; | . ActivePage . SelectNextPage FmdNextPage |
property PageCount: Integer; | ( ) |
property Pages[Index: Integer]: TTabSheet; | ( ) |
TPageControl:
function FindNextPage (CurPage: TTabSheet; GoForward, CheckTabVisible: Boolean): TTabSheet; | . CurPage , GoForward True, , CheckTabVisible True, TabVisible=False. . CurPage , GoForward. |
procedure SelectNextPage (GoForward: Boolean); | : GoForward=True, , |
TAnimate
TAnimate AVI (Audio Video Interleaved ). AVI . {, RLE (Run-Length Encoding). , .
:
Demos\Coolstuf\Cool.avi ( Demos Delphi).
Animate, ProgressBar, Timer-( System) BitBtn. , - ProgressBar "COOL" Animate.
|
|
Enabled Timer False, - interval 1000. visible- ProgressBar False -, Cool.avi.
onlick onTimer , .
procedure TForml.BitBtnlClick(Sender: TObject);
begin
Animatel.FileName:= 'cool.avi'; //
Animate1.Active:= True; //
ProgressBar1.Show; //
Timer1.Enabled:= True; //
end;
procedure TForml.TimerlTimer(Sender: TObject);
begin
ProgressBar1.Position:= ProgressBar1.Position + 1;
if ProgressBar1.Position >= ProgressBar1.Max then begin
Timer1.Enabled:= False; //
ProgressBar1.Position:= 0; //
ProgressBar1.Hide; //
Animatel.Stop //
end;
end;
TAnimate:
property Active: Boolean; | / True |
property AutoSize: Boolean; | True, , |
property Center: Boolean; | |
TCommonAVI = (aviNone, aviFindFolder, aviFindFile, aviFindComputer, aviCopyFiles, aviCopyFile, aviRecycleFile, aviEmptyRecycle, aviDeleteFile); property CommonAVI: TCommonAVI; | , Shell32.dll (. . 39) |
property FileName: TFileName; | AVI- |
property FrameCount: Integer; | , |
property FrameHeight: Integer; | |
property FrameWidth: Integer; | |
property Open: Boolean; | True, AVI- |
property Repetitions: Integer; | 0, , Active True |
property ResHandle: THandle; | , AVI- |
property ResHandle: THandle; | |
property ResName: String; | |
property StartFrame: SmallInt; | ( 1) |
property StopFrame: SmallInt; | ( 1) |
property Timers: Boolean; | / . True, . False, |
property Transparent: Boolean; | True, |
commonAvi .
|
|
TAnimate .
TAnimate:
procedure Play (FromFrame, ToFrame: Word; Count: Integer); | Count , FromFrame ToFrame ( 1) |
procedure Reset; | . Open True, Active= False |
procedure Seek (Frame: SmallInt); | Frame ( 1) |
procedure Stop; |
TAnimate:
property OnClose: TNotifyEvent; | False Open. , |
property OnOpen: TNotifyEvent; | True Open |
property OnStart: TNotifyEvent; | |
property OnStop: TNotifyEvent; |
TTrackBar
TTrackBar . TScrollBar , , .
TTrackBar:
property Frequency: Integer; | 1 , 2 2- | |
property LineSize: Integer; | ||
property Max: Integer; | ||
property Min: Integer; | ||
property Orientation: TTrackBarOrientation; | trHonzontal , trVertical | |
property PageSize: Integer; | <Page Up>, <Page Down> | |
property Position: Integer; | ||
property SelEnd: Integer; | ||
property SelStart: Integer; | ||
TTickMark = (tmBottomRight, tmTopLeft, tmBoth); property TickMarks: TTickMark; | tmBottomRight , tmTopLeft , tmBottom | |
TTickStyle = (tsNone, tsAuto, tsManual); property TickStyle: TTickStyle; | . tsNone , tsAuto Frequence, tsManual , SetTick | |
, value: procedure SetTick(Value: Integer);