Archived
1
0

Prepared adding/deleting of contacts.

This commit is contained in:
Markus Birth 2005-12-24 20:33:06 +01:00
parent f0d779890f
commit e646d45d80
6 changed files with 32 additions and 3 deletions

BIN
PBE.res Normal file

Binary file not shown.

BIN
PBE_U.ddp Normal file

Binary file not shown.

View File

@ -1,6 +1,6 @@
object Form1: TForm1 object Form1: TForm1
Left = 190 Left = 191
Top = 105 Top = 106
Width = 818 Width = 818
Height = 656 Height = 656
BorderIcons = [biSystemMenu, biMinimize] BorderIcons = [biSystemMenu, biMinimize]
@ -334,6 +334,7 @@ object Form1: TForm1
Caption = 'New' Caption = 'New'
Enabled = False Enabled = False
TabOrder = 14 TabOrder = 14
OnClick = PB_NewButtonClick
end end
object PB_DelButton: TButton object PB_DelButton: TButton
Left = 272 Left = 272
@ -343,6 +344,7 @@ object Form1: TForm1
Caption = 'Delete!' Caption = 'Delete!'
Enabled = False Enabled = False
TabOrder = 15 TabOrder = 15
OnClick = PB_DelButtonClick
end end
object PB_SaveButton: TButton object PB_SaveButton: TButton
Left = 376 Left = 376
@ -677,7 +679,7 @@ object Form1: TForm1
Top = 8 Top = 8
Width = 313 Width = 313
Height = 21 Height = 21
ItemHeight = 13 ItemHeight = 0
TabOrder = 3 TabOrder = 3
Text = 'SC_AvailSCs' Text = 'SC_AvailSCs'
end end

View File

@ -126,6 +126,8 @@ type
procedure DBG_ShowEntryClick(Sender: TObject); procedure DBG_ShowEntryClick(Sender: TObject);
procedure Button_SaveClick(Sender: TObject); procedure Button_SaveClick(Sender: TObject);
procedure Button_SaveAsClick(Sender: TObject); procedure Button_SaveAsClick(Sender: TObject);
procedure PB_DelButtonClick(Sender: TObject);
procedure PB_NewButtonClick(Sender: TObject);
private private
{ Private declarations } { Private declarations }
public public
@ -140,6 +142,13 @@ type
Company: String[30]; Company: String[30];
PhotoFile: String[255]; PhotoFile: String[255];
end; end;
TSMSEntry = record
PDUHeader: String[40];
SMSC, PhoneNo: longint;
TStamp: TDateTime;
Sent: boolean;
Msg: String[160];
end;
TPBData = record TPBData = record
Group: AnsiString; Group: AnsiString;
Name: AnsiString; Name: AnsiString;
@ -776,4 +785,14 @@ begin
FileName.SetFocus; FileName.SetFocus;
end; end;
procedure TForm1.PB_DelButtonClick(Sender: TObject);
begin
// Delete phonebook entry
end;
procedure TForm1.PB_NewButtonClick(Sender: TObject);
begin
// Add new phonebook entry
end;
end. end.

BIN
PBE_ss.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 22 KiB

8
README.md Normal file
View File

@ -0,0 +1,8 @@
PhoneBackup Editor
==================
A tool to view the contents of backups made with PhoneBackup (from christersson.org).
Editing features were planned, but the evolution of phones was faster.
![](PBE_ss.png)