diff options
Diffstat (limited to 'UDirDelete.pas')
| -rw-r--r-- | UDirDelete.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/UDirDelete.pas b/UDirDelete.pas index 8d22d42..3a3b4c5 100644 --- a/UDirDelete.pas +++ b/UDirDelete.pas @@ -22,7 +22,7 @@ unit UDirDelete; interface uses - SysUtils, Types, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts; + SysUtils, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKConsts; const DIR_DELETE_CANCEL = 0; DIR_DELETE_DELETE = 1; @@ -60,10 +60,10 @@ begin WindowPosition := wpCenter; Caption := ''; Label1 := TGTKLabel.Create(Self); - Label1.Caption := 'The directory /tmp is not empty!'; + Label1.UseMarkup := True; Label2 := TGTKLabel.Create(Self); - Label2.Caption := LANGDoYouWantToDeleteItWithAllItsFilesAndSubdirectories; Label3 := TGTKLabel.Create(Self); + Label3.UseMarkup := True; Label3.Visible := False; ClientArea.AddControlEx(Label1, True, True, 0); ClientArea.AddControlEx(Label2, True, True, 0); |