X-Git-Url: http://git.jankratochvil.net/?p=gnokii.git;a=blobdiff_plain;f=win32_makefile%2Fgui_delphi%2Fmainunit.dfm;fp=win32_makefile%2Fgui_delphi%2Fmainunit.dfm;h=85f37babb52dd3607052edb09e6725141ba45027;hp=bc8bc0d1f06bbde1e4d2e4cd7cbd6dcb278e313f;hb=82bcbc2300f764bcb3551b152a0a961f4fef5e66;hpb=975a83d253eea8aa37bf3dfd7e026df3027db4ff diff --git a/win32_makefile/gui_delphi/mainunit.dfm b/win32_makefile/gui_delphi/mainunit.dfm index bc8bc0d..85f37ba 100644 --- a/win32_makefile/gui_delphi/mainunit.dfm +++ b/win32_makefile/gui_delphi/mainunit.dfm @@ -1,10 +1,9 @@ object MainForm: TMainForm - Left = 171 - Top = 136 - BorderStyle = bsSingle + Left = 138 + Top = 137 + Width = 655 + Height = 431 Caption = 'Mygnokii for WIN32' - ClientHeight = 377 - ClientWidth = 617 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -13,21 +12,23 @@ object MainForm: TMainForm Font.Style = [] Menu = MainMenu1 OldCreateOrder = False + OnClose = FormClose OnCreate = FormCreate OnResize = FormResize + OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Splitter1: TSplitter Left = 93 Top = 0 Width = 4 - Height = 360 + Height = 368 Cursor = crHSplit end object StatusBar1: TStatusBar Left = 0 - Top = 360 - Width = 617 + Top = 368 + Width = 647 Height = 17 Panels = < item @@ -45,7 +46,7 @@ object MainForm: TMainForm Left = 0 Top = 0 Width = 93 - Height = 360 + Height = 368 Align = alLeft AutoExpand = True BevelInner = bvNone @@ -74,19 +75,21 @@ object MainForm: TMainForm 64206469616C73260000000C00000000000000FFFFFFFFFFFFFFFF0000000000 0000000D57415020626F6F6B6D61726B73250000000D00000000000000FFFFFF FFFFFFFFFF00000000000000000C5741502073657474696E67731B0000000E00 - 000000000000FFFFFFFFFFFFFFFF0000000002000000025043210000000F0000 - 0000000000FFFFFFFFFFFFFFFF00000000000000000843616C656E6461721C00 - 00001000000000000000FFFFFFFFFFFFFFFF000000000000000003534D53} + 000000000000FFFFFFFFFFFFFFFF0000000003000000025043210000000F0000 + 0000000000FFFFFFFFFFFFFFFF00000000000000000843616C656E6461722200 + 00001000000000000000FFFFFFFFFFFFFFFF00000000000000000950686F6E65 + 626F6F6B1C0000001100000000000000FFFFFFFFFFFFFFFF0000000000000000 + 03534D53} end object PageControl1: TPageControl Left = 97 Top = 0 - Width = 520 - Height = 360 - ActivePage = WAPSettTabSheet + Width = 550 + Height = 368 + ActivePage = PhoneTabSheet Align = alClient Style = tsFlatButtons - TabIndex = 13 + TabIndex = 2 TabOrder = 2 object NetmonitorTabSheet: TTabSheet Caption = 'netm' @@ -95,7 +98,7 @@ object MainForm: TMainForm object GroupBox1: TGroupBox Left = 0 Top = 0 - Width = 531 + Width = 502 Height = 329 Align = alClient Caption = 'Netmonitor' @@ -157,15 +160,15 @@ object MainForm: TMainForm object GroupBox2: TGroupBox Left = 0 Top = 0 - Width = 512 - Height = 329 + Width = 542 + Height = 337 Align = alClient Caption = 'Phonebook' TabOrder = 0 object Panel1: TPanel Left = 2 Top = 15 - Width = 508 + Width = 538 Height = 25 Align = alTop BevelOuter = bvNone @@ -199,8 +202,8 @@ object MainForm: TMainForm object ListView1: TListView Left = 2 Top = 40 - Width = 508 - Height = 287 + Width = 538 + Height = 295 Align = alClient Columns = < item @@ -217,6 +220,7 @@ object MainForm: TMainForm end item Caption = 'Group' + Width = 70 end item Caption = 'Date' @@ -226,7 +230,9 @@ object MainForm: TMainForm Caption = 'Time' Width = 100 end> + ColumnClick = False GridLines = True + ReadOnly = True RowSelect = True PopupMenu = PBKPopupMenu SortType = stData @@ -243,22 +249,22 @@ object MainForm: TMainForm object GroupBox3: TGroupBox Left = 0 Top = 0 - Width = 512 - Height = 329 + Width = 542 + Height = 337 Align = alClient Caption = 'Phone' TabOrder = 0 object Label14: TLabel - Left = 432 - Top = 24 + Left = 440 + Top = 240 Width = 38 Height = 13 Caption = 'Label14' Visible = False end object Label16: TLabel - Left = 432 - Top = 64 + Left = 440 + Top = 280 Width = 38 Height = 13 Caption = 'Label16' @@ -266,7 +272,7 @@ object MainForm: TMainForm end object GroupBox12: TGroupBox Left = 8 - Top = 24 + Top = 16 Width = 257 Height = 121 Caption = 'Info' @@ -325,8 +331,8 @@ object MainForm: TMainForm end end object Button9: TButton - Left = 304 - Top = 24 + Left = 272 + Top = 208 Width = 81 Height = 25 Caption = 'Reset' @@ -336,16 +342,16 @@ object MainForm: TMainForm end object GroupBox14: TGroupBox Left = 8 - Top = 216 + Top = 200 Width = 257 - Height = 105 + Height = 97 Caption = 'Simlocks' TabOrder = 3 object ListView8: TListView Left = 2 Top = 15 Width = 253 - Height = 88 + Height = 80 Align = alClient Columns = < item @@ -362,29 +368,36 @@ object MainForm: TMainForm item Caption = 'counter' end> + ColumnClick = False + Ctl3D = False + FlatScrollBars = True GridLines = True + ReadOnly = True + RowSelect = True TabOrder = 0 ViewStyle = vsReport end end object GroupBox11: TGroupBox Left = 8 - Top = 152 + Top = 144 Width = 257 - Height = 57 + Height = 49 Caption = 'Alarm' TabOrder = 1 object CheckBox1: TCheckBox - Left = 16 - Top = 24 + Left = 8 + Top = 16 Width = 105 Height = 17 Caption = 'Enabled in phone' + Ctl3D = False + ParentCtl3D = False TabOrder = 0 end object DateTimePicker1: TDateTimePicker - Left = 128 - Top = 24 + Left = 120 + Top = 16 Width = 65 Height = 25 CalAlignment = dtaLeft @@ -399,6 +412,60 @@ object MainForm: TMainForm TabOrder = 1 end end + object GroupBox26: TGroupBox + Left = 272 + Top = 16 + Width = 265 + Height = 177 + Caption = 'Settings' + TabOrder = 4 + Visible = False + object Label46: TLabel + Left = 8 + Top = 24 + Width = 63 + Height = 13 + Caption = 'LCD Contrast' + end + object CheckBox3: TCheckBox + Left = 8 + Top = 48 + Width = 193 + Height = 17 + Caption = 'Alternative Line Service' + TabOrder = 0 + end + object TrackBar1: TTrackBar + Left = 88 + Top = 16 + Width = 169 + Height = 25 + Orientation = trHorizontal + Frequency = 1 + Position = 0 + SelEnd = 0 + SelStart = 0 + TabOrder = 1 + TickMarks = tmBottomRight + TickStyle = tsAuto + end + object CheckBox4: TCheckBox + Left = 8 + Top = 64 + Width = 201 + Height = 17 + Caption = 'Additional games' + TabOrder = 2 + end + object CheckBox5: TCheckBox + Left = 8 + Top = 80 + Width = 217 + Height = 17 + Caption = 'Vibra menu' + TabOrder = 3 + end + end end end object LogosTabSheet: TTabSheet @@ -408,8 +475,8 @@ object MainForm: TMainForm object GroupBox4: TGroupBox Left = 0 Top = 0 - Width = 512 - Height = 329 + Width = 542 + Height = 337 Align = alClient Caption = 'logos' TabOrder = 0 @@ -425,7 +492,7 @@ object MainForm: TMainForm Left = 2 Top = 15 Width = 143 - Height = 312 + Height = 320 Align = alLeft Transparent = True OnMouseDown = Image1MouseDown @@ -2341,28 +2408,28 @@ object MainForm: TMainForm object GroupBox5: TGroupBox Left = 0 Top = 0 - Width = 512 + Width = 502 Height = 329 Align = alClient Caption = 'Ringtones' TabOrder = 0 object GroupBox15: TGroupBox Left = 8 - Top = 16 + Top = 24 Width = 393 - Height = 177 + Height = 81 Caption = 'RTTL format' TabOrder = 0 object Label11: TLabel Left = 8 - Top = 24 + Top = 16 Width = 31 Height = 13 Caption = 'Name:' end object Button1: TButton - Left = 288 - Top = 16 + Left = 184 + Top = 48 Width = 97 Height = 25 Caption = 'Read from file' @@ -2379,8 +2446,8 @@ object MainForm: TMainForm OnClick = Button2Click end object Button3: TButton - Left = 288 - Top = 80 + Left = 184 + Top = 16 Width = 49 Height = 25 Caption = 'Play' @@ -2389,15 +2456,15 @@ object MainForm: TMainForm end object Edit1: TEdit Left = 48 - Top = 24 - Width = 73 + Top = 16 + Width = 113 Height = 21 TabOrder = 3 OnChange = Edit1Change end object Button16: TButton - Left = 344 - Top = 80 + Left = 240 + Top = 16 Width = 41 Height = 25 Caption = 'Stop' @@ -2406,7 +2473,7 @@ object MainForm: TMainForm end object Button17: TButton Left = 288 - Top = 144 + Top = 16 Width = 97 Height = 25 Caption = 'SMS (Send/Save)' @@ -2416,20 +2483,20 @@ object MainForm: TMainForm end object GroupBox16: TGroupBox Left = 8 - Top = 200 + Top = 112 Width = 393 - Height = 105 + Height = 49 Caption = 'Binary format' TabOrder = 1 object Label15: TLabel Left = 8 - Top = 24 + Top = 16 Width = 31 Height = 13 Caption = 'Name:' end object Button13: TButton - Left = 288 + Left = 184 Top = 16 Width = 97 Height = 25 @@ -2439,7 +2506,7 @@ object MainForm: TMainForm end object Button14: TButton Left = 288 - Top = 48 + Top = 16 Width = 97 Height = 25 Caption = 'Set in phone' @@ -2448,13 +2515,22 @@ object MainForm: TMainForm end object Edit2: TEdit Left = 48 - Top = 24 - Width = 73 + Top = 16 + Width = 113 Height = 21 ReadOnly = True TabOrder = 2 end end + object Button22: TButton + Left = 296 + Top = 176 + Width = 97 + Height = 25 + Caption = 'Get from phone' + TabOrder = 2 + OnClick = Button22Click + end end end object SMSTabSheet: TTabSheet @@ -2465,15 +2541,15 @@ object MainForm: TMainForm object GroupBox6: TGroupBox Left = 0 Top = 0 - Width = 512 - Height = 329 + Width = 542 + Height = 337 Align = alClient Caption = 'SMS' TabOrder = 0 object Panel2: TPanel Left = 2 Top = 15 - Width = 508 + Width = 538 Height = 26 Align = alTop BevelOuter = bvNone @@ -2490,7 +2566,7 @@ object MainForm: TMainForm Top = 0 Width = 233 Height = 21 - ItemHeight = 0 + ItemHeight = 13 TabOrder = 0 Text = 'None' OnChange = ComboBox3Change @@ -2499,8 +2575,8 @@ object MainForm: TMainForm object Panel3: TPanel Left = 2 Top = 41 - Width = 508 - Height = 286 + Width = 538 + Height = 294 Align = alClient BevelOuter = bvNone Caption = 'Panel3' @@ -2508,7 +2584,7 @@ object MainForm: TMainForm object Splitter2: TSplitter Left = 0 Top = 96 - Width = 508 + Width = 538 Height = 5 Cursor = crVSplit Align = alTop @@ -2516,7 +2592,7 @@ object MainForm: TMainForm object ListView2: TListView Left = 0 Top = 0 - Width = 508 + Width = 538 Height = 96 Align = alTop Columns = < @@ -2539,6 +2615,7 @@ object MainForm: TMainForm Caption = 'Time' Width = 80 end> + ColumnClick = False GridLines = True ReadOnly = True RowSelect = True @@ -2550,7 +2627,7 @@ object MainForm: TMainForm object Memo1: TMemo Left = 0 Top = 101 - Width = 508 + Width = 538 Height = 52 Align = alTop BevelInner = bvNone @@ -2563,8 +2640,8 @@ object MainForm: TMainForm object Memo2: TMemo Left = 0 Top = 153 - Width = 508 - Height = 133 + Width = 538 + Height = 141 Align = alClient Lines.Strings = ( '' @@ -2583,15 +2660,15 @@ object MainForm: TMainForm object GroupBox7: TGroupBox Left = 0 Top = 0 - Width = 512 - Height = 329 + Width = 542 + Height = 337 Align = alClient Caption = 'Speed dials' TabOrder = 0 object ListView3: TListView Left = 2 Top = 15 - Width = 508 + Width = 538 Height = 162 Align = alTop Columns = < @@ -2606,7 +2683,9 @@ object MainForm: TMainForm Caption = 'Number' Width = 150 end> + ColumnClick = False GridLines = True + ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport @@ -2621,8 +2700,8 @@ object MainForm: TMainForm object GroupBox8: TGroupBox Left = 0 Top = 0 - Width = 512 - Height = 329 + Width = 542 + Height = 337 Align = alClient Caption = 'Calendar' Ctl3D = True @@ -2631,8 +2710,8 @@ object MainForm: TMainForm object ListView4: TListView Left = 2 Top = 15 - Width = 508 - Height = 312 + Width = 538 + Height = 320 Align = alClient Columns = < item @@ -2659,12 +2738,14 @@ object MainForm: TMainForm Caption = 'Alarm' Width = 130 end> + ColumnClick = False GridLines = True ReadOnly = True RowSelect = True PopupMenu = CalendarPopupMenu TabOrder = 0 ViewStyle = vsReport + OnDblClick = ListView4DblClick OnSelectItem = ListView4SelectItem end end @@ -2677,16 +2758,16 @@ object MainForm: TMainForm object GroupBox9: TGroupBox Left = 0 Top = 0 - Width = 512 - Height = 329 + Width = 542 + Height = 337 Align = alClient Caption = 'SMS Center' TabOrder = 0 object ListView6: TListView Left = 2 Top = 15 - Width = 508 - Height = 312 + Width = 538 + Height = 320 Align = alClient Columns = < item @@ -2712,7 +2793,9 @@ object MainForm: TMainForm Caption = 'Default recipient' Width = 100 end> + ColumnClick = False GridLines = True + ReadOnly = True RowSelect = True PopupMenu = SMSCPopupMenu TabOrder = 0 @@ -2729,16 +2812,16 @@ object MainForm: TMainForm object GroupBox10: TGroupBox Left = 0 Top = 0 - Width = 512 - Height = 329 + Width = 542 + Height = 337 Align = alClient Caption = 'Caller groups' TabOrder = 0 object ListView5: TListView Left = 2 Top = 15 - Width = 508 - Height = 312 + Width = 538 + Height = 320 Align = alClient Columns = < item @@ -2756,7 +2839,9 @@ object MainForm: TMainForm Caption = 'Logo' Width = 120 end> + ColumnClick = False GridLines = True + ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport @@ -2771,16 +2856,16 @@ object MainForm: TMainForm object GroupBox13: TGroupBox Left = 0 Top = 0 - Width = 512 - Height = 329 + Width = 542 + Height = 337 Align = alClient Caption = 'Profiles' TabOrder = 0 object ListView7: TListView Left = 2 Top = 15 - Width = 508 - Height = 312 + Width = 538 + Height = 320 Align = alClient Columns = < item @@ -2823,7 +2908,10 @@ object MainForm: TMainForm Caption = 'Alert for' Width = 70 end> + ColumnClick = False GridLines = True + ReadOnly = True + RowSelect = True TabOrder = 0 ViewStyle = vsReport end @@ -2837,16 +2925,16 @@ object MainForm: TMainForm object GroupBox17: TGroupBox Left = 0 Top = 0 - Width = 512 - Height = 329 + Width = 542 + Height = 337 Align = alClient Caption = 'WAP bookmarks' TabOrder = 0 object ListView9: TListView Left = 2 Top = 15 - Width = 508 - Height = 312 + Width = 538 + Height = 320 Align = alClient Columns = < item @@ -2860,10 +2948,14 @@ object MainForm: TMainForm Caption = 'URL' Width = 200 end> + ColumnClick = False GridLines = True + ReadOnly = True RowSelect = True + PopupMenu = WAPBookPopupMenu TabOrder = 0 ViewStyle = vsReport + OnSelectItem = ListView9SelectItem end end end @@ -2875,8 +2967,8 @@ object MainForm: TMainForm object GroupBox18: TGroupBox Left = 0 Top = 0 - Width = 512 - Height = 329 + Width = 542 + Height = 337 Align = alClient Caption = 'Configuration' TabOrder = 0 @@ -2948,18 +3040,20 @@ object MainForm: TMainForm Width = 193 Height = 21 ItemHeight = 13 - ItemIndex = 0 TabOrder = 3 Text = 'auto' Items.Strings = ( 'auto' + 'modelauto' '3210' '3310' '5110' '5130' + '5190' '6110' '6130' '6150' + '6190' '6210' '6250' '7110' @@ -2975,8 +3069,8 @@ object MainForm: TMainForm object GroupBox19: TGroupBox Left = 0 Top = 0 - Width = 512 - Height = 329 + Width = 542 + Height = 337 Align = alClient Caption = 'WAP Settings' TabOrder = 0 @@ -3284,6 +3378,15 @@ object MainForm: TMainForm 'IP address' 'service number') end + object Button23: TButton + Left = 360 + Top = 16 + Width = 105 + Height = 25 + Caption = 'SMS (Send/Save)' + TabOrder = 17 + OnClick = Button23Click + end end end object DivertTabSheet: TTabSheet @@ -3292,8 +3395,8 @@ object MainForm: TMainForm object GroupBox20: TGroupBox Left = 0 Top = 0 - Width = 512 - Height = 329 + Width = 542 + Height = 337 Align = alClient Caption = 'Call diverts' TabOrder = 0 @@ -3421,8 +3524,8 @@ object MainForm: TMainForm object GroupBox21: TGroupBox Left = 0 Top = 0 - Width = 512 - Height = 329 + Width = 542 + Height = 337 Align = alClient Caption = 'About' TabOrder = 0 @@ -3443,7 +3546,7 @@ object MainForm: TMainForm object Memo3: TMemo Left = 2 Top = 15 - Width = 508 + Width = 538 Height = 282 Align = alTop Lines.Strings = ( @@ -3453,9 +3556,9 @@ object MainForm: TMainForm 'available in various cellular phones.' 'In this moment you shouldn'#39't have big problems with using' - 'Nokia 3210, 33xx, 5110, 5130, 6110, 6130, 6150, 6210, 6250, 7110' + - ', 8210, 8850, 9110' - 'with this software.' + 'Nokia 3210, 33xx, 5110, 5130, 5190, 6110, 6130, 6150, 6190, 6210' + + ', 6250, 7110,' + '8210, 8850, 9110 with this software.' 'There are supported MBUS, FBUS, DLR3 cables and direct infrared' '(for 61xx from main menu, in 8210/8850 from 2 players snake menu' + @@ -3491,12 +3594,15 @@ object MainForm: TMainForm '3.6210 compatibility' '4.config sheet available' '' + 'Version 0.3:' + '1.almost everything provided' + '2.everything important can be edited' + '' 'TODO:' '1.better error handling' '2.support for new models' '3.extending support to new models in gnokiiapi.dll' - '4.synchronization tools with Outlook, etc.' - '5.allow editing everything') + '4.synchronization tools with Outlook, etc.') ReadOnly = True ScrollBars = ssVertical TabOrder = 0 @@ -3510,15 +3616,15 @@ object MainForm: TMainForm object GroupBox22: TGroupBox Left = 0 Top = 0 - Width = 512 - Height = 329 + Width = 542 + Height = 337 Align = alClient Caption = 'SMS Offline' TabOrder = 0 object Splitter3: TSplitter Left = 2 Top = 160 - Width = 508 + Width = 538 Height = 2 Cursor = crVSplit Align = alTop @@ -3526,7 +3632,7 @@ object MainForm: TMainForm object Panel4: TPanel Left = 2 Top = 15 - Width = 508 + Width = 538 Height = 145 Align = alTop BevelOuter = bvNone @@ -3535,7 +3641,7 @@ object MainForm: TMainForm object ListView10: TListView Left = 0 Top = 0 - Width = 508 + Width = 538 Height = 145 Align = alClient Columns = < @@ -3559,6 +3665,7 @@ object MainForm: TMainForm Caption = 'Time' Width = 100 end> + ColumnClick = False GridLines = True ReadOnly = True RowSelect = True @@ -3571,8 +3678,8 @@ object MainForm: TMainForm object Panel5: TPanel Left = 2 Top = 162 - Width = 508 - Height = 165 + Width = 538 + Height = 173 Align = alClient BevelOuter = bvNone Caption = 'Panel5' @@ -3580,7 +3687,7 @@ object MainForm: TMainForm object Memo4: TMemo Left = 0 Top = 0 - Width = 508 + Width = 498 Height = 49 Align = alTop BevelInner = bvNone @@ -3593,7 +3700,7 @@ object MainForm: TMainForm object Memo5: TMemo Left = 0 Top = 49 - Width = 508 + Width = 498 Height = 116 Align = alClient ReadOnly = True @@ -3609,16 +3716,16 @@ object MainForm: TMainForm object GroupBox23: TGroupBox Left = 0 Top = 0 - Width = 512 - Height = 329 + Width = 542 + Height = 337 Align = alClient Caption = 'Calendar offline' TabOrder = 0 object ListView11: TListView Left = 2 Top = 15 - Width = 508 - Height = 312 + Width = 538 + Height = 320 Align = alClient Columns = < item @@ -3644,6 +3751,7 @@ object MainForm: TMainForm Caption = 'Alarm' Width = 110 end> + ColumnClick = False GridLines = True ReadOnly = True RowSelect = True @@ -3660,7 +3768,7 @@ object MainForm: TMainForm object GroupBox24: TGroupBox Left = 0 Top = 0 - Width = 512 + Width = 502 Height = 329 Align = alClient Caption = 'Offline' @@ -3695,12 +3803,62 @@ object MainForm: TMainForm end end end + object PCPBKTabSheet: TTabSheet + Caption = 'PBKOffline' + ImageIndex = 19 + OnShow = PCPBKTabSheetShow + object GroupBox25: TGroupBox + Left = 0 + Top = 0 + Width = 542 + Height = 337 + Align = alClient + Caption = 'Phonebook offline' + TabOrder = 0 + object ListView12: TListView + Left = 2 + Top = 15 + Width = 538 + Height = 320 + Align = alClient + Columns = < + item + Caption = 'Num' + end + item + Caption = 'Name' + Width = 150 + end + item + Caption = 'Number' + Width = 150 + end> + ColumnClick = False + GridLines = True + ReadOnly = True + RowSelect = True + TabOrder = 0 + ViewStyle = vsReport + end + end + end end object MainMenu1: TMainMenu Left = 72 - Top = 312 + Top = 328 object File1: TMenuItem Caption = 'File' + object Savebackuptofile1: TMenuItem + Caption = 'Save backup to file/another application' + OnClick = Savebackuptofile1Click + end + object Restorebackupfromfile1: TMenuItem + Caption = 'Restore backup from file/another application' + OnClick = Restorebackupfromfile1Click + end + object N6: TMenuItem + Caption = '-' + end object Configuration1: TMenuItem Caption = 'Configuration' OnClick = Configuration1Click @@ -3725,21 +3883,23 @@ object MainForm: TMainForm object Timer1: TTimer Interval = 500 OnTimer = Timer1Timer - Left = 72 - Top = 280 + Left = 136 + Top = 328 end object OpenDialog1: TOpenDialog + Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing] Left = 8 - Top = 312 + Top = 328 end object SaveDialog1: TSaveDialog + Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing] Left = 40 - Top = 312 + Top = 328 end object CalendarPopupMenu: TPopupMenu OnPopup = CalendarPopupMenuPopup - Left = 40 - Top = 280 + Left = 264 + Top = 328 object New1: TMenuItem Caption = 'New' OnClick = New1Click @@ -3766,8 +3926,8 @@ object MainForm: TMainForm end object SMSPopupMenu: TPopupMenu OnPopup = SMSPopupMenuPopup - Left = 8 - Top = 280 + Left = 200 + Top = 328 object New2: TMenuItem Caption = 'New (Send/Save)' OnClick = New2Click @@ -3790,35 +3950,58 @@ object MainForm: TMainForm end object SMSCPopupMenu: TPopupMenu OnPopup = SMSCPopupMenuPopup - Left = 40 - Top = 248 + Left = 232 + Top = 328 object Edit5: TMenuItem Caption = 'Edit' OnClick = Edit5Click end end object PBKPopupMenu: TPopupMenu - Left = 8 - Top = 248 - object Edit7: TMenuItem + OnPopup = PBKPopupMenuPopup + Left = 296 + Top = 328 + object Delete4: TMenuItem + Caption = 'Delete' + OnClick = Delete4Click + end + object Edit19: TMenuItem Caption = 'Edit' + OnClick = Edit19Click + end + object Edit7: TMenuItem + Caption = 'View' OnClick = Edit7Click end + object N10: TMenuItem + Caption = '-' + end object SMSSendSave1: TMenuItem Caption = 'SMS (Send/Save)' OnClick = SMSSendSave1Click end + object N7: TMenuItem + Caption = '-' + end + object CopyphonebooktoPC1: TMenuItem + Caption = 'Copy phonebook to PC' + OnClick = CopyphonebooktoPC1Click + end + object Savephonebooktofileanotherapplication1: TMenuItem + Caption = 'Save phonebook to file/another application' + OnClick = Savephonebooktofileanotherapplication1Click + end end object Timer2: TTimer Interval = 2000 OnTimer = Timer2Timer - Left = 72 - Top = 248 + Left = 104 + Top = 328 end object PCSMSPopupMenu: TPopupMenu OnPopup = PCSMSPopupMenuPopup - Left = 8 - Top = 216 + Left = 328 + Top = 328 object SendSave1: TMenuItem Caption = 'SMS (Send/Save)' OnClick = SendSave1Click @@ -3833,8 +4016,8 @@ object MainForm: TMainForm end object PCCalendarPopupMenu: TPopupMenu OnPopup = PCCalendarPopupMenuPopup - Left = 40 - Top = 216 + Left = 168 + Top = 328 object Copytocalendar1: TMenuItem Caption = 'Copy to phone' OnClick = Copytocalendar1Click @@ -3847,4 +4030,24 @@ object MainForm: TMainForm OnClick = Delete5Click end end + object WAPBookPopupMenu: TPopupMenu + OnPopup = WAPBookPopupMenuPopup + Left = 360 + Top = 328 + object New20: TMenuItem + Caption = 'New' + OnClick = New20Click + end + object Edit20: TMenuItem + Caption = 'Edit' + OnClick = Edit20Click + end + object N8: TMenuItem + Caption = '-' + end + object SMSSendSave2: TMenuItem + Caption = 'SMS (Send/Save)' + OnClick = SMSSendSave2Click + end + end end