/
r57zone
/
LiteCatalog
Обзор
Документация
Войти
/
r57zone
/
LiteCatalog
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
Source/Unit2.pas
44 строки
789 B
r57zone
Source
07 апр 2026, 16:00
07 апр 2026, 16:00
2bf556d
Код
Авторство
О чём код?
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls; type TDownloadForm = class(TForm) ProgressBar: TProgressBar; AppTitleLbl: TLabel; PercentDownloadLbl: TLabel; CancelBtn: TButton; procedure CancelBtnClick(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var DownloadForm: TDownloadForm; implementation uses Unit1; {$R *.dfm} procedure TDownloadForm.CancelBtnClick(Sender: TObject); begin DownloadAborted:=true; Main.DownloadThread.Terminate; DownloadForm.Close; end; procedure TDownloadForm.FormCreate(Sender: TObject); begin CancelBtn.Caption:=IDS_CANCEL; end; end.