win32_makefile/gui_delphi/wapbook.pas

   1 unit wapbook;\r
   2 \r
   3 interface\r
   4 \r
   5 uses\r
   6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r
   7   Dialogs, StdCtrls, GnokiiAPI;\r
   8 \r
   9 type\r
  10   TWAPBookForm = class(TForm)\r
  11     Button1: TButton;\r
  12     Button2: TButton;\r
  13     Label1: TLabel;\r
  14     Edit1: TEdit;\r
  15     Label2: TLabel;\r
  16     Edit2: TEdit;\r
  17     procedure Button2Click(Sender: TObject);\r
  18     procedure Button1Click(Sender: TObject);\r
  19   private\r
  20     { Private declarations }\r
  21   public\r
  22     { Public declarations }\r
  23   end;\r
  24 \r
  25 var\r
  26   WAPBookForm: TWAPBookForm;\r
  27 \r
  28 implementation\r
  29 \r
  30 uses MainUnit;\r
  31 \r
  32 {$R *.dfm}\r
  33 \r
  34 procedure TWAPBookForm.Button2Click(Sender: TObject);\r
  35 begin\r
  36   WAPBookForm.Close;\r
  37 end;\r
  38 \r
  39 procedure TWAPBookForm.Button1Click(Sender: TObject);\r
  40 var i:integer;\r
  41     book:GSM_WAPBookmark;\r
  42 begin\r
  43   for i:=1 to 256 do book.adress[i]:=chr(0);\r
  44   for i:=1 to 51 do book.title[i]:=chr(0);\r
  45 \r
  46   for i:=1 to strlen(pchar(Edit1.text)) do\r
  47     book.title[i]:=Edit1.Text[i];\r
  48   for i:=1 to strlen(pchar(Edit2.text)) do\r
  49     book.adress[i]:=Edit2.Text[i];\r
  50 \r
  51   book.location:=bookmarknum2;\r
  52   \r
  53   MainForm.Timer2.enabled:=false;\r
  54   GSM_SetWAPBookmark(@book);\r
  55   MainForm.Timer2.enabled:=true;\r
  56 \r
  57   MainForm.WAPBookTabSheetShow(nil);\r
  58 \r
  59   WAPBookForm.Close;\r
  60 end;\r
  61 \r
  62 end.\r