1. Image
2. Shape
3. Bevel
4. Canvas
1. Image
Delphi : , . - picture. canvas , ( !).
, . 1:
TPanei, caption alBottom Alignment - .
TButton .
( ) Timage Align alClient.
(Timage, TPanei TButton) c TOpenPictureDialog ( Dialogs ) - .
. 1. Tfmage
onlick Button1:
procedure TFormI.ButtonlClick(Sender: TObject);
Begin
if OpenPictureDialogI.Execute then
Begin
Imagel.Picture.LoadFromFile -(OpenPictureDialogI.FileName);
Imagel.Stretch:= True
End
End;
,
Imagel.Stretch := True
, TImage.
:
property Center: Boolean; | , . , Autosize=True Stretch =True (ICO) |
property Canvas: TCanvas; | |
property Transparent: Boolean; | / |
property Proportional: Boolean;property Stretch: Boolean; | / , |
property Picture: TPicture; | / , |
property IncrementalDisplay: Boolean; | / . |
TPicture, picture, clipboard .
onprogress, :
|
|
type TProgressStage = (psStarting, psRunning, psEnding);
TProgressEvent = procedure (Sender: TObject;
Stage: TProgressStage; PercentDone: Byte;
RedrawNow: Boolean;
const R:
TRect; const Msg: String) of object;
property OnProgress: TProgressEvent
stage (psStarting - , psRunning - , psEnding - ). PercentDone . RedrawNow Windows , . , incrementaiDis-play True. r - , . Msg , . psStarting TprogressBar, psRunning , psEnding . , onprogress , , JPEG (Joint Photographic Expert Group - ) [ JPEG Delphi TJPEGImage. , OnProgress help\examples\jpeg\jpegproj.dpr Delphi. ].
2. Shape
, :
type TShapeType = (stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle);
(, , , , , ). . , , .
Brush pen ( ) shape.' TShapeType, .
3. Bevel
TBevel .
type TBevelShape = (bsBox, bsFrame, bsTopLine, bsBottomLine, bsLeftLine, bsRightLine);
property Shape: TBevelShape;
(, , , , , ).
type TBevelStyle = (bsLowered, bsRaised);
property Style: TBevelStyle;
( ).
: 1, .54-67.
.
1. Image
2. Shape
3. Bevel