Prepared adding/deleting of contacts.
This commit is contained in:
parent
f0d779890f
commit
e646d45d80
@ -1,6 +1,6 @@
|
||||
object Form1: TForm1
|
||||
Left = 190
|
||||
Top = 105
|
||||
Left = 191
|
||||
Top = 106
|
||||
Width = 818
|
||||
Height = 656
|
||||
BorderIcons = [biSystemMenu, biMinimize]
|
||||
@ -334,6 +334,7 @@ object Form1: TForm1
|
||||
Caption = 'New'
|
||||
Enabled = False
|
||||
TabOrder = 14
|
||||
OnClick = PB_NewButtonClick
|
||||
end
|
||||
object PB_DelButton: TButton
|
||||
Left = 272
|
||||
@ -343,6 +344,7 @@ object Form1: TForm1
|
||||
Caption = 'Delete!'
|
||||
Enabled = False
|
||||
TabOrder = 15
|
||||
OnClick = PB_DelButtonClick
|
||||
end
|
||||
object PB_SaveButton: TButton
|
||||
Left = 376
|
||||
@ -677,7 +679,7 @@ object Form1: TForm1
|
||||
Top = 8
|
||||
Width = 313
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
ItemHeight = 0
|
||||
TabOrder = 3
|
||||
Text = 'SC_AvailSCs'
|
||||
end
|
||||
|
19
PBE_U.pas
19
PBE_U.pas
@ -126,6 +126,8 @@ type
|
||||
procedure DBG_ShowEntryClick(Sender: TObject);
|
||||
procedure Button_SaveClick(Sender: TObject);
|
||||
procedure Button_SaveAsClick(Sender: TObject);
|
||||
procedure PB_DelButtonClick(Sender: TObject);
|
||||
procedure PB_NewButtonClick(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
@ -140,6 +142,13 @@ type
|
||||
Company: String[30];
|
||||
PhotoFile: String[255];
|
||||
end;
|
||||
TSMSEntry = record
|
||||
PDUHeader: String[40];
|
||||
SMSC, PhoneNo: longint;
|
||||
TStamp: TDateTime;
|
||||
Sent: boolean;
|
||||
Msg: String[160];
|
||||
end;
|
||||
TPBData = record
|
||||
Group: AnsiString;
|
||||
Name: AnsiString;
|
||||
@ -776,4 +785,14 @@ begin
|
||||
FileName.SetFocus;
|
||||
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.
|
||||
|
BIN
PBE_ss.png
Normal file
BIN
PBE_ss.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 22 KiB |
Reference in New Issue
Block a user