X-Git-Url: https://git.jankratochvil.net/?a=blobdiff_plain;f=win32_makefile%2Fgui_delphi%2Fsmsedit.pas;fp=win32_makefile%2Fgui_delphi%2Fsmsedit.pas;h=0000000000000000000000000000000000000000;hb=472b70e710ac48afb0d2831c00d26043b1843047;hp=62a45d8faaada3f3a67b142fde9b1794fd059758;hpb=833e1c7c90e13ceaba3dde8e7a36fcc8dfb1db3c;p=gnokii.git

diff --git a/win32_makefile/gui_delphi/smsedit.pas b/win32_makefile/gui_delphi/smsedit.pas
deleted file mode 100644
index 62a45d8..0000000
--- a/win32_makefile/gui_delphi/smsedit.pas
+++ /dev/null
@@ -1,285 +0,0 @@
-unit SMSEdit;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls,MainUnit,GnokiiAPI, ExtCtrls, ComCtrls;
-
-type
-  TSMSEditForm = class(TForm)
-    GroupBox1: TGroupBox;
-    ComboBox1: TComboBox;
-    Label1: TLabel;
-    Memo1: TMemo;
-    Label2: TLabel;
-    Label3: TLabel;
-    CheckBox1: TCheckBox;
-    Button1: TButton;
-    CheckBox2: TCheckBox;
-    Button3: TButton;
-    Edit1: TEdit;
-    Edit2: TEdit;
-    GroupBox2: TGroupBox;
-    ComboBox2: TComboBox;
-    Label4: TLabel;
-    ComboBox3: TComboBox;
-    Label5: TLabel;
-    Label6: TLabel;
-    ComboBox4: TComboBox;
-    RadioGroup1: TRadioGroup;
-    CheckBox3: TCheckBox;
-    CheckBox4: TCheckBox;
-    ComboBox5: TComboBox;
-    SMSEditPageControl: TPageControl;
-    TextSMSTabSheet: TTabSheet;
-    Label7: TLabel;
-    BitmapSMSTabSheet: TTabSheet;
-    CalendarSMSTabSheet: TTabSheet;
-    RingtoneSMSTabSheet: TTabSheet;
-    Label8: TLabel;
-    ComboBox6: TComboBox;
-    GroupBox3: TGroupBox;
-    Label9: TLabel;
-    ComboBox7: TComboBox;
-    Label10: TLabel;
-    CheckBox5: TCheckBox;
-    ScrollBox1: TScrollBox;
-    Image1: TImage;
-    GroupBox4: TGroupBox;
-    Memo2: TMemo;
-    CheckBox6: TCheckBox;
-    GroupBox5: TGroupBox;
-    PBKSMSTabSheet: TTabSheet;
-    GroupBox6: TGroupBox;
-    Label11: TLabel;
-    Label12: TLabel;
-    Label13: TLabel;
-    ComboBox8: TComboBox;
-    Label14: TLabel;
-    Edit3: TEdit;
-    procedure Button3Click(Sender: TObject);
-    procedure Memo1Change(Sender: TObject);
-    procedure Button1Click(Sender: TObject);
-    procedure RadioGroup1Click(Sender: TObject);
-    procedure FormShow(Sender: TObject);
-    procedure ComboBox2Change(Sender: TObject);
-    procedure ComboBox5Change(Sender: TObject);
-  private
-    { Private declarations }
-  public
-    { Public declarations }
-  end;
-
-var
-  SMSEditForm: TSMSEditForm;
-  maxlength:integer;
-
-implementation
-
-{$R *.dfm}
-
-procedure TSMSEditForm.Button3Click(Sender: TObject);
-begin
-  SMSEditForm.Close;
-end;
-
-procedure TSMSEditForm.Memo1Change(Sender: TObject);
-begin
-  GroupBox1.Caption:='Text ' + inttostr(Memo1.GetTextLen)+'/'+inttostr(maxlength);
-end;
-
-procedure TSMSEditForm.Button1Click(Sender: TObject);
-var
-  i:integer;
-  z:integer;
-  w:word;
-  unicode,screensaver:integer;
-  smstext:array[1..500] of char;
-begin
-  if (SMSEditPageControl.ActivePage=TextSMSTabSheet) then
-  begin
-    z:=GSM_Coding_Default;
-    case combobox5.ItemIndex of
-      0: z:=GSM_Coding_Default;
-      1: z:=GSM_Coding_Unicode;
-    end;
-
-    for i:=1 to 500 do
-      smstext[i]:=chr(0);
-    w:=strlen(pchar(SMSEditForm.Memo1.Text));
-    for i:=1 to w do
-      smstext[i]:=SMSEditForm.Memo1.Text[i];
-
-    GSM_MakeMultiPartSMS2(@setsms,@smstext,w,GSM_NoUDH,z);
-
-    for i:=1 to setsms.number do
-    begin
-      if CheckBox1.Checked then
-        setsms.sms[i].Class2 := 0
-      else
-       setsms.sms[i].Class2 := -1;
-    end;
-
-    setsms.sms[1].location:=setsmslocation;
-  end;
-  if (SMSEditPageControl.ActivePage=BitmapSMSTabSheet) then
-  begin
-    unicode:=0;
-    screensaver:=0;
-    if bitma.type2=GSM_PictureImage then
-    begin
-      for i:=1 to 256 do
-        bitma.text[i]:=chr(0);
-      for i:=1 to strlen(pchar(Memo2.text)) do
-        bitma.text[i]:=Memo2.Text[i];
-    end;
-    GSM_SaveBitmapToSMS(@setsms,@bitma,unicode,screensaver);
-  end;
-  if (SMSEditPageControl.ActivePage=RingtoneSMSTabSheet) then
-  begin
-    GSM_SaveRingtoneToSMS(@setsms,@rington,1);
-  end;
-  if (SMSEditPageControl.ActivePage=CalendarSMSTabSheet) then
-  begin
-    GSM_SaveCalendarNoteToSMS(@setsms,@calenda);
-  end;
-  if (SMSEditPageControl.ActivePage=PBKSMSTabSheet) then
-  begin
-    i:=10;
-    case ComboBox8.ItemIndex of
-      0:i:=10;
-      1:i:=21;
-    end;
-    GSM_SavePhonebookEntryToSMS(@setsms,@pbk,i);
-  end;
-
-  for z:=1 to setsms.number do
-  begin
-    for i:=1 to 40 do
-      setsms.sms[z].MessageCenter.number[i]:=chr(0);
-    for i:=1 to strlen(pchar(Edit1.text)) do
-      setsms.sms[z].MessageCenter.number[i]:=Edit1.Text[i];
-    setsms.sms[z].MessageCenter.No := ComboBox2.ItemIndex;
-    setsms.sms[z].Validity := 4320;  //do it
-
-    for i:=1 to 41 do
-      setsms.sms[z].destination[i]:=chr(0);
-    for i:=1 to strlen(pchar(Edit2.text)) do
-      setsms.sms[z].destination[i]:=Edit2.Text[i];
-
-    setsms.sms[z].folder:=combobox1.ItemIndex;
-
-    setsms.sms[z].Type2 := GST_SMS;
-    //delivery report
-    if CheckBox2.Checked then
-    begin
-      if RadioGroup1.ItemIndex=1 then setsms.sms[z].Type2:= GST_DR;
-    end;
-
-    for i:=1 to 26 do
-      setsms.sms[z].name[i]:=chr(0);
-    for i:=1 to strlen(pchar(SMSEditForm.edit3.Text)) do
-      setsms.sms[z].name[i]:=SMSEditForm.edit3.Text[i];
-
-    //read/unread
-    if Checkbox4.Checked then
-      setsms.sms[z].status:=GSS_SENTREAD
-    else
-      setsms.sms[z].status:=GSS_NOTSENTREAD;
-
-    if CheckBox3.Checked then
-      setsms.sms[z].ReplyViaSameSMSC := 1
-    else
-      setsms.sms[z].ReplyViaSameSMSC := 0;
-  end;
-
-  if Application.MessageBox(pchar('Do you want to save/send '+inttostr(setsms.number)+' sms ?'),'question',MB_YESNO)=IDYES then
-  begin
-    if (RadioGroup1.itemindex=0) then
-    begin
-      for z:=1 to setsms.number do
-      begin
-        GSM_SaveSMSMessage(@setsms.sms[z]);
-      end;
-    end else
-    begin
-      for z:=1 to setsms.number do
-      begin
-        GSM_SendSMSMessage(@setsms.sms[z]);
-      end;
-    end;
-  end;
-
-  MainForm.SMSTabSheetShow(nil);
-
-  SMSEditForm.Close;
-end;
-
-procedure TSMSEditForm.RadioGroup1Click(Sender: TObject);
-begin
-  case RadioGroup1.ItemIndex of
-    0:begin
-        ComboBox1.Enabled:=true;
-        CheckBox2.Enabled:=false;
-        CheckBox4.Enabled:=true;
-        ComboBox3.Enabled:=false;
-        ComboBox4.Enabled:=false;
-        Label14.Enabled:=true;
-        edit3.Enabled:=true;
-      end;
-    1:begin
-        ComboBox1.Enabled:=false;
-        CheckBox2.Enabled:=true;
-        CheckBox4.Enabled:=false;
-        Label14.Enabled:=false;
-        edit3.Enabled:=false;
-        if ComboBox2.ItemIndex<>0 then
-        begin
-          ComboBox3.Enabled:=false;
-          ComboBox4.Enabled:=false;
-        end else
-        begin
-          ComboBox3.Enabled:=true;
-          ComboBox4.Enabled:=true;
-        end;
-      end;
-  end;
-  if ComboBox2.ItemIndex<>0 then
-  begin
-    Edit1.Enabled:=false;
-  end else
-  begin
-    Edit1.Enabled:=true;
-  end;
-end;
-
-procedure TSMSEditForm.FormShow(Sender: TObject);
-begin
-  RadioGroup1Click(nil);
-  ComboBox5Change(nil);
-//  ScrollBox1.VertScrollBar.Visible:=true;
-  ScrollBox1.VertScrollBar.Position:=80;
-//  ScrollBox1.VertScrollBar.Visible:=false;
-end;
-
-procedure TSMSEditForm.ComboBox2Change(Sender: TObject);
-begin
-  if ComboBox2.ItemIndex<>0 then
-  begin
-    SetSMSC(ComboBox2.ItemIndex);
-  end;
-  RadioGroup1Click(nil);
-end;
-
-procedure TSMSEditForm.ComboBox5Change(Sender: TObject);
-begin
-  case ComboBox5.ItemIndex of
-    0:maxlength:=160;
-    1:maxlength:=70;
-  end;
-  Memo1.MaxLength:=maxlength;
-  Memo1Change(nil);
-end;
-
-end.