begin//speedBtnNOT (Assigned (speedBtn)) then begin:=TSpeedButton. Create (Form1) ;. Parent:=Form1 ;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp ;. Name:= SpeedButton raquo ;;;. Top:=tmp; (f, tmp) ;. Left:=tmp; (f, tmp) ;. Height:=tmp; (f, tmp) ;. Width:=tmp;
//SetProperties (speedBtn) ;. Visible:=true ;; (f, tmp); tmp lt; gt; 0 then begin//shapeNOT (Assigned (shape)) then begin:=TShape. Create (Form1) ;. Parent:=Form1 ;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp ;. Name:= Shape raquo ;;;. Top:=tmp; (f, tmp) ;. Left:=tmp; (f, tmp) ;. Height:=tmp; (f, tmp) ;. Width:=tmp;
//SetProperties (shape) ;. Visible:=true ;; (f, tmp); tmp lt; gt; 0 then begin//staticTextNOT (Assigned (staticText)) then begin:=TStaticText. Create (Form1) ;. Parent:=Form1 ;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp ;. Name:= StaticText raquo ;;;. Top:=tmp; (f, tmp) ;. Left:=tmp; (f, tmp) ;. Height:=tmp; (f, tmp) ;. Width:=tmp;
//SetProperties (staticText) ;. Visible:=true ;; (f, tmp); tmp lt; gt; 0 then begin//stringGridNOT (Assigned (stringGrid)) then begin:=TStringGrid. Create (Form1) ;. Parent:=Form1 ;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp ;. Name:= StringGrid raquo ;;;. Top:=tmp; (f, tmp) ;. Left:=tmp; (f, tmp) ;. Height:=tmp; (f, tmp) ;. Width:=tmp; (stringGrid) ;. Visible:=true ;; (f) ;; TForm1. BitBtn5Click (Sender: TObject); (Довідка по компонентах бібліотеки VLC Deflphi 7. Розробив Брик Михайло. Воронеж +2013 ') ;;.