mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Replace TNoteBook by TPageControl

Browse source
This commit is contained in:
Alexander Koblov 2010-09-18 10:18:49 +00:00
commit 07dddf3a18
2 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/fpackinfodlg.lfm
View file

@ -44,17 +44,18 @@ object frmPackInfoDlg: TfrmPackInfoDlg
ModalResult = 1
TabOrder = 1
end
object nbProperties: TNotebook
object nbProperties: TPageControl
Left = 4
Height = 289
Top = 4
Width = 329
PageIndex = 0
ActivePage = pgGeneral
TabIndex = 0
TabOrder = 3
object pgGeneral: TPage
object pgGeneral: TTabSheet
Caption = 'General'
ClientWidth = 321
ClientHeight = 263
ClientWidth = 321
object lblPackedFile: TLabel
Left = 10
Height = 16

6
src/fpackinfodlg.pas
View file

@ -28,7 +28,7 @@ unit fPackInfoDlg;
interface
uses
SysUtils, Classes, LResources, Forms, StdCtrls, ExtCtrls, Controls,
SysUtils, Classes, LResources, Forms, StdCtrls, ExtCtrls, Controls, ComCtrls,
uFile, uArchiveFileSource, uFileSourceExecuteOperation;
type
@ -50,7 +50,7 @@ type
lblPackedSize: TLabel;
lblPacker: TLabel;
lblTime: TLabel;
nbProperties: TNotebook;
nbProperties: TPageControl;
lblPackedAttr: TLabel;
lblPackedCompression: TLabel;
lblPackedDate: TLabel;
@ -60,7 +60,7 @@ type
lblPackedPackedSize: TLabel;
lblPackedPacker: TLabel;
lblPackedTime: TLabel;
pgGeneral: TPage;
pgGeneral: TTabSheet;
private
{ private declarations }
public