diff options
| author | Tomas Bzatek <tbzatek@redhat.com> | 2024-10-11 23:38:44 +0200 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@redhat.com> | 2024-10-23 18:13:05 +0200 |
| commit | 7d757b8452daed2575e3a9cc300459d7e8674345 (patch) | |
| tree | 1b4c0107964cc871dc6e2d732c615af710592c4c /UDirDelete.pas | |
| parent | 81c8cd22e61701c1145dc267b0925add6cc0e78a (diff) | |
| download | tuxcmd-7d757b8452daed2575e3a9cc300459d7e8674345.tar.xz | |
Full port to GErrorv0.6.81
Started 15 years ago, picking up on that work.
Introduced the new TUXCMD_ERROR domain to distinguish between operations
or their steps. Plugins may continue reporting the G_IO_ERROR domain.
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); |
