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);
