, StatusBar1, .
1. :
. :
Procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: integer);
Begin
// .
StatusBar1.Panels[0].Text:= ': '+ 'X: ' + IntToStr(x) + ';Y: ' +IntToStr(y);
End;
. :
Procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: integer);
Begin
// .
StatusBar1.Panels[1].Text:= ': '+ 'X: ' + IntToStr(x) + ';Y: ' +IntToStr(y);
End;
. :
Procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: integer);
Begin
// .
StatusBar1.Panels[2].Text:= 'X: ' + IntToStr(x) + ';Y: ' +IntToStr(y);
End;
2. , .
Hint.
Hint: String, ShowHint: Boolean, , .
1. Hint Panel1 : .
2. ShowHint True.
3. , Panel1 Hint.
:
1. , Hint ShowHint.
2. TStatusBar, (Date - TDateTime; DateToStr - TDateTime ) .
3. 2 Drag&Drop . TLabel.
4. Drag&Drop 2.
5. 2.
6. 3 Drag&Drop . TLabel.
7. 3.
Lab6.
7
. . WIN32. WINDOWS.
Windows 95/98 Win32. , (Docking), , , ( TTrackBar TUpDown), .
|
|
|
Delphi.
2. Lab7. .
.
1. TControlBar ( Additional). TToolBar. Drag&Dock . Align alTop, AutoSize True, DragKind dkDock. DragMode dmManual.
2. ImageList ( Win32) . ImageList , , ImageList Editor.
3. <Add> BMP- Images\Buttons. , ImageList . . . , < Delete >, .
4. . 2, 3 .
5. ControlBar1 TToolBar ( Win32). Images ToolBar1 ImageList1 . ToolBar1 NewButton.
6. ControlBar1 TToolBar. Align alTop alNone. ImageList2 ( Images) (. . 2,5).
7. TtoolBar DragKind dkDock, DragMode dmAutomatic AutoSize True.
8. .
.
, . TTabControl TPageControl. . TPageControl TTabSheet. .
1. TPageControl.
2. , New Page. Caption ( 4 ).
TPaintBox.
TPaintBox System. . Canvas , Font, Pen Brush.
|
|
|
1. PageControl TPanel Align alRight.
2. TBitBtn. ( Caption ( ) Glyph).
3. TPaintBox (Align - alClient).
4. OnClick BitBtn1.
Procedure TForm1.BitBtn1Click(Sender: TObject);
Var x,y: integer;
Begin
With PaintBox1.Canvas do
Begin
Brush.Color:=clRed;
Ellipse(0,0,Width,height);
Font.Size:=Height div 5;
Font.Color:= clWhite;
X:=(Width-TextWidth('Delphi')) div 2;
Y:=(Height-TextHeight('D')) div 2;
TextOut(x,y, 'Delphi');
End; End;
, Canvas, .
5. .
6. BitBtn2 :
Procedure TForm1.BitBtn2Click(Sender: TObject);
Begin
PaintBox1.Refresh;
End;
BitBtn2 PaintBox1.
7. , .
