ychatu10.pas

来自「Yahoo Messenger for Mobile」· PAS 代码 · 共 528 行

unit YchatU10;

interface

uses
  Windows, Messages, SysUtils,  Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, ExtCtrls, ComCtrls, 
  DynamicSkinForm, SkinCtrls, spColorCtrls;

type
  TForm10 = class(TForm)
    GroupBox1: TGroupBox;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    TabSheet2: TTabSheet;
    Label8: TLabel;
    Label7: TLabel;
    GroupBox5: TGroupBox;
    Label9: TLabel;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    SpinEdit4: TSpinEdit;
    TabSheet3: TTabSheet;
    GroupBox3: TGroupBox;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton13: TRadioButton;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    SpinEdit2: TSpinEdit;
    Label4: TLabel;
    Label1: TLabel;
    Label19: TLabel;
    SpinEdit1: TSpinEdit;
    CheckBox7: TCheckBox;
    Label20: TLabel;
    TabSheet4: TTabSheet;
    CheckBox5: TCheckBox;
    Label5: TLabel;
    Label21: TLabel;
    CheckBox13: TCheckBox;
    GroupBox6: TGroupBox;
    TabSheet5: TTabSheet;
    CheckBox2: TCheckBox;
    SpinEdit5: TSpinEdit;
    Label10: TLabel;
    Label17: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    TabSheet6: TTabSheet;
    Edit2: TEdit;
    Label11: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label14: TLabel;
    CheckBox11: TCheckBox;
    Edit5: TEdit;
    Label16: TLabel;
    SpinEdit7: TSpinEdit;
    TabSheet7: TTabSheet;
    GroupBox4: TGroupBox;
    CheckBox3: TCheckBox;
    Label12: TLabel;
    Edit3: TEdit;
    Label13: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    CheckBox8: TCheckBox;
    SpinEdit8: TSpinEdit;
    Label18: TLabel;
    CheckBox9: TCheckBox;
    Edit6: TEdit;
    CheckBox15: TCheckBox;
    CheckBox1: TCheckBox;
    Button3: TButton;
    Button2: TButton;
    Edit7: TEdit;
    Label35: TLabel;
    TabSheet8: TTabSheet;
    Label36: TLabel;
    Edit8: TEdit;
    CheckBox16: TCheckBox;
    CheckBox17: TCheckBox;
    Label38: TLabel;
    CheckBox25: TCheckBox;
    Label39: TLabel;
    SpinEdit12: TSpinEdit;
    Label40: TLabel;
    SpinEdit13: TSpinEdit;
    Label41: TLabel;
    Edit11: TEdit;
    Label37: TLabel;
    CheckBox24: TCheckBox;
    CheckBox26: TCheckBox;
    CheckBox27: TCheckBox;
    Label42: TLabel;
    SpinEdit14: TSpinEdit;
    Label43: TLabel;
    ColorBox1: TspSkinColorButton;
    ColorBox2: TspSkinColorButton;
    ColorBox4: TspSkinColorButton;
    ColorBox3: TspSkinColorButton;
    Edit12: TEdit;
    Label45: TLabel;
    CheckBox29: TCheckBox;
    CheckBox30: TCheckBox;
    CheckBox31: TCheckBox;
    SpinEdit10: TSpinEdit;
    Button4: TButton;
    Edit13: TEdit;
    CheckBox32: TCheckBox;
    GroupBox9: TGroupBox;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    ColorPickCombo4: TspSkinColorButton;
    ColorPickCombo3: TspSkinColorButton;
    ColorPickCombo2: TspSkinColorButton;
    ColorPickCombo1: TspSkinColorButton;
    Label48: TLabel;
    ColorPickCombo5: TspSkinColorButton;
    Label53: TLabel;
    ColorPickCombo6: TspSkinColorButton;
    Label54: TLabel;
    ColorPickCombo7: TspSkinColorButton;
    CheckBox33: TCheckBox;
    CheckBox34: TCheckBox;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    CheckBox35: TCheckBox;
    CheckBox40: TCheckBox;
    ColorPickCombo11: TspSkinColorButton;
    Button12: TButton;
    Button13: TButton;
    CheckBox41: TCheckBox;
    Button14: TButton;
    Button15: TButton;
    CheckBox42: TCheckBox;
    CheckBox43: TCheckBox;
    CheckBox10: TCheckBox;
    SpinEdit6: TSpinEdit;
    Label15: TLabel;
    CheckBox14: TCheckBox;
    CheckBox46: TCheckBox;
    CheckBox47: TCheckBox;
    Label23: TLabel;
    Label24: TLabel;
    Label33: TLabel;
    RadioButton6: TRadioButton;
    Label58: TLabel;
    CheckBox23: TCheckBox;
    CheckBox28: TCheckBox;
    CheckBox48: TCheckBox;
    CheckBox49: TCheckBox;
    CheckBox50: TCheckBox;
    Label60: TLabel;
    CheckBox20: TCheckBox;
    CheckBox18: TCheckBox;
    aa1BotFilter: TCheckBox;
    CheckBox12: TCheckBox;
    ColorPickCombo9: TspSkinColorButton;
    ColorPickCombo10: TspSkinColorButton;
    Label6: TLabel;
    CheckBox19: TCheckBox;
    CheckBox21: TCheckBox;
    CheckBox22: TCheckBox;
    CheckBox44: TCheckBox;
    CheckBox36: TCheckBox;
    CheckBox37: TCheckBox;
    HiddenTextBot: TCheckBox;
    CheckBox6: TCheckBox;
    SpinEdit3: TSpinEdit;
    Label22: TLabel;
    GotoBox: TCheckBox;
    Advanced: TCheckBox;
    GroupBox7: TGroupBox;
    Edit9: TEdit;
    Label34: TLabel;
    Label44: TLabel;
    Edit10: TEdit;
    ColorPickCombo12: TspSkinColorButton;
    CheckBox4: TCheckBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure CheckBox16Click(Sender: TObject);
    procedure CheckBox17Click(Sender: TObject);
    procedure SpinEdit13Change(Sender: TObject);
    procedure SpinEdit10Change(Sender: TObject);
    procedure CheckBox31Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure CheckBox32Click(Sender: TObject);
    procedure ColorPickCombo5Changed(Sender: TObject);
    procedure ColorPickCombo8Changed(Sender: TObject);
    procedure ColorPickCombo6Changed(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure ColorPickCombo13Changed(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure RadioButton13Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton8Click(Sender: TObject);
    procedure CheckBox49Click(Sender: TObject);
    procedure CheckBox19Click(Sender: TObject);
    procedure ColorPickCombo5ChangeColor(Sender: TObject);
    procedure ColorPickCombo6ChangeColor(Sender: TObject);
    procedure ColorPickCombo7ChangeColor(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;

implementation

uses YchatU1, ychatu17, YchatU2, YchatU22;


{$R *.dfm}

procedure TForm10.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// Form1.SaveLayOut;
end;

procedure TForm10.Edit1Change(Sender: TObject);
begin
 MaxLines:=StrToInt(Edit1.Text);
end;

procedure TForm10.Button1Click(Sender: TObject);
Var
  Proxy: TMyProxySettings;
begin
  Proxy:=Form1.GetProxySettings;
  If Proxy.Port<>0 Then
    Form10.Edit4.Text;
  If Proxy.Server<>'' Then
    Form10.Edit3.Text;
  If Proxy.Enabled=True Then
    Form10.CheckBox3.Checked;
end;

procedure TForm10.Button2Click(Sender: TObject);
begin
CheckBox8.Checked:=True;
SpinEdit8.Value:=3;
RadioButton13.Enabled:=True;
RadioButton10.Enabled:=True;
CheckBox1.Checked:=True;
CheckBox2.Checked:=True;
CheckBox3.Checked:=False;
SpinEdit7.Value:=4;
Edit3.Text:='127.0.0.1';
Edit4.Text:='80';
//CheckBox6.Checked:=True;
Edit2.Text:='c:\mp3';
//SpinEdit3.Value:=80;
SpinEdit2.Value:=80;
SpinEdit5.Value:=4;
SpinEdit1.Value:=3;
SpinEdit4.Value:=10;
//SpinEdit6.Value:=20;
//CheckBox4.Checked:=True;
CheckBox7.Checked:=True;
ColorBox1.ColorValue:=ClRed;
ColorBox2.ColorValue:=ClGreen;
ColorBox3.ColorValue:=ClTeal;
end;

procedure TForm10.Button3Click(Sender: TObject);
 begin
 RadioButton13.Checked:=True;
 SpinEdit1.Value:=5;
 CheckBox7.Checked:=True;
// CheckBox4.Checked:=True;
 CheckBox8.Checked:=True;
 CheckBox12.Checked:=True;
 CheckBox27.Checked:=True;
// CheckBox28.Checked:=True;
 SpinEdit14.Value:=60;
// CheckBox18.Checked:=False;
// CheckBox21.Checked:=False;
// CheckBox19.Checked:=False;
// CheckBox20.Checked:=False;
// CheckBox22.Checked:=False;
 FilterLevel:=4;
 RadioButton13.Checked:=True;
// SpinEdit3.Value:=80;
 Form1.AutoRejectAddBuddy1.Checked:=True;
 Form1.AutoRejectViewCamMessages1.Checked:=True;
 Form1.RoomEnterLeaveMessages1.Checked:=False;
 Form1.Richedit1.Lines.Add('Filters have been upgraded for any PM Strikes / Booter Strikes.');
 Form10.Close;
end;

procedure TForm10.CheckBox16Click(Sender: TObject);
begin
//  AcceptPmsFromFriendsOnly
end;

procedure TForm10.CheckBox17Click(Sender: TObject);
begin
Form1.Richedit1.SelAttributes.Color:=ClBlack;
 If Form10.CheckBox17.Checked=True Then
  Begin
   Form1.Richedit1.Lines.Add('PM''s now Enabled!');
   Form1.ScrollToEnd(Form1.Richedit1);
  End
    else
  Begin
   Form1.Richedit1.Lines.Add('PM''s now Disabled!');
   Form1.ScrollToEnd(Form1.Richedit1);
  End;
end;

procedure TForm10.SpinEdit13Change(Sender: TObject);
begin
 If CheckBox31.Checked Then
   Form1.SpDynamicSkinForm1.AlphaBlendValue:=Form10.SpinEdit13.Value;
//   Form1.SetTransparentForm(Form1.Handle,SpinEdit13.Value);
end;

procedure TForm10.SpinEdit10Change(Sender: TObject);
begin
 Form1.ListBox1.Font.Size:=SpinEdit10.Value;
end;

procedure TForm10.CheckBox31Click(Sender: TObject);
begin
 IF CheckBox31.Checked=True Then
  Form1.SpDynamicSkinForm1.AlphaBlend:=True
     else
   Begin
    If Form17<>Nil Then
      Form17.Visible:=False;
    Form1.SpDynamicSkinForm1.AlphaBlend:=False;
   End;
end;

procedure TForm10.Button4Click(Sender: TObject);
begin
 Form1.OpenPictureDialog1.Execute;
 Edit13.Text:=Form1.OpenPictureDialog1.FileName;
end;

procedure TForm10.CheckBox32Click(Sender: TObject);
begin
 If CheckBox31.Checked Then
  Begin
    If CheckBox32.Checked=True Then
      Form1.DisplayAlphaImage(Edit13.Text)
       else
      Begin
       Form1.SpDynamicSkinForm1.AlphaBlend:=False;
       Form17.Visible:=False;
      End;
  End;
End;

procedure TForm10.ColorPickCombo5Changed(Sender: TObject);
begin
// ColSelect.ListBox1Col:=ColorPickCombo5.ColorValue;
 Form1.ListBox1.Color:=ColorPickCombo5.ColorValue;
// Form1.SetColors;
end;

procedure TForm10.ColorPickCombo8Changed(Sender: TObject);
begin
// Form1.Panel10.Color:=ColorPickCombo8.ColorValue;
end;

procedure TForm10.ColorPickCombo6Changed(Sender: TObject);
begin
 Form1.Richedit2.Color:=ColorPickCombo6.ColorValue;
end;

procedure TForm10.Button6Click(Sender: TObject);
begin
 Form1.spSkinControlBar1.Align:=AlTop;
end;

procedure TForm10.Button7Click(Sender: TObject);
begin
 Form1.spSkinControlBar1.Align:=AlBottom;
end;

procedure TForm10.Button8Click(Sender: TObject);
begin
 Form1.spSkinControlBar2.Align:=AlTop;
end;

procedure TForm10.Button9Click(Sender: TObject);
begin
 Form1.spSkinControlBar2.Align:=AlBottom;
end;

procedure TForm10.Button5Click(Sender: TObject);
begin
 Form1.Mp3Control.BuildMp3FileDb;
end;

procedure TForm10.Button10Click(Sender: TObject);
begin
 Form1.SpSkinScrollPAnel1.Align:=AlLeft;
// Form1.Splitter1.Align:=AlLeft;
end;

procedure TForm10.Button11Click(Sender: TObject);
begin
 Form1.SpSkinScrollPAnel1.Align:=AlRight;
// Form1.Splitter1.Align:=AlRight;
end;

procedure TForm10.Button12Click(Sender: TObject);
begin
 Form1.SpSkinPanel2.Align:=AlBottom;
end;

procedure TForm10.Button13Click(Sender: TObject);
begin
 Form1.SpSkinPanel2.Align:=AlTop;
end;

procedure TForm10.ColorPickCombo13Changed(Sender: TObject);
begin
// Form1.Panel10.Font.Color:=ColorPickCombo13.ColorValue;
end;

procedure TForm10.Button14Click(Sender: TObject);
begin
 Form1.Panel3.Align:=AlBottom;
end;

procedure TForm10.Button15Click(Sender: TObject);
begin
 Form1.Panel3.Align:=AlTop;
end;

procedure TForm10.RadioButton13Click(Sender: TObject);
begin
 FilterLevel:=4;
end;

procedure TForm10.RadioButton3Click(Sender: TObject);
begin
 FilterLevel:=3;
end;

procedure TForm10.RadioButton4Click(Sender: TObject);
begin
 FilterLevel:=2;
end;

procedure TForm10.RadioButton5Click(Sender: TObject);
begin
 FilterLevel:=1;
end;

procedure TForm10.RadioButton8Click(Sender: TObject);
begin
 FilterLevel:=0;
end;

procedure TForm10.CheckBox49Click(Sender: TObject);
begin
 Form1.SpTrayIcon1.IconVisible:=CheckBox49.Checked;
end;

procedure TForm10.CheckBox19Click(Sender: TObject);
begin
 Form1.ListBox1.Repaint;
end;

procedure TForm10.ColorPickCombo5ChangeColor(Sender: TObject);
begin
Form1.ListBox1.Color:=ColorPickCombo5.ColorValue;
end;

procedure TForm10.ColorPickCombo6ChangeColor(Sender: TObject);
begin
 Form1.Richedit2.Color:=ColorPickCombo6.ColorValue;
end;

procedure TForm10.ColorPickCombo7ChangeColor(Sender: TObject);
begin
 Form1.Richedit1.Color:=ColorPickCombo7.ColorValue;
end;

procedure TForm10.CheckBox4Click(Sender: TObject);
begin
If Form10.CheckBox4.Checked=true Then
   Form1.Richedit2.MaxLength:=0;
end;

end.