Witam,
zainstalowałem komponent ProgressBar3D ze strony http://download.4programmers.net/search.php?q=ProgressBar3D&lang_id=0 i mam problem z umieszczeniem go w tym kodzie:
Proszę mi wybaczyć, że umieściłem cały kod ale chciałem pokazać pełny obraz sprawy.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ShellApi,
StdCtrls, ComCtrls, Buttons, ExtCtrls, Progbr3d;
type
TForm3 = class(TForm)
Button3: TButton;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ProgressBar3D1: ProgressBar3D;
ProgressBar3D2: ProgressBar3D;
procedure Button3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.DFM}
procedure TForm3.BitBtn1Click(Sender: TObject); //tworzenie kopii danych
Var lProgramPath: String;
var i: integer;
var FOS:TSHFileOpStructA;
Tablica_Sciezek: array [1..4] of String;
begin
with FOS do
begin
Tablica_Sciezek[1] := 'nazwiska.dbf';
Tablica_Sciezek[2] := 'nazwiska.mdx';
Tablica_Sciezek[3] := 'nazwiska.dbt';
Tablica_Sciezek[4] := 'numer.dbf';
Wnd:=Handle;
wFunc:=FO_COPY;
pTo:= PChar(lProgramPath + 'kopia\'#0);
fFlags:=FOF_ALLOWUNDO or FOF_NOCONFIRMMKDIR;
lpszProgressTitle:='Kopiowanie danych...';
fAnyOperationsAborted:=False;
end;
{ - KONIEC INSTRUKCJI WITH !!!}
lProgramPath := ExtractFileDir(Application.ExeName);
for i := 1 to 4 do
begin
FOS.pFrom := PChar(lProgramPath + '\Dane\' + Tablica_Sciezek[i]+#0);
if SHFileOperation(FOS)<>0 then
ShowMessage('Wystąpił błąd podczas kopiowania')
else
if FOS.fAnyOperationsAborted then
ShowMessage('Kopiowanie zostało przerwane');
ProgressBar3D1.Position := round(i * 100 / 4);
//to jest komunikat dotyczacy tworzenia kopii danych
end;
{ - KONIEC PĘTLI !!!}
Application.MessageBox('Zakończono tworzenie kopii danych',
'Skladowanie Danych', MB_ApplModal+MB_ICONINFORMATION or MB_OK);
end; {!!! END KOŃCZĄCY PROCEDURĘ !!!}
procedure TForm3.BitBtn2Click(Sender: TObject); //odtwarzanie kopii danych
Var lProgramPath: String;
var i: integer;
var FOS:TSHFileOpStructA;
Tablica_Sciezek: array [1..4] of String;
begin
with FOS do
begin
Tablica_Sciezek[1] := 'nazwiska.dbf';
Tablica_Sciezek[2] := 'nazwiska.mdx';
Tablica_Sciezek[3] := 'nazwiska.dbt';
Tablica_Sciezek[4] := 'numer.dbf';
Wnd:=Handle;
wFunc:=FO_COPY;
pTo:= PChar(lProgramPath + 'Dane\'#0);
fFlags:=FOF_ALLOWUNDO or FOF_NOCONFIRMMKDIR;
lpszProgressTitle:='Kopiowanie danych...';
fAnyOperationsAborted:=False;
end;
lProgramPath := ExtractFileDir(Application.ExeName);
for i := 1 to 4 do
begin
FOS.pFrom := PChar(lProgramPath + '\kopia\'+ Tablica_Sciezek[i]+#0);
if SHFileOperation(FOS)<>0 then
ShowMessage('Wystąpił błąd podczas kopiowania')
else
if FOS.fAnyOperationsAborted then
ShowMessage('Kopiowanie zostało przerwane');
ProgressBar3D2.Position := round(i * 100 / 4);
//to jest komunikat dotyczacy zakonczenia odtwarzania danych
end;
{ - KONIEC PĘTLI !!!}
Application.MessageBox('Zakończono odtwarzanie danych',
'Skladowanie Danych', MB_ApplModal+MB_ICONINFORMATION or MB_OK);
end; {!!! END KOŃCZĄCY PROCEDURĘ !!!}
procedure TForm3.Button3Click(Sender: TObject);
// komunikat o wyjsciu z tworzenia kopii danych i ich odtworzeniu
var
numBtn: Integer;
begin
numBtn:= Application.MessageBox('Napewno Kończysz ?',
'Skladowanie Danych',
MB_ICONQUESTION or MB_YESNO);
if (numBtn = IDYES) then
begin
ShowMessage('Hey to wychodzimy z tworzenia kopii danych');
close
end;
if (numBtn = IDNO) then
begin
ShowMessage('Chcesz jeszcze wrócic do tworzenia kopii danych ? ;-)');
end;
end;
end.
i teraz mam nastepujące błędy:
[Error] Unit3.pas(80): Undeclared identifier: 'Position'
[Error] Unit3.pas(137): Undeclared identifier: 'Position'
[Fatal Error] Unit2.pas(36): Could not compile used unit 'Unit3.pas'
Serdecznie pozdrawiam i prosze o wyrozumiałość
Waldi