jinjazz@近身剪

半年没传宝宝照了^&^

jinjazz — Mon, 26 Dec 2005 22:01:00 GMT

1.红肚兜

2.眼睫毛

3.菜花贼

4.农民起义了

5.吧吧~唔~

一道智力题-sql解法

jinjazz — Thu, 10 Nov 2005 16:08:00 GMT

题目来自论坛和上次令狐的那道有些不一样

从2到100中选择2个数字
将这2个数的“和”告诉A，又将这2个数的“积”告诉B。
A说：我如果不知道这2个数，B你一定也不知道。
B想了一会说：本来我不知道，现在我知道了。
A过了一会又说：现在我知道了。

请问：这2个数是什么？

我做的答案：

/*--测试结果

积和 a b
----------- ----------- ----------- -----------
52 17 13 4
--*/

解法及注释

create table #t(f int) declare @i int set @i=2 while @i<=100 begin insert into #t select @i set @i=@i+1 end --求积、和，下面要老用这个表 select a.f*b.f as 积,a.f+b.f as 和,a.f as a,b.f as b into #sum from #t a, #t b where a.f>b.f --1.1:导致积唯一的两个数之和 select a+b as 和 into #Step1_1 from #sum where 积 in(--积的数值唯一 select 积 from #sum group by 积 having count(1)=1) --1.2:a拿到的和应该在以下列表中 select distinct 和 into #Step1_2 from #sum where 和 not in (select 和 from #Step1_1) --2.1:b根据#Step1_2信息可以确定唯一，b的积就在下面 select distinct 积 into #Step2_1 from #sum where 和 in (select 和 from #Step1_2) group by 积 having count(1)=1 --3.1 三表关联一下，可以得到同时满足a和b拿到数值得组合 select #sum.* into #Step3_1 from #sum,#Step1_2,#Step2_1 where #sum.和=#Step1_2.和 and #sum.积=#Step2_1.积 --3.2 a知道了，所以a的和在#Step3_1中唯一 select 和 into #Step3_2 from #Step3_1 group by 和 having count(1)=1 --3.3 满足a的和唯一的纪录，在#Step3_1中正好只有一条 select * from #Step3_1 where 和 in (select 和 from #Step3_2) drop table #t drop table #sum drop table #Step1_1 drop table #Step1_2 drop table #Step2_1 drop table #Step3_1 drop table #Step3_2 /*--测试结果积和 a b ----------- ----------- ----------- ----------- 52 17 13 4 --*/

外部程序获取IE页面选择文本

jinjazz — Thu, 01 Sep 2005 13:44:00 GMT

Delphi 版本

uses SHDocVw_TLB; {$R *.dfm} function GetSelectedIEtext: string; var x: Integer; Sw: IShellWindows; IE: HWND; begin IE := FindWindow('IEFrame', nil); sw := CoShellWindows.Create; for x := SW.Count - 1 downto 0 do if (Sw.Item(x) as IWebbrowser2).hwnd = IE then begin Result := variant(Sw.Item(x)).Document.Selection.createRange.Text; break; end; end;

c#版本

//using SHDocVw; 需要添加引用 COM:MicroSoft Internet Control //using mshtml; 需要添加引用 COM:MicroSoft HTML Object Libary //using System.Runtime.InteropServices; // 调用：textBox1.Text=GetSelectedIEtext(); [DllImport("user32", EntryPoint="FindWindow")] public static extern int FindWindowA(string lpClassName, string lpWindowName); /// <summary> /// 获取网页鼠标选择文本内容，只支持IE /// </summary> /// <returns></returns> public static string GetSelectedIEtext() { int ieHwnd=FindWindowA("IEFrame",null); IShellWindows sw=new ShellWindowsClass(); string res=null; for (int i=sw.Count-1;i>=0;i--) { try { SHDocVw.IWebBrowser2 ib=sw.Item(i) as SHDocVw.IWebBrowser2; if(((SHDocVw.IWebBrowser2)sw.Item(i)).HWND==ieHwnd) { mshtml.IHTMLTxtRange txt=((HTMLDocumentClass)ib.Document).selection.createRange() as IHTMLTxtRange; res=txt.text; break; } } catch { res=null; } } return res; }

研究了一下IAutoComplete2，类似IE的地址栏自动完成的combobox

jinjazz — Thu, 04 Aug 2005 10:45:00 GMT

看了一下IAutoComplete2相关资料，具体说明可以参考以下文章

http://www.vckbase.net/document/viewdoc/?id=595

先用c#尝试了一下，查阅网上资料写了一个类来完成

效果

using System; using System.Runtime.InteropServices; namespace AutoComplete { /// <summary> /// ComboboxHelper 的摘要说明。 /// 调用： /// private void Form1_Load(object sender, System.EventArgs e) /// { /// new SetComboboxAuto(this.comboBox1); /// } /// </summary> /// public class COMEnumString :UCOMIEnumString { public string[] StringList; private int currentPosition = 0; public int Next( int celt, string[] rgelt, out int pceltFetched) { pceltFetched = 0; while ((currentPosition <= StringList.Length-1) && (pceltFetched < celt)) { rgelt[pceltFetched] = StringList[currentPosition]; pceltFetched++; currentPosition++; } if (pceltFetched == celt) return 0; // S_OK; else return 1; // S_FALSE; } public int Skip( int numElementToSkip) { currentPosition += numElementToSkip; if (currentPosition <= StringList.Length - 1) return 0; // S_OK; else return 1; // S_FALSE; } public int Reset() { currentPosition = 0; return 0; } public void Clone( out UCOMIEnumString ppenum) { COMEnumString clone = new COMEnumString(); clone.currentPosition = currentPosition; clone.StringList = (String[])StringList.Clone(); ppenum = clone; } } [ComImport] [InterfaceType(ComInterfaceType.InterfaceIsIUnknown)] [Guid("EAC04BC0-3791-11D2-BB95-0060977B464C")] public interface IAutoComplete2 { Int32 Init( IntPtr hwndEdit, [MarshalAs(UnmanagedType.IUnknown)] Object punkACL, [MarshalAs(UnmanagedType.LPWStr)] string pwszRegKeyPath, [MarshalAs(UnmanagedType.LPWStr)] string pwszQuickComplete); [PreserveSig] Int32 Enable( Int32 fEnable); [PreserveSig] Int32 SetOptions( UInt32 dwFlag); [PreserveSig] Int32 GetOptions( out UInt32 pdwFlag); } [Flags] public enum AutoCompleteOptions { None = 0, //没有自动完成 AutoSuggest = 0x1,//启用自动建议的下拉列表框 AutoAppend = 0x2,//启用自动添加 Search = 0x4,//在完成的串中添加搜索项目，选中此项目启动搜索引擎 FilterPreFixes = 0x8,//不匹配逗号前缀，如“www.”，“http://”等 UseTab = 0x10,//使用Tab键从下拉框清单中选择 UpDownKeyDropsList = 0x20,//使用上下箭头键显示自动建议的下拉框清单 RtlReading = 0x40 //常规窗口从左到右显示文本。Windows 可以被映射显示诸如 Hebrew 或 Arabic 这样从右到左阅读的语言。通常，某个控制的文本与其父窗口文本的阅读/显示方向相同。如果设置ACO_RTLREADING，那么文本阅读方向与其父窗口文本阅读方向相反。 } public class AutoComplete : IDisposable { protected IAutoComplete2 m_iAutoComp; public AutoComplete(IntPtr hwndTextBox, string [] DataList) { COMEnumString sourceList = new COMEnumString(); sourceList.StringList = DataList; Type typeAutoComplete = Type.GetTypeFromCLSID(new Guid("{00BB2763-6A77-11D0-A535-00C04FD7D062}")); m_iAutoComp = (IAutoComplete2)Activator.CreateInstance(typeAutoComplete); AutoCompleteOptions ACOptions = AutoCompleteOptions.AutoSuggest; m_iAutoComp.Init(hwndTextBox, sourceList, "", ""); m_iAutoComp.SetOptions((UInt32)ACOptions); m_iAutoComp.Enable(1); } public void Disable() { AutoCompleteOptions ACOptions = AutoCompleteOptions.None; m_iAutoComp.SetOptions((UInt32)ACOptions); } public void Enable() { AutoCompleteOptions ACOptions = AutoCompleteOptions.AutoSuggest |AutoCompleteOptions.AutoAppend |AutoCompleteOptions.UpDownKeyDropsList |AutoCompleteOptions.FilterPreFixes; m_iAutoComp.SetOptions((UInt32)ACOptions); } public void Dispose() { Marshal.ReleaseComObject(m_iAutoComp); } } public class SetComboboxAuto { [DllImport("user32.dll")] public static extern IntPtr FindWindowEx(IntPtr hwndParent,IntPtr hwndChildAfter,string lpszClass,string lpszWindow); private System.Windows.Forms.ComboBox _combobox=null; private IntPtr hCombobox; public SetComboboxAuto(System.Windows.Forms.ComboBox thisCombo) { this._combobox=thisCombo; this._combobox.DropDownStyle=System.Windows.Forms.ComboBoxStyle.DropDown; this._combobox.Leave+=new System.EventHandler(this.comboboxLeave); hCombobox=FindWindowEx(this._combobox.Handle,new IntPtr(0),"Edit",null); new AutoComplete(hCombobox, this.getListItem(this._combobox)).Enable(); } public string[] getListItem(System.Windows.Forms.ComboBox cbx) { string [] ret=new string[cbx.Items.Count]; for(int i=0;i<cbx.Items.Count;i++) { ret[i]=cbx.Items[i].ToString(); } return ret; } private void comboboxLeave(object sender,System.EventArgs e) { int sel=this._combobox.FindStringExact(this._combobox.Text); if (sel>=0) this._combobox.SelectedIndex=sel; else { if (this._combobox.Text!="") { this._combobox.Text=""; this._combobox.Select(); System.Windows.Forms.MessageBox.Show(";("); } } } } }

在delphi7下虽然可以实现，但是在调试状态下会跳出cpu窗口，除非将integrated debugging设为false，或者PatchInt3

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,Activex,ComObj, StdCtrls; type TForm1 = class(TForm) ComboBox1: TComboBox; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; type IAutoComplete = interface(IUnknown) ['{00BB2762-6A77-11D0-A535-00C04FD7D062}'] function Init(hwndEdit: HWND; punkACL: IUnknown; pwszRegKeyPath: PWideChar; pwszQuickComplete: PWideChar): HResult; stdcall; function Enable(fEnable: Boolean): HResult; stdcall; end; IAutoComplete2 = interface(IAutoComplete) ['{EAC04BC0-3791-11D2-BB95-0060977B464C}'] function SetOptions(dwFlag: DWORD): HResult; stdcall; function GetOptions(out dwFlag: DWORD): HResult; stdcall; end; type TEnumString = class(TInterfacedObject, IEnumString) private FStrings : TStrings; FIndex : Integer; protected function Next(celt: Longint; out elt; pceltFetched: PLongint): HResult; stdcall; function Skip(celt: Longint): HResult; stdcall; function Reset: HResult; stdcall; function Clone(out enm: IEnumString): HResult; stdcall; public constructor Create(Strings: TStrings); end; const CLSID_AutoComplete: TGUID = ( D1:$00BB2763; D2:$6A77; D3:$11D0; D4:($A5,$35,$00,$C0,$4F,$D7,$D0,$62)); Const SHACF_DEFAULT = 0; Const SHACF_FILESYSTEM = 1; Const SHACF_AUTOSUGGEST_FORCE_ON = $10000000; Const SHACF_AUTOAPPEND_FORCE_ON = $40000000; Const ACO_AUTOSUGGEST = $0001; Const ACO_AUTOAPPEND = $0002; Const ACO_SEARCH = $0004; Const ACO_FILTERPREFIXES = $0008; Const ACO_USETAB = $0010; Const ACO_UPDOWNKEYDROPSLIST = $0020; Const ACO_RTLREADING = $0040; implementation {$R *.dfm} { TEnumString } constructor TEnumString.Create(Strings: TStrings); begin inherited Create; FStrings := Strings; end; function TEnumString.Next(celt: Longint; out elt; pceltFetched: PLongint): HResult; var I: Integer; begin I := 0; while (I < celt) and (FIndex < FStrings.Count) do begin TPointerList(elt)[I] := PWideChar(WideString(FStrings[FIndex])); Inc(I); Inc(FIndex); end; if pceltFetched <> nil then pceltFetched^ := I; if I = celt then Result := S_OK else Result := S_FALSE; end; function TEnumString.Skip(celt: Longint): HResult; begin if (FIndex + celt) <= FStrings.Count then begin Inc(FIndex, celt); Result := S_OK; end else begin FIndex := FStrings.Count; Result := S_FALSE; end; end; function TEnumString.Reset: HResult; begin FIndex := 0; Result := S_OK; end; function TEnumString.Clone(out enm: IEnumString): HResult; begin try enm := TEnumString.Create(FStrings); Result := S_OK; except Result := E_UNEXPECTED; end; end; procedure PRO_FUELL_AUTOCOMPLETE_OBJECT(hControl : Hwnd; AList : TStrings); var FAutoComplete : IAutoComplete2; FStringsObj : IUnknown; begin FAutoComplete := CreateComObject(CLSID_AutoComplete)as IAutoComplete2; FStringsObj := TEnumString.Create(AList) as IUnknown; OleCheck(FAutoComplete.Init(hControl, FStringsObj, nil, nil)); OleCheck(FAutoComplete.SetOptions(ACO_AUTOSUGGEST or ACO_AUTOAPPEND or ACO_UPDOWNKEYDROPSLIST or ACO_USETAB)); end; procedure TForm1.FormCreate(Sender: TObject); var T:TStrings; begin T:=Tstringlist.Create; T.Add('www.csdn.net'); T.Add('www.citiz.net'); T.Add('www.mblogger.cn'); PRO_FUELL_AUTOCOMPLETE_OBJECT(FindWindowEx(Combobox1.Handle,0,'Edit',nil), T); end; end.

Csdn-Delphi的考古结果

jinjazz — Mon, 27 Jun 2005 13:18:00 GMT

原帖地址

论坛第一帖
论坛开通是在1999-12-28，第一个注册发帖的用户是csdn这个id，现在此id还经常出来发些公务帖。当时他发的第一帖是热烈欢迎大家来论坛，这个帖子在2001-08还被人捞出来掸掸灰，不过不知道什么原因2000年左右的回复数据都没有保存。

Delphi版第一帖
delphi板块的第一帖也是在同一天，稍晚点时间发的，作者是 hcat1999 (阿猫)。此人是csdn当时的网管，也是第一任总斑竹。从他的帖子可以看出论坛成立的时候delphi版本是3.x

高级用户
星星是在2002年之后改版才有的，所以不应该像现在这样从星星来判断。
最早的高级用户应该是一个网名是 kxy 的吧，这个人是第一个占据csdn总专家榜的位置很久，他的主要开发语言是Delphi.他之后占据CSDN总专家榜的就是VC++版的EDYang。这个人那时候还是美达美的员工，当时美达美还在做英语软件等软件。他就是软件部的负责人，后来美达美不做软件了，他就离开了

专家榜
在蝈蝈的blog上看到过2000后csdn专家榜第一依次是
kxy(当时是CSDN公司软件部的经理，后来CSDN不再做软件了，离开了CSDN)
MasterZ（当时主要在VC++版）
EDyang（当时主要在VC++版）
无为mm（当时到处都可以看到，活动在CSDN的各个板块）
思归 (.net)
邹建（SQL）

星星
delphi第一个四星不知道是不是伴水，他当时是D的大版。02年他通过CSDN的漏洞得到了阿猫的密码，作为奖励给了他4星。delphi版据应该有两个5星，但是我只发现过chehy一个，不知道另外一个是不是主打vb的TechnoFantasy。

版主
除了现任的Windindance,ehom、firetoucher、lxpbuaa、aiirii外，我还看到过Foxnt，再早的就得听别人说了。
windindance来的时候版主是kingron， xzgyb(老达摩)2001年4月来得时候版主是airhorse(编程至尊宝)，还有伴水2002年当过。

高手
GoodHope，TechnoFantasy ，Raptor，chechy ，BCB_FANS ，ZsWang。
--by kingron
EASTUNFAIL，EHOM ，RAPTOR ，FIRETOUCHER，ZSWANG是UC开发组的,chechy.
--by FS

世青赛

jinjazz — Wed, 22 Jun 2005 09:23:00 GMT

中国有点过分关注青年赛了，现在踢成什么样都可以接受。
中国从来不给一个教练尤其是洋教练一点信任。
汉语的爆破音强度不够，也可能是因为有五个声调导致发音频率不够，不能连续爆破，在有些情况下所以可以说是没有激情的语言。

鼠标中键/滚动条/翻页操作时锁定Dbgrid的选定纪录不动

jinjazz — Thu, 16 Jun 2005 13:36:00 GMT

Q：数据查询后我选中一行数据,在用鼠标滚轮往下翻的时候,选中的行数据就不是我刚才选中的了.同样点击表格那个向下的箭头,也是如此.如何锁定选中的行数据,即时翻页的时候它也不动

地址:http://community.csdn.net/Expert/topic/4084/4084438.xml?temp=.5828516

A：

继承一个TDbgrid，自己画焦点。

WindowProc 中拦截鼠标中键消息，发送WM_VSCROLL消息，控制滚动条随鼠标中键移动

MouseDown中记录选中的行，用dataset的recno属性标记。翻页或鼠标中键以及滚动条的变化不再改变当前行

DrawColumnCell中重画表格

示例:

新建一个form，添加一个TTable,TDatasource,TDbgrid.

unit Unit1;

interface
{鼠标中键/滚动条/翻页操作时锁定Dbgrid的选定纪录不动
  by jinjazz}
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls;

type
  TDBGrid = class(DBGrids.TDBGrid)
  private
    FOldGridWnd: TWndMethod;
    SelectedRow: integer;
    procedure NewGridWnd(var Message: TMessage);
  protected
    procedure DrawColumnCell(const Rect: TRect; DataCol: Integer;
      Column: TColumn; State: TGridDrawState); override;
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
  public
    constructor Create(AOwner: TComponent); override;
  end;
type
  TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TDBGrid }

constructor TDBGrid.Create(AOwner: TComponent);
begin
  inherited;
  Options := Options + [dgindicator];
  Self.FOldGridWnd := Self.WindowProc;
  Self.WindowProc := NewGridWnd;
  SelectedRow := -1;
end;

procedure TDBGrid.NewGridWnd(var Message: TMessage);
var
  IsNeg: Boolean;
begin

if Message.Msg = WM_MOUSEWHEEL then
  begin
    IsNeg := Short(Message.WParamHi) < 0;
    if IsNeg then
      SendMessage(Handle, WM_VSCROLL, SB_LINEDOWN, 0)
    else
      SendMessage(Handle, WM_VSCROLL, SB_LINEUP, 0)
  end
  else
    Self.FOldGridWnd(Message);

end;

procedure TDbGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
begin
if SelectedRow=-1 then  SelectedRow:=DataSource.DataSet.RecNo;
  Color := clinfobk;
  Options := Options + [dgRowSelect];
  if ((State = [gdSelected]) or (State = [gdSelected, gdFocused])) then
  begin
    Canvas.Brush.color := Color;
    Canvas.Font.Color := Font.Color;
  end;
  if DataSource.DataSet.RecNo = selectedRow then
    Canvas.Brush.color := clRed; //当前行以红色显示，其它行使用背景的浅绿色
  Canvas.pen.mode := pmmask;
  DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

procedure TDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
var
  Cell: TGridCoord;
begin
  inherited;
  if Button = mbLeft then
  begin
    selectedRow := DataSource.DataSet.RecNo;
    repaint;
  end;
end;

end.

FoxMail的菜单效果

jinjazz — Wed, 08 Jun 2005 17:39:00 GMT

上次的png窗体看来是很难搞定了，起码对于我来说。无奈，功力不足。

给包括miky在内的几位图形高手发了邮件，不知道会不会有结果。

边在论坛&群里YY，边模拟了一下FoxMail的菜单，其实也就是windows的开始菜单的效果如下(右边是FoxMail)

心得如下

主要是在OnMeasureItem事件中调整菜单大小，在OnDrawItem事件中重画。陈锐在csdn的blog上写了部分代码，但是很散乱。我整理了一下，并且加入了对图标和分割符的支持，并且把设置过程简化了很多。

unit JtMenu;

unit JtMenu; { 自画的菜单，可以实现类是foxmail 5.0的效果 by jinjazz singto@citiz.net 2005-06-08 使用方式 uses jtmenu; //--------1 type //--------2 TMenuItem=class(jtmenu.TjtMenuItem) end; TPopupMenu=class(jtmenu.TjTPopupMenu) end; //Form declarations ... ... procedure TForm1.FormCreate(Sender: TObject); //---------3 begin //Case when popupmenu popupmenu1.OwnerDraw:=true; popupmenu1.BkImage:=image1; popupmenu1.SetSubStyle(true); //case when mainmenu MainMenu1.OwnerDraw:=true; main1.BkImage:=image1; main1.SetSubStyle(true); end;} interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Menus; type TjtMenuItem = class(Menus.TMenuItem) private ItemWidth: integer; IconWidth: integer; fBkImage: Timage; procedure SetStyle(value: boolean); public procedure SetSubStyle(Value: boolean); procedure DoMeasureItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer); procedure DoDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean); published property BkImage: Timage read fBkImage write fBkImage; end; TjTPopupMenu=class(menus.TPopupMenu) private fBkImage: Timage; public procedure SetSubStyle(Value: boolean); published property BkImage: Timage read fBkImage write fBkImage; end; implementation { TMenuItem } procedure TjtMenuItem.DoDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean); var j, ItemHeight, iH, iG1: integer; TheRect, rTemp: TRect; mBitmap: TBitmap; begin {To-do:自画菜单} if fBkImage = nil then exit; ItemHeight := ARect.Bottom - ARect.Top; iH := Round(fBkImage.Height / TMenuItem(Sender).Parent.Count * TMenuItem(Sender).MenuIndex); //获得贴图位置 StretchBlt(ACanvas.Handle, ARect.Left, ARect.Top, ItemWidth, ItemHeight, fBkImage.Canvas.Handle, 0, iH, fBkImage.Width, Round(fBkImage.Height / TMenuItem(Sender).Parent.Count), SRCCOPY); if Selected then begin //该菜单项被选中 ACanvas.Font.Color := clWhite; rTemp := ARect; rTemp.Left := rTemp.left + ItemWidth; iG1 := Round((rTemp.Right - rTemp.Left) / 10); rTemp.Right := rTemp.Left + iG1; for j := 0 to 9 do begin //通过循环设置色彩渐变效果 ACanvas.Brush.Color := RGB(0, 0, j * 25); ACanvas.FillRect(rTemp); rTemp.Left := rTemp.Left + iG1; rTemp.Right := rTemp.Left + iG1; end; end else begin //该菜单项没有被选中 ACanvas.Brush.Color := cl3DLight; //设置背景色为浅灰 rTemp := ARect; rTemp.Left := rTemp.left + ItemWidth; ACanvas.FillRect(rTemp); ACanvas.Font.Color := clBlack; end; //设置Canvas的画笔填充模式为透明 ACanvas.Brush.Style := bsClear; //在菜单上输出文字 if TMenuItem(Sender).Caption = '-' then begin TheRect := Rect(ARect.Left + ItemWidth, (ARect.Top + ARect.Bottom) div 2, ARect.Right, ARect.Bottom); DrawEdge(ACanvas.Handle, TheRect, EDGE_ETCHED, BF_TOP); end else ACanvas.TextOut(ARect.Left + ItemWidth + IconWidth + 5, ARect.Top+3, TMenuItem(Sender).Caption); //绘制图标 if ImageIndex >= 0 then begin mBitmap := TBitmap.Create; GetImagelist.GetBitmap(ImageIndex, mBitmap); mBitmap.Transparent := true; ACanvas.Draw(ARect.Left + ItemWidth + 2, ARect.Top, mBitmap); mBitmap.Free; end; end; procedure TjtMenuItem.DoMeasureItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer); var iRate: integer; begin {To-Do:计算并修改菜单宽度，用来插入图片} if fBkImage = nil then exit; Height := ACanvas.TextHeight(TMenuItem(Sender).Caption) + 5; Width := ACanvas.TextWidth(TMenuItem(Sender).Caption) + 5; iRate := Round(fBkImage.Height / (Height * TMenuItem(Sender).Parent.Count)); ItemWidth := Round(fBkImage.Width / iRate); if GetImageList <> nil then IconWidth := GetImageList.Width + 5 else IconWidth := 0; Width := Width + ItemWidth + IconWidth; end; procedure TjtMenuItem.SetStyle(value: boolean); begin if value then begin OnMeasureItem := DoMeasureItem; OnDrawItem := DoDrawItem; end else begin OnMeasureItem := nil; OnDrawItem := nil; end; end; procedure TjtMenuItem.SetSubStyle(Value: boolean); var i: integer; begin self.SetStyle(false); for i := 0 to Count - 1 do begin TjtMenuItem(Items[i]).BkImage := BkImage; TjtMenuItem(Items[i]).SetStyle(Value); end; end; { TjTPopupMenu } procedure TjTPopupMenu.SetSubStyle(Value: boolean); var i: integer; begin for i := 0 to Items.Count - 1 do begin TjtMenuItem(Items[i]).BkImage := BkImage; TjtMenuItem(Items[i]).SetStyle(Value); end; end; end.

使用这个单元可以很轻松的设置菜单效果

下面是个实例:分别把三段代码保存为Project1.dpr、Unit1.pas和unit1.dfm

Project1.dpr

program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, JtMenu in 'JtMenu.pas'; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.

unit1.pas

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Menus,jtmenu, ImgList, StdCtrls; type TMenuItem=class(jtmenu.TjtMenuItem) end; TPopupMenu=class(jtmenu.TjTPopupMenu) end; type TForm1 = class(TForm) Image1: TImage; ImageList1: TImageList; PopupMenu1: TPopupMenu; N1: TMenuItem; FoxMail1: TMenuItem; N3: TMenuItem; N4: TMenuItem; P1: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; D1: TMenuItem; N8: TMenuItem; N9: TMenuItem; E1: TMenuItem; jinjazz1: TMenuItem; webmaster1: TMenuItem; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin popupmenu1.OwnerDraw:=true; popupmenu1.BkImage:=image1; popupmenu1.SetSubStyle(true); //case when mainmenu {MainMenu1.OwnerDraw:=true; main1.BkImage:=image1; main1.SetSubStyle(true);} end; end.

unit1.dfm

object Form1: TForm1 Left = 362 Top = 232 Width = 301 Height = 285 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PopupMenu = PopupMenu1 OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Image1: TImage Left = 24 Top = 32 Width = 25 Height = 196 AutoSize = True Picture.Data = { 07544269746D6170663A0000424D663A00000000000036000000280000001900 0000C40000000100180000000000303A00000000000000000000000000000000 0000C8D0D4020202020202020202020202020202020202020202020202020202 0202020202020202020202020202020202020202020202020202020202020202 02020202020202020202C8D0D400C8D0D4030303030303030303030303030303 0303030303030303030303030303030303030303030303030303030303030303 03030303030303030303030303030303030303030303C8D0D400C8D0D4040404 0404040404040404040404040404040404040404040404040404040404040404 0404040404040404040404040404040404040404040404040404040404040404 0404C8D0D400C8D0D40505050505050505050505050505050505050505050505 0505050505050505050505050505050505050505050505050505050505050505 0505050505050505050505050505C8D0D400C8D0D40606060606060606060606 0606060606060606060606060606060606060606060606060606060606060606 0606060606060606060606060606060606060606060606060606C8D0D400C8D0 D407070707070707070707070707070707070707070707070707070707070707 0707070707070707070707070707070707070707070707070707070707070707 070707070707C8D0D400C8D0D408080808080808080808080808080808080808 0808080808080808080808080808080808080808080808080808080808080808 080808080808080808080808080808080808C8D0D400C8D0D409090909090909 0909090909090909090909090909090909090909090909090909090909090909 090909090909090909090909090909FFFFFF090909090909090909090909C8D0 D400C8D0D40A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A 0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0AFFFFFFFFFFFFFFFFFFFFFFFF0A0A 0A0A0A0A0A0A0A0A0A0AC8D0D400C8D0D40B0B0B0B0B0B0B0B0B0B0B0B0B0B0B 0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0BFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF0B0B0B0B0B0B0B0B0B0B0B0BC8D0D400C8D0D40C0C0C 0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0CFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0CC8D0D400C8D0D40D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0EFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0D0D0E0D0D0E0D0D0E0D 0D0E0D0D0E0D0D0E0D0D0E0D0D0EC8D0D400C8D0D40E0E0F0E0E0F0E0E0F0E0E 0F0E0E0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0E0E0F0E0E0F0E 0E0F0E0E0F0E0E0F0E0E0F0E0E0F0E0E0F0E0E0F0E0E0F0E0E0FC8D0D400C8D0 D40F0F100F0F100F0F100F0F100F0F10FFFFFFFFFFFFFFFFFFFFFFFF0F0F10FF FFFFFFFFFF0F0F100F0F100F0F100F0F100F0F100F0F100F0F100F0F100F0F10 0F0F100F0F10C8D0D400C8D0D4101011101011101011101011101011FFFFFFFF FFFF101011101011101011FFFFFFFFFFFF101011101011101011101011101011 101011101011101011101011101011101011C8D0D400C8D0D411121211121211 1212111212111212FFFFFFFFFFFF111212111212111212FFFFFFFFFFFF111212 111212111212111212111212111212111212111212111212111212111212C8D0 D400C8D0D4121313121313121313121313121313FFFFFFFFFFFF121313121313 121313FFFFFFFFFFFF1213131213131213131213131213131213131213131213 13121313121313121313C8D0D400C8D0D4131414131414131414131414131414 FFFFFFFFFFFF131414131414131414FFFFFFFFFFFF1314141314141314141314 14131414131414131414131414131414131414131414C8D0D400C8D0D4141515 141515141515141515141515FFFFFFFFFFFF141515141515141515FFFFFFFFFF FF141515141515141515FFFFFFFFFFFF14151514151514151514151514151514 1515C8D0D400C8D0D4151616151616151616151616151616FFFFFFFFFFFF1516 16151616151616FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF15 1616151616151616151616151616C8D0D400C8D0D41617171617171617171617 17161717FFFFFFFFFFFF161717161717161717161717FFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF161717161717161717161717C8D0D400C8D0 D4171818171818171818171818171818FFFFFF171818171818171818171818FF FFFFFFFFFFFFFFFFFFFFFFFFFFFF171818FFFFFFFFFFFFFFFFFF171818171818 171818171818FFFFFF00C8D0D418191A18191A18191A18191A18191A18191A18 191A18191A18191A18191AFFFFFFFFFFFF18191A18191A18191A18191A18191A FFFFFFFFFFFF18191A18191A18191A18191A80808000C8D0D4191A1B191A1B19 1A1B191A1B191A1B191A1B191A1B191A1B191A1BFFFFFFFFFFFF191A1B191A1B 191A1B191A1B191A1B191A1BFFFFFFFFFFFF191A1B191A1B191A1B191A1BC8D0 D400C8D0D41A1B1C1A1B1C1A1B1C1A1B1C1A1B1C1A1B1C1A1B1C1A1B1C1A1B1C FFFFFFFFFFFF1A1B1C1A1B1C1A1B1C1A1B1C1A1B1C1A1B1CFFFFFFFFFFFF1A1B 1C1A1B1C1A1B1C1A1B1CC8D0D400C8D0D41B1C1D1B1C1D1B1C1D1B1C1D1B1C1D 1B1C1D1B1C1D1B1C1D1B1C1DFFFFFFFFFFFF1B1C1D1B1C1D1B1C1D1B1C1D1B1C 1DFFFFFFFFFFFF1B1C1D1B1C1D1B1C1D1B1C1D1B1C1DC8D0D400C8D0D41C1D1E 1C1D1E1C1D1E1C1D1E1C1D1E1C1D1E1C1D1E1C1D1E1C1D1EFFFFFFFFFFFF1C1D 1E1C1D1E1C1D1E1C1D1EFFFFFFFFFFFFFFFFFF1C1D1E1C1D1E1C1D1E1C1D1E1C 1D1EC8D0D400C8D0D41D1E1F1D1E1F1D1E1F1D1E1F1D1E1F1D1E1F1D1E1F1D1E 1F1D1E1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1D1E1F1D 1E1F1D1E1F1D1E1F1D1E1F1D1E1FC8D0D400C8D0D41E1F201E1F201E1F201E1F 201E1F201E1F201E1F201E1F201E1F201E1F20FFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFF1E1F201E1F201E1F201E1F201E1F201E1F201E1F20C8D0D400C8D0 D41F20211F20211F20211F20211F20211F20211F20211F20211F20211F2021FF FFFFFFFFFFFFFFFFFFFFFFFFFFFF1F20211F20211F20211F20211F20211F2021 1F20211F2021C8D0D400C8D0D420222220222220222220222220222220222220 2222202222202222202222202222202222202222202222202222202222202222 202222FFFFFF202222202222202222202222C8D0D400C8D0D421232321232321 2323212323212323212323212323212323212323212323212323212323212323 212323212323212323212323FFFFFFFFFFFF212323212323212323212323C8D0 D400C8D0D4222424222424222424222424222424222424222424222424222424 222424222424222424222424222424222424222424FFFFFFFFFFFFFFFFFF2224 24222424222424222424C8D0D400C8D0D4232525232525232525232525232525 232525232525232525232525FFFFFFFFFFFF232525232525232525232525FFFF FFFFFFFFFFFFFF232525232525232525232525232525C8D0D400C8D0D4242627 242627242627242627242627242627242627242627242627FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF24262724262724262724262724262724 2627C8D0D400C8D0D42527282527282527282527282527282527282527282527 28252728FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF25272825272825 2728252728252728252728252728C8D0D400C8D0D42628292628292628292628 29262829262829262829262829262829262829262829FFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFF262829262829262829262829262829C8D0D400C8D0 D427292A27292A27292A27292A27292A27292A27292A27292A27292A27292A27 292A27292AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF27292A27292A 27292A27292AC8D0D400C8D0D4282A2B282A2B282A2B282A2B282A2B282A2B28 2A2B282A2B282A2B282A2B282A2BFFFFFFFFFFFF282A2B282A2B282A2BFFFFFF FFFFFFFFFFFF282A2B282A2B282A2B282A2BC8D0D400C8D0D42A2B2C2A2B2C2A 2B2C2A2B2C2A2B2C2A2B2C2A2B2C2A2B2C2A2B2C2A2B2CFFFFFFFFFFFF2A2B2C 2A2B2C2A2B2C2A2B2C2A2B2C2A2B2CFFFFFF2A2B2C2A2B2C2A2B2C2A2B2CC8D0 D400C8D0D42B2C2D2B2C2D2B2C2D2B2C2D2B2C2D2B2C2D2B2C2D2B2C2D2B2C2D FFFFFFFFFFFFFFFFFF2B2C2D2B2C2D2B2C2D2B2C2D2B2C2D2B2C2D2B2C2D2B2C 2D2B2C2D2B2C2D2B2C2DC8D0D400C8D0D42C2D2E2C2D2E2C2D2E2C2D2E2C2D2E 2C2D2E2C2D2E2C2D2E2C2D2EFFFFFFFFFFFF2C2D2E2C2D2E2C2D2E2C2D2E2C2D 2E2C2D2E2C2D2E2C2D2E2C2D2E2C2D2E2C2D2E2C2D2EC8D0D400C8D0D42D2E2F 2D2E2F2D2E2F2D2E2F2D2E2F2D2E2F2D2E2F2D2E2F2D2E2FFFFFFF2D2E2F2D2E 2F2D2E2F2D2E2F2D2E2F2D2E2F2D2E2F2D2E2FFFFFFF2D2E2F2D2E2F2D2E2F2D 2E2FC8D0D400C8D0D42E2F302E2F302E2F302E2F302E2F302E2F302E2F302E2F 302E2F302E2F302E2F302E2F302E2F302E2F302E2F30FFFFFFFFFFFFFFFFFFFF FFFF2E2F302E2F302E2F302E2F30C8D0D400C8D0D42F30312F30312F30312F30 312F30312F30312F30312F30312F30312F30312F30312F3031FFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF2F30312F30312F30312F3031C8D0D400C8D0 D4303233303233303233303233303233303233303233303233303233FFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF303233303233303233 303233303233C8D0D400C8D0D431333431333431333431333431333431333431 3334313334313334FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF313334313334 313334313334313334313334313334313334C8D0D400C8D0D432343532343532 3435323435323435323435323435323435323435FFFFFFFFFFFFFFFFFF323435 323435323435323435323435323435323435323435323435323435323435C8D0 D400C8D0D4333536333536333536333536333536333536333536333536333536 333536FFFFFFFFFFFF333536333536333536333536333536333536FFFFFF3335 36333536333536333536C8D0D400C8D0D4343637343637343637343637343637 343637343637343637343637FFFFFFFFFFFFFFFFFF343637343637343637FFFF FFFFFFFFFFFFFFFFFFFF343637343637343637343637C8D0D400C8D0D4353738 353738353738353738353738353738353738353738353738FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF35373835373835373835 3738C8D0D400C8D0D43638393638393638393638393638393638393638393638 39363839FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF36 3839363839363839363839363839C8D0D400C8D0D437393A37393A37393A3739 3A37393A37393A37393A37393A37393AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFF37393A37393A37393A37393A37393A37393A37393A37393AC8D0D400C8D0 D4383A3B383A3B383A3B383A3B383A3B383A3B383A3B383A3B383A3B383A3B38 3A3BFFFFFF383A3B383A3B383A3B383A3B383A3B383A3B383A3B383A3B383A3B 383A3B383A3BC8D0D400C8D0D4393B3C393B3C393B3C393B3C393B3C393B3C39 3B3C393B3C393B3C393B3CFFFFFFFFFFFF393B3C393B3C393B3C393B3C393B3C 393B3CFFFFFF393B3C393B3C393B3C393B3CC8D0D400C8D0D43A3C3D3A3C3D3A 3C3D3A3C3D3A3C3D3A3C3D3A3C3D3A3C3D3A3C3DFFFFFFFFFFFFFFFFFF3A3C3D 3A3C3D3A3C3DFFFFFFFFFFFFFFFFFFFFFFFF3A3C3D3A3C3D3A3C3D3A3C3DC8D0 D400C8D0D43B3D3E3B3D3E3B3D3E3B3D3E3B3D3E3B3D3E3B3D3E3B3D3E3B3D3E FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3B3D 3E3B3D3E3B3D3E3B3D3EC8D0D400C8D0D43C3E403C3E403C3E403C3E403C3E40 3C3E403C3E403C3E403C3E40FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFF3C3E403C3E403C3E403C3E403C3E40C8D0D400C8D0D43D3F41 3D3F413D3F413D3F413D3F413D3F413D3F413D3F413D3F41FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF3D3F413D3F413D3F413D3F413D3F413D3F413D3F413D 3F41C8D0D400C8D0D43E40423E40423E40423E40423E40423E40423E40423E40 423E40423E40423E40423E40423E40423E40423E40423E40423E40423E40423E 40423E40423E40423E40423E4042C8D0D400C8D0D43F42433F42433F42433F42 433F42433F42433F42433F42433F42433F42433F42433F42433F42433F42433F 4243FFFFFFFFFFFFFFFFFFFFFFFF3F42433F42433F42433F4243C8D0D400C8D0 D440434440434440434440434440434440434440434440434440434440434440 4344404344404344404344FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF404344404344 404344404344C8D0D400C8D0D441444541444541444541444541444541444541 4445414445414445414445414445414445414445414445FFFFFFFFFFFFFFFFFF FFFFFFFFFFFF414445414445414445414445C8D0D400C8D0D442454642454642 4546424546424546424546424546424546424546FFFFFFFFFFFFFFFFFF424546 FFFFFFFFFFFFFFFFFF424546FFFFFFFFFFFF424546424546424546424546C8D0 D400C8D0D4434647434647434647434647434647434647434647434647434647 FFFFFFFFFFFF434647434647FFFFFFFFFFFF434647434647FFFFFFFFFFFF4346 47434647434647434647C8D0D400C8D0D4444748444748444748444748444748 444748444748444748444748FFFFFFFFFFFF444748444748FFFFFFFFFFFF4447 48444748FFFFFFFFFFFF444748444748444748444748C8D0D400C8D0D4454849 454849454849454849454849454849454849454849454849FFFFFFFFFFFF4548 49454849FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF45484945484945484945 4849C8D0D400C8D0D446494A46494A46494A46494A46494A46494A46494A4649 4A46494AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFF46494A46494A46494A46494AC8D0D400C8D0D4474A4C474A4C474A4C474A 4C474A4C474A4C474A4C474A4C474A4CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFF474A4C474A4C474A4C474A4C474A4CC8D0D400C8D0 D4484B4D484B4D484B4D484B4D484B4D484B4D484B4D484B4D484B4DFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF484B4D484B4D484B4D484B4D484B4D484B4D 484B4D484B4DC8D0D400C8D0D4494C4E494C4E494C4E494C4E494C4E494C4E49 4C4E494C4E494C4E494C4E494C4E494C4E494C4E494C4E494C4E494C4E494C4E 494C4E494C4E494C4E494C4E494C4E494C4EC8D0D400C8D0D44A4D4F4A4D4F4A 4D4F4A4D4F4A4D4F4A4D4F4A4D4F4A4D4F4A4D4F4A4D4F4A4D4F4A4D4F4A4D4F 4A4D4F4A4D4F4A4D4F4A4D4F4A4D4FFFFFFF4A4D4F4A4D4F4A4D4F4A4D4FC8D0 D400C8D0D44B4E504B4E504B4E504B4E504B4E504B4E504B4E504B4E504B4E50 4B4E504B4E504B4E504B4E504B4E504B4E50FFFFFFFFFFFFFFFFFFFFFFFF4B4E 504B4E504B4E504B4E50C8D0D400C8D0D44C4F514C4F514C4F514C4F514C4F51 4C4F514C4F514C4F514C4F514C4F514C4F514C4F51FFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF4C4F514C4F514C4F514C4F51C8D0D400C8D0D44D5052 4D50524D50524D50524D50524D50524D50524D50524D5052FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4D50524D50524D50524D50524D 5052C8D0D400C8D0D44E52534E52534E52534E52534E52534E5253FFFFFFFFFF FF4E5253FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4E52534E52534E52534E 52534E52534E52534E52534E5253C8D0D400C8D0D44F53544F53544F53544F53 544F53544F5354FFFFFFFFFFFF4F5354FFFFFFFFFFFFFFFFFF4F53544F53544F 53544F53544F53544F53544F53544F53544F53544F53544F5354C8D0D400C8D0 D4505455505455505455505455505455505455FFFFFFFFFFFF50545550545550 5455505455505455505455505455505455505455505455FFFFFF505455505455 505455505455C8D0D400C8D0D452555652555652555652555652555652555652 5556525556525556525556525556525556525556525556525556FFFFFFFFFFFF FFFFFFFFFFFF525556525556525556525556C8D0D400C8D0D453565753565753 5657535657535657535657535657535657535657535657535657535657FFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF535657535657535657535657C8D0 D400C8D0D4545759545759545759545759545759545759545759545759545759 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5457595457 59545759545759545759C8D0D400C8D0D455585A55585A55585A55585A55585A 55585AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5558 5A55585A55585A55585A55585A55585A55585A55585AC8D0D400C8D0D456595B 56595B56595B56595BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FF56595B56595B56595B56595B56595B56595B56595B56595B56595B56595B56 595BC8D0D400C8D0D4575A5C575A5C575A5C575A5CFFFFFFFFFFFFFFFFFFFFFF FFFFFFFF575A5C575A5C575A5C575A5C575A5C575A5C575A5C575A5C575A5C57 5A5C575A5C575A5C575A5C575A5CC8D0D400C8D0D4585B5D585B5D585B5D585B 5DFFFFFFFFFFFF585B5D585B5D585B5D585B5D585B5D585B5D585B5D585B5D58 5B5D585B5D585B5D585B5D585B5D585B5D585B5D585B5D585B5DC8D0D400C8D0 D4595C5E595C5E595C5E595C5E595C5E595C5E595C5E595C5E595C5E595C5E59 5C5E595C5E595C5E595C5E595C5E595C5E595C5E595C5E595C5E595C5E595C5E 595C5E595C5EC8D0D400C8D0D45A5D5F5A5D5F5A5D5F5A5D5F5A5D5F5A5D5F5A 5D5F5A5D5F5A5D5F5A5D5F5A5D5F5A5D5F5A5D5F5A5D5F5A5D5F5A5D5F5A5D5F 5A5D5F5A5D5F5A5D5F5A5D5F5A5D5F5A5D5FC8D0D400C8D0D45B5E605B5E605B 5E605B5E605B5E605B5E605B5E605B5E605B5E605B5E605B5E605B5E605B5E60 5B5E605B5E605B5E605B5E605B5E605B5E605B5E605B5E605B5E605B5E60C8D0 D400C8D0D45C5F615C5F615C5F615C5F615C5F615C5F615C5F615C5F615C5F61 5C5F615C5F615C5F615C5F615C5F615C5F615C5F615C5F615C5F615C5F615C5F 615C5F615C5F615C5F61C8D0D400C8D0D45D60625D60625D60625D60625D6062 5D60625D60625D60625D60625D60625D60625D60625D60625D60625D60625D60 625D60625D60625D60625D60625D60625D60625D6062C8D0D400C8D0D45E6263 5E62635E62635E62635E62635E62635E62635E62635E62635E62635E62635E62 635E62635E62635E6263FFFFFFFFFFFFFFFFFFFFFFFF5E62635E62635E62635E 6263C8D0D400C8D0D45F63655F63655F63655F63655F63655F63655F63655F63 655F63655F63655F63655F63655F63655F63655F63655F6365FFFFFFFFFFFFFF FFFF5F63655F63655F63655F6365C8D0D400C8D0D46064666064666064666064 6660646660646660646660646660646660646660646660646660646660646660 6466606466606466FFFFFFFFFFFF606466606466606466606466C8D0D400C8D0 D4616567616567616567616567616567616567616567616567616567FFFFFFFF FFFFFFFFFF616567616567616567616567616567FFFFFFFFFFFF616567616567 616567616567C8D0D400C8D0D4626668626668626668626668626668626668FF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF626668626668626668626668626668 FFFFFFFFFFFF626668626668626668626668C8D0D400C8D0D463676963676963 6769636769636769FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF636769 636769636769636769636769FFFFFFFFFFFF636769636769636769636769C8D0 D400C8D0D464686A64686A64686A64686A64686AFFFFFFFFFFFFFFFFFFFFFFFF 64686AFFFFFFFFFFFF64686A64686A64686A64686AFFFFFFFFFFFF64686A6468 6A64686A64686A64686AC8D0D400C8D0D465696B65696B65696B65696B65696B FFFFFFFFFFFF65696B65696B65696BFFFFFFFFFFFFFFFFFF65696B65696BFFFF FFFFFFFFFFFFFF65696B65696B65696B65696B65696BC8D0D400C8D0D4666A6C 666A6C666A6C666A6C666A6CFFFFFFFFFFFF666A6C666A6C666A6CFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF666A6C666A6C666A6C666A6C666A6C66 6A6CC8D0D400C8D0D4676B6D676B6D676B6D676B6D676B6DFFFFFFFFFFFF676B 6D676B6D676B6DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF676B6D676B6D67 6B6D676B6D676B6D676B6D676B6DC8D0D400C8D0D4686C6E686C6E686C6E686C 6E686C6EFFFFFFFFFFFF686C6E686C6E686C6E686C6EFFFFFFFFFFFFFFFFFFFF FFFF686C6E686C6E686C6E686C6E686C6E686C6E686C6E686C6EC8D0D400C8D0 D4696D6F696D6F696D6F696D6F696D6FFFFFFFFFFFFF696D6F696D6F696D6F69 6D6F696D6F696D6F696D6F696D6F696D6F696D6F696D6FFFFFFF696D6F696D6F 696D6F696D6FC8D0D400C8D0D46A6E706A6E706A6E706A6E706A6E70FFFFFFFF FFFF6A6E706A6E706A6E706A6E706A6E706A6E706A6E706A6E70FFFFFFFFFFFF FFFFFFFFFFFF6A6E706A6E706A6E706A6E70C8D0D400C8D0D46B6F726B6F726B 6F726B6F726B6F72FFFFFF6B6F726B6F726B6F726B6F726B6F726B6F726B6F72 6B6F726B6F72FFFFFFFFFFFFFFFFFFFFFFFF6B6F726B6F726B6F726B6F72C8D0 D400C8D0D46C70736C70736C70736C70736C70736C70736C70736C70736C7073 6C70736C70736C70736C70736C70736C7073FFFFFFFFFFFFFFFFFF6C70736C70 736C70736C70736C7073C8D0D400C8D0D46D72746D72746D72746D72746D7274 6D72746D72746D72746D72746D72746D72746D72746D72746D72746D72746D72 746D72746D72746D72746D72746D72746D72746D7274FFFFFF00C8D0D46E7375 6E73756E73756E73756E73756E73756E73756E73756E73756E73756E73756E73 756E73756E73756E73756E73756E73756E73756E73756E73756E73756E73756E 737580808000C8D0D46F74766F74766F74766F74766F74766F74766F74766F74 766F74766F74766F74766F74766F74766F74766F74766F74766F74766F74766F 74766F74766F74766F74766F7476C8D0D400C8D0D47075777075777075777075 7770757770757770757770757770757770757770757770757770757770757770 7577707577707577707577707577707577707577707577707577C8D0D400C8D0 D471767871767871767871767871767871767871767871767871767871767871 7678717678FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF717678717678717678 717678717678C8D0D400C8D0D472777972777972777972777972777972777972 7779727779727779FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF727779727779727779727779C8D0D400C8D0D473787A73787A73 787A73787A73787A73787A73787A73787AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF73787A73787A73787A73787AC8D0 D400C8D0D474797B74797B74797B74797B74797B74797B74797BFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF74797B74797B74797B74797B74797BFFFFFFFFFFFF7479 7B74797B74797B74797BC8D0D400C8D0D4757A7C757A7C757A7C757A7C757A7C 757A7CFFFFFFFFFFFFFFFFFF757A7C757A7C757A7C757A7C757A7C757A7C757A 7C757A7CFFFFFFFFFFFF757A7C757A7C757A7C757A7CC8D0D400C8D0D4767B7E 767B7E767B7E767B7E767B7EFFFFFFFFFFFFFFFFFF767B7E767B7E767B7E767B 7E767B7E767B7E767B7E767B7EFFFFFFFFFFFFFFFFFF767B7E767B7E767B7E76 7B7EC8D0D400C8D0D4777C7F777C7F777C7F777C7F777C7FFFFFFFFFFFFF777C 7F777C7F777C7F777C7F777C7F777C7F777C7FFFFFFFFFFFFFFFFFFFFFFFFF77 7C7F777C7F777C7F777C7F777C7FC8D0D400C8D0D4787D80787D80787D80787D 80787D80FFFFFFFFFFFF787D80787D80787D80787D80787D80FFFFFFFFFFFFFF FFFFFFFFFFFFFFFF787D80787D80787D80787D80787D80787D80C8D0D400C8D0 D47A7E817A7E817A7E817A7E817A7E81FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7A7E817A7E817A7E817A7E817A7E81 7A7E817A7E81C8D0D400C8D0D47B7F827B7F827B7F827B7F827B7F82FFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7B7F827B7F827B7F82 7B7F827B7F827B7F827B7F827B7F827B7F82C8D0D400C8D0D47C80837C80837C 80837C80837C80837C8083FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7C8083 7C80837C80837C80837C80837C80837C80837C80837C80837C80837C8083C8D0 D400C8D0D47D82847D82847D82847D82847D82847D82847D82847D82847D8284 7D82847D82847D82847D82847D82847D82847D82847D82847D82847D82847D82 847D82847D82847D8284C8D0D400C8D0D47E83857E83857E83857E83857E8385 7E83857E83857E83857E83857E83857E83857E83857E83857E83857E83857E83 857E83857E83857E83857E83857E83857E83857E8385C8D0D400C8D0D47F8486 7F84867F84867F84867F84867F84867F84867F84867F84867F84867F84867F84 867F84867F84867F84867F84867F84867F84867F84867F84867F84867F84867F 8486C8D0D400C8D0D48085878085878085878085878085878085878085878085 8780858780858780858780858780858780858780858780858780858780858780 8587808587808587808587808587C8D0D400C8D0D48186888186888186888186 8881868881868881868881868881868881868881868881868881868881868881 8688818688818688818688818688818688818688818688818688C8D0D400C8D0 D482878982878982878982878982878982878982878982878982878982878982 8789828789828789828789828789828789828789828789828789828789828789 828789828789C8D0D400C8D0D483888B83888B83888B83888B83888B83888B83 888B83888B83888B83888B83888B83888B83888B83888B83888B83888B83888B 83888B83888B83888B83888B83888B83888BC8D0D400C8D0D484898C84898C84 898C84898C84898C84898C84898C84898C84898C84898C84898C84898C84898C 84898C84898C84898C84898C84898C84898C84898C84898C84898C84898CC8D0 D400C8D0D4858A8D858A8D858A8D858A8D858A8D858A8D858A8D858A8D858A8D 858A8D858A8D858A8D858A8D858A8D858A8D858A8D858A8D858A8D858A8D858A 8D858A8D858A8D858A8DC8D0D400C8D0D4868B8E868B8E868B8E868B8E868B8E 868B8E868B8E868B8E868B8E868B8E868B8E868B8E868B8E868B8E868B8E868B 8E868B8E868B8E868B8E868B8E868B8E868B8E868B8EC8D0D400C8D0D4878C8F 878C8F878C8F878C8F878C8F878C8F878C8F878C8F878C8F878C8F878C8F878C 8F878C8F878C8F878C8F878C8F878C8F878C8F878C8F878C8F878C8F878C8F87 8C8FC8D0D400C8D0D4888D90888D90888D90888D90888D90888D90888D90888D 90888D90888D90888D90888D90888D90888D90888D90888D90888D90888D9088 8D90888D90888D90888D90888D90C8D0D400C8D0D4898E91898E91898E91898E 91898E91898E91898E91898E91898E91898E91898E91898E91898E91898E9189 8E91898E91898E91898E91898E91898E91898E91898E91898E91C8D0D400C8D0 D48A8F928A8F928A8F928A8F928A8F928A8F928A8F928A8F928A8F928A8F928A 8F928A8F928A8F928A8F928A8F928A8F928A8F928A8F928A8F928A8F928A8F92 8A8F928A8F92C8D0D400C8D0D48B90938B90938B90938B90938B90938B90938B 90938B90938B90938B90938B90938B90938B90938B90938B90938B90938B9093 8B90938B90938B90938B90938B90938B9093C8D0D400C8D0D48C92948C92948C 92948C92948C92948C92948C92948C92948C92948C92948C92948C92948C9294 8C92948C92948C92948C92948C92948C92948C92948C92948C92948C9294C8D0 D400C8D0D48D93958D93958D93958D93958D93958D93958D93958D93958D9395 8D93958D93958D93958D93958D93958D93958D93958D93958D93958D93958D93 958D93958D93958D9395C8D0D400C8D0D48E94978E94978E94978E94978E9497 8E94978E94978E94978E94978E94978E94978E94978E94978E94978E94978E94 978E94978E94978E94978E94978E94978E94978E9497C8D0D400C8D0D48F9598 8F95988F95988F95988F95988F95988F95988F95988F95988F95988F95988F95 988F95988F95988F95988F95988F95988F95988F95988F95988F95988F95988F 9598C8D0D400C8D0D49096999096999096999096999096999096999096999096 9990969990969990969990969990969990969990969990969990969990969990 9699909699909699909699909699C8D0D400C8D0D491979A91979A91979A9197 9A91979A91979A91979A91979A91979A91979A91979A91979A91979A91979A91 979A91979A91979A91979A91979A91979A91979A91979A91979AC8D0D400C8D0 D492989B92989B92989B92989B92989B92989B92989B92989B92989B92989B92 989B92989B92989B92989B92989B92989B92989B92989B92989B92989B92989B 92989B92989BC8D0D400C8D0D493999C93999C93999C93999C93999C93999C93 999C93999C93999C93999C93999C93999C93999C93999C93999C93999C93999C 93999C93999C93999C93999C93999C93999CC8D0D400C8D0D4949A9D949A9D94 9A9D949A9D949A9D949A9D949A9D949A9D949A9D949A9D949A9D949A9D949A9D 949A9D949A9D949A9D949A9D949A9D949A9D949A9D949A9D949A9D949A9DC8D0 D400C8D0D4959B9E959B9E959B9E959B9E959B9E959B9E959B9E959B9E959B9E 959B9E959B9E959B9E959B9E959B9E959B9E959B9E959B9E959B9E959B9E959B 9E959B9E959B9E959B9EC8D0D400C8D0D4969C9F969C9F969C9F969C9F969C9F 969C9F969C9F969C9F969C9F969C9F969C9F969C9F969C9F969C9F969C9F969C 9F969C9F969C9F969C9F969C9F969C9F969C9F969C9FC8D0D400C8D0D4979DA0 979DA0979DA0979DA0979DA0979DA0979DA0979DA0979DA0979DA0979DA0979D A0979DA0979DA0979DA0979DA0979DA0979DA0979DA0979DA0979DA0979DA097 9DA0C8D0D400C8D0D4989EA1989EA1989EA1989EA1989EA1989EA1989EA1989E A1989EA1989EA1989EA1989EA1989EA1989EA1989EA1989EA1989EA1989EA198 9EA1989EA1989EA1989EA1989EA1C8D0D400C8D0D4999FA2999FA2999FA2999F A2999FA2999FA2999FA2999FA2999FA2999FA2999FA2999FA2999FA2999FA299 9FA2999FA2999FA2999FA2999FA2999FA2999FA2999FA2999FA2C8D0D400C8D0 D49AA0A49AA0A49AA0A49AA0A49AA0A49AA0A49AA0A49AA0A49AA0A49AA0A49A A0A49AA0A49AA0A49AA0A49AA0A49AA0A49AA0A49AA0A49AA0A49AA0A49AA0A4 9AA0A49AA0A4C8D0D400C8D0D49BA2A59BA2A59BA2A59BA2A59BA2A59BA2A59B A2A59BA2A59BA2A59BA2A59BA2A59BA2A59BA2A59BA2A59BA2A59BA2A59BA2A5 9BA2A59BA2A59BA2A59BA2A59BA2A59BA2A5C8D0D400C8D0D49CA3A69CA3A69C A3A69CA3A69CA3A69CA3A69CA3A69CA3A69CA3A69CA3A69CA3A69CA3A69CA3A6 9CA3A69CA3A69CA3A69CA3A69CA3A69CA3A69CA3A69CA3A69CA3A69CA3A6FFFF FF00C8D0D49DA4A79DA4A79DA4A79DA4A79DA4A79DA4A79DA4A79DA4A79DA4A7 9DA4A79DA4A79DA4A79DA4A79DA4A79DA4A79DA4A79DA4A79DA4A79DA4A79DA4 A79DA4A79DA4A79DA4A780808000C8D0D49EA5A89EA5A89EA5A89EA5A89EA5A8 9EA5A89EA5A89EA5A89EA5A89EA5A89EA5A89EA5A89EA5A89EA5A89EA5A89EA5 A89EA5A89EA5A89EA5A89EA5A89EA5A89EA5A89EA5A8C8D0D400C8D0D49FA6A9 9FA6A99FA6A99FA6A99FA6A99FA6A99FA6A99FA6A99FA6A99FA6A99FA6A99FA6 A99FA6A99FA6A99FA6A99FA6A99FA6A99FA6A99FA6A99FA6A99FA6A99FA6A99F A6A9C8D0D400C8D0D4A0A7AAA0A7AAA0A7AAA0A7AAA0A7AAA0A7AAA0A7AAA0A7 AAA0A7AAA0A7AAA0A7AAA0A7AAA0A7AAA0A7AAA0A7AAA0A7AAA0A7AAA0A7AAA0 A7AAA0A7AAA0A7AAA0A7AAA0A7AAC8D0D400C8D0D4A2A8ABA2A8ABA2A8ABA2A8 ABA2A8ABA2A8ABA2A8ABA2A8ABA2A8ABA2A8ABA2A8ABA2A8ABA2A8ABA2A8ABA2 A8ABA2A8ABA2A8ABA2A8ABA2A8ABA2A8ABA2A8ABA2A8ABA2A8ABC8D0D400C8D0 D4A3A9ACA3A9ACA3A9ACA3A9ACA3A9ACA3A9ACA3A9ACA3A9ACA3A9ACA3A9ACA3 A9ACA3A9ACA3A9ACA3A9ACA3A9ACA3A9ACA3A9ACA3A9ACA3A9ACA3A9ACA3A9AC A3A9ACA3A9ACC8D0D400C8D0D4A4AAADA4AAADA4AAADA4AAADA4AAADA4AAADA4 AAADA4AAADA4AAADA4AAADA4AAADA4AAADA4AAADA4AAADA4AAADA4AAADA4AAAD A4AAADA4AAADA4AAADA4AAADA4AAADA4AAADC8D0D400C8D0D4A5ABAEA5ABAEA5 ABAEA5ABAEA5ABAEA5ABAEA5ABAEA5ABAEA5ABAEA5ABAEA5ABAEA5ABAEA5ABAE A5ABAEA5ABAEA5ABAEA5ABAEA5ABAEA5ABAEA5ABAEA5ABAEA5ABAEA5ABAEC8D0 D400C8D0D4A6ACB0A6ACB0A6ACB0A6ACB0A6ACB0A6ACB0A6ACB0A6ACB0A6ACB0 A6ACB0A6ACB0A6ACB0A6ACB0A6ACB0A6ACB0A6ACB0A6ACB0A6ACB0A6ACB0A6AC B0A6ACB0A6ACB0A6ACB0C8D0D400C8D0D4A7ADB1A7ADB1A7ADB1A7ADB1A7ADB1 A7ADB1A7ADB1A7ADB1A7ADB1A7ADB1A7ADB1A7ADB1A7ADB1A7ADB1A7ADB1A7AD B1A7ADB1A7ADB1A7ADB1A7ADB1A7ADB1A7ADB1A7ADB1C8D0D400C8D0D4A8AEB2 A8AEB2A8AEB2A8AEB2A8AEB2A8AEB2A8AEB2A8AEB2A8AEB2A8AEB2A8AEB2A8AE B2A8AEB2A8AEB2A8AEB2A8AEB2A8AEB2A8AEB2A8AEB2A8AEB2A8AEB2A8AEB2A8 AEB2C8D0D400C8D0D4A9AFB3A9AFB3A9AFB3A9AFB3A9AFB3A9AFB3A9AFB3A9AF B3A9AFB3A9AFB3A9AFB3A9AFB3A9AFB3A9AFB3A9AFB3A9AFB3A9AFB3A9AFB3A9 AFB3A9AFB3A9AFB3A9AFB3A9AFB3C8D0D400C8D0D4AAB0B4AAB0B4AAB0B4AAB0 B4AAB0B4AAB0B4AAB0B4AAB0B4AAB0B4AAB0B4AAB0B4AAB0B4AAB0B4AAB0B4AA B0B4AAB0B4AAB0B4AAB0B4AAB0B4AAB0B4AAB0B4AAB0B4AAB0B4C8D0D400C8D0 D4ABB2B5ABB2B5ABB2B5ABB2B5ABB2B5ABB2B5ABB2B5ABB2B5ABB2B5ABB2B5AB B2B5ABB2B5ABB2B5ABB2B5ABB2B5ABB2B5ABB2B5ABB2B5ABB2B5ABB2B5ABB2B5 ABB2B5ABB2B5C8D0D400C8D0D4ACB3B6ACB3B6ACB3B6ACB3B6ACB3B6ACB3B6AC B3B6ACB3B6ACB3B6ACB3B6ACB3B6ACB3B6ACB3B6ACB3B6ACB3B6ACB3B6ACB3B6 ACB3B6ACB3B6ACB3B6ACB3B6ACB3B6ACB3B6C8D0D400C8D0D4ADB4B7ADB4B7AD B4B7ADB4B7ADB4B7ADB4B7ADB4B7ADB4B7ADB4B7ADB4B7ADB4B7ADB4B7ADB4B7 ADB4B7ADB4B7ADB4B7ADB4B7ADB4B7ADB4B7ADB4B7ADB4B7ADB4B7ADB4B7C8D0 D400C8D0D4AEB5B8AEB5B8AEB5B8AEB5B8AEB5B8AEB5B8AEB5B8AEB5B8AEB5B8 AEB5B8AEB5B8AEB5B8AEB5B8AEB5B8AEB5B8AEB5B8AEB5B8AEB5B8AEB5B8AEB5 B8AEB5B8AEB5B8AEB5B8C8D0D400C8D0D4AFB6B9AFB6B9AFB6B9AFB6B9AFB6B9 AFB6B9AFB6B9AFB6B9AFB6B9AFB6B9AFB6B9AFB6B9AFB6B9AFB6B9AFB6B9AFB6 B9AFB6B9AFB6B9AFB6B9AFB6B9AFB6B9AFB6B9AFB6B9C8D0D400C8D0D4B0B7BA B0B7BAB0B7BAB0B7BAB0B7BAB0B7BAB0B7BAB0B7BAB0B7BAB0B7BAB0B7BAB0B7 BAB0B7BAB0B7BAB0B7BAB0B7BAB0B7BAB0B7BAB0B7BAB0B7BAB0B7BAB0B7BAB0 B7BAC8D0D400C8D0D4B1B8BBB1B8BBB1B8BBB1B8BBB1B8BBB1B8BBB1B8BBB1B8 BBB1B8BBB1B8BBB1B8BBB1B8BBB1B8BBB1B8BBB1B8BBB1B8BBB1B8BBB1B8BBB1 B8BBB1B8BBB1B8BBB1B8BBB1B8BBC8D0D400C8D0D4B2B9BDB2B9BDB2B9BDB2B9 BDB2B9BDB2B9BDB2B9BDB2B9BDB2B9BDB2B9BDB2B9BDB2B9BDB2B9BDB2B9BDB2 B9BDB2B9BDB2B9BDB2B9BDB2B9BDB2B9BDB2B9BDB2B9BDB2B9BDC8D0D400C8D0 D4B3BABEB3BABEB3BABEB3BABEB3BABEB3BABEB3BABEB3BABEB3BABEB3BABEB3 BABEB3BABEB3BABEB3BABEB3BABEB3BABEB3BABEB3BABEB3BABEB3BABEB3BABE B3BABEB3BABEC8D0D400C8D0D4B4BBBFB4BBBFB4BBBFB4BBBFB4BBBFB4BBBFB4 BBBFB4BBBFB4BBBFB4BBBFB4BBBFB4BBBFB4BBBFB4BBBFB4BBBFB4BBBFB4BBBF B4BBBFB4BBBFB4BBBFB4BBBFB4BBBFB4BBBFC8D0D400C8D0D4B5BCC0B5BCC0B5 BCC0B5BCC0B5BCC0B5BCC0B5BCC0B5BCC0B5BCC0B5BCC0B5BCC0B5BCC0B5BCC0 B5BCC0B5BCC0B5BCC0B5BCC0B5BCC0B5BCC0B5BCC0B5BCC0B5BCC0B5BCC0C8D0 D400C8D0D4B6BDC1B6BDC1B6BDC1B6BDC1B6BDC1B6BDC1B6BDC1B6BDC1B6BDC1 B6BDC1B6BDC1B6BDC1B6BDC1B6BDC1B6BDC1B6BDC1B6BDC1B6BDC1B6BDC1B6BD C1B6BDC1B6BDC1B6BDC1C8D0D400C8D0D4B7BEC2B7BEC2B7BEC2B7BEC2B7BEC2 B7BEC2B7BEC2B7BEC2B7BEC2B7BEC2B7BEC2B7BEC2B7BEC2B7BEC2B7BEC2B7BE C2B7BEC2B7BEC2B7BEC2B7BEC2B7BEC2B7BEC2B7BEC2C8D0D400C8D0D4B8BFC3 B8BFC3B8BFC3B8BFC3B8BFC3B8BFC3B8BFC3B8BFC3B8BFC3B8BFC3B8BFC3B8BF C3B8BFC3B8BFC3B8BFC3B8BFC3B8BFC3B8BFC3B8BFC3B8BFC3B8BFC3B8BFC3B8 BFC3C8D0D400C8D0D4B9C0C4B9C0C4B9C0C4B9C0C4B9C0C4B9C0C4B9C0C4B9C0 C4B9C0C4B9C0C4B9C0C4B9C0C4B9C0C4B9C0C4B9C0C4B9C0C4B9C0C4B9C0C4B9 C0C4B9C0C4B9C0C4B9C0C4B9C0C4C8D0D400C8D0D4BAC2C5BAC2C5BAC2C5BAC2 C5BAC2C5BAC2C5BAC2C5BAC2C5BAC2C5BAC2C5BAC2C5BAC2C5BAC2C5BAC2C5BA C2C5BAC2C5BAC2C5BAC2C5BAC2C5BAC2C5BAC2C5BAC2C5BAC2C5C8D0D400C8D0 D4BBC3C6BBC3C6BBC3C6BBC3C6BBC3C6BBC3C6BBC3C6BBC3C6BBC3C6BBC3C6BB C3C6BBC3C6BBC3C6BBC3C6BBC3C6BBC3C6BBC3C6BBC3C6BBC3C6BBC3C6BBC3C6 BBC3C6BBC3C6C8D0D400C8D0D4BCC4C7BCC4C7BCC4C7BCC4C7BCC4C7BCC4C7BC C4C7BCC4C7BCC4C7BCC4C7BCC4C7BCC4C7BCC4C7BCC4C7BCC4C7BCC4C7BCC4C7 BCC4C7BCC4C7BCC4C7BCC4C7BCC4C7BCC4C7C8D0D400C8D0D4BDC5C9BDC5C9BD C5C9BDC5C9BDC5C9BDC5C9BDC5C9BDC5C9BDC5C9BDC5C9BDC5C9BDC5C9BDC5C9 BDC5C9BDC5C9BDC5C9BDC5C9BDC5C9BDC5C9BDC5C9BDC5C9BDC5C9BDC5C9C8D0 D400C8D0D4BEC6CABEC6CABEC6CABEC6CABEC6CABEC6CABEC6CABEC6CABEC6CA BEC6CABEC6CABEC6CABEC6CABEC6CABEC6CABEC6CABEC6CABEC6CABEC6CABEC6 CABEC6CABEC6CABEC6CAC8D0D400C8D0D4BFC7CBBFC7CBBFC7CBBFC7CBBFC7CB BFC7CBBFC7CBBFC7CBBFC7CBBFC7CBBFC7CBBFC7CBBFC7CBBFC7CBBFC7CBBFC7 CBBFC7CBBFC7CBBFC7CBBFC7CBBFC7CBBFC7CBBFC7CBC8D0D400C8D0D4C0C8CC C0C8CCC0C8CCC0C8CCC0C8CCC0C8CCC0C8CCC0C8CCC0C8CCC0C8CCC0C8CCC0C8 CCC0C8CCC0C8CCC0C8CCC0C8CCC0C8CCC0C8CCC0C8CCC0C8CCC0C8CCC0C8CCC0 C8CCC8D0D400C8D0D4C1C9CDC1C9CDC1C9CDC1C9CDC1C9CDC1C9CDC1C9CDC1C9 CDC1C9CDC1C9CDC1C9CDC1C9CDC1C9CDC1C9CDC1C9CDC1C9CDC1C9CDC1C9CDC1 C9CDC1C9CDC1C9CDC1C9CDC1C9CDC8D0D400C8D0D4C2CACEC2CACEC2CACEC2CA CEC2CACEC2CACEC2CACEC2CACEC2CACEC2CACEC2CACEC2CACEC2CACEC2CACEC2 CACEC2CACEC2CACEC2CACEC2CACEC2CACEC2CACEC2CACEC2CACEC8D0D400C8D0 D4C3CBCFC3CBCFC3CBCFC3CBCFC3CBCFC3CBCFC3CBCFC3CBCFC3CBCFC3CBCFC3 CBCFC3CBCFC3CBCFC3CBCFC3CBCFC3CBCFC3CBCFC3CBCFC3CBCFC3CBCFC3CBCF C3CBCFC3CBCFC8D0D400C8D0D4C4CCD0C4CCD0C4CCD0C4CCD0C4CCD0C4CCD0C4 CCD0C4CCD0C4CCD0C4CCD0C4CCD0C4CCD0C4CCD0C4CCD0C4CCD0C4CCD0C4CCD0 C4CCD0C4CCD0C4CCD0C4CCD0C4CCD0C4CCD0C8D0D400C8D0D4C5CDD1C5CDD1C5 CDD1C5CDD1C5CDD1C5CDD1C5CDD1C5CDD1C5CDD1C5CDD1C5CDD1C5CDD1C5CDD1 C5CDD1C5CDD1C5CDD1C5CDD1C5CDD1C5CDD1C5CDD1C5CDD1C5CDD1C5CDD1C8D0 D400C8D0D4C6CED2C6CED2C6CED2C6CED2C6CED2C6CED2C6CED2C6CED2C6CED2 C6CED2C6CED2C6CED2C6CED2C6CED2C6CED2C6CED2C6CED2C6CED2C6CED2C6CE D2C6CED2C6CED2C6CED2C8D0D400C8D0D4C7CFD3C7CFD3C7CFD3C7CFD3C7CFD3 C7CFD3C7CFD3C7CFD3C7CFD3C7CFD3C7CFD3C7CFD3C7CFD3C7CFD3C7CFD3C7CF D3C7CFD3C7CFD3C7CFD3C7CFD3C7CFD3C7CFD3C7CFD3C8D0D400C8D0D4C8D0D4 C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0 D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8 D0D4C8D0D400C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0 D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8 D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D400} Visible = False end object Label1: TLabel Left = 8 Top = 16 Width = 96 Height = 13 Caption = '鼠标右键点击窗体' end object Label2: TLabel Left = 8 Top = 64 Width = 42 Height = 13 Caption = 'by jinjazz' end object Label3: TLabel Left = 8 Top = 40 Width = 83 Height = 13 Caption = '模拟Foxmail菜单' end object Label4: TLabel Left = 9 Top = 88 Width = 75 Height = 13 Caption = 'singto@citiz.net' end object ImageList1: TImageList Left = 56 Top = 160 Bitmap = { 494C010105000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 0000000000003600000028000000400000003000000001002000000000000030 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000A7A6A3006D5B8900726578000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000926C4300614523007A797900B9A6F400C9B6F700B09DF2006454 7700000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00008E6940008A643C005C3D1D005A466C00C0AEF600C0ADEF00A895E3005E49 780082838000C7CED10000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000008A64 3C009A764D00F7F0B700EBE3AB00836543006B56A100A794DF00846FB500AAD0 D400C6F8F800799BAB0000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000008A643C008A64 3C00F7F0B700F5E3AA00F3DAA400E6C08B0089709200CBB8F700A794E800BAE6 E800BAE6E8006D8A9600BA956600A7A6A3000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000008A643C00835E3700F5E3 AA00F5E3AA00F3DAA400C59A6A009B7C5B009A764D00755B5B00775B42006778 8200BAECF500798F9200F7F3B900AA885E000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000B7B8B800835E3700EBDAA300F3DA A400F5E3AA00805F4C00342626002B201E002A22220034262600342626006778 8200B0E5F2008D8C7E0092714E00A7A6A3000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000009A886C00DABC8900F3D59C00F3DA A40073512B00B68C8C00BB929200C3989800D4A9A900EBC0BF00EAC4C4007B60 610059422700A37C5600F7F0B700AF9D88000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000B69A7400F2CA9200F2CA9200704D 2A007B5934009D776B00BA8E9100C3989800D4A9A900EBC0BF00866766000000 0000594227008C70520000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000EACD9600F1C48B00F1C48B00F1C4 8B00DEAC7500A37C5600BB929200C3989800D4A9A900EBC0BF00F4CACA00674C 4C000C0A0A004746470000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000C7CED100E1C4 9F00E2AD7300E2AD7300BA8E9100C3989800D4A9A900EBC0BF00F4CACA00FBE8 E8006A5556002A2222000C0A0A00000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000BB929200C3989800D4A9A900E5BBBB00F4CACA00FAD7 D700FDF8F80085707000503D3C002A2222000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000B8A6A700AA817D00C9A3A300DAB3B200F4CACA00FAD7 D700FDF8F800FDF8F800A9868600B7B8B8000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000C3BEC1000000000000000000D4A9A900E5BBBB00F4CA CA00FAD7D700EAC4C400BAADB000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000D4A9A900F4CA CA00F4CACA00B8A6A70000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000B8A6 A700B8A6A7000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000CCCCCC00CCCCCC00CCCC CC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00000000000000 000000000000000000000000000000000000000000000000000000000000C5CD D1000000000000000000B8CDD600459DEB000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000AC9F91008C7158006D645C000000000000000000000000000000 0000000000000000000000000000000000000000000000000000AFABAC00AFAB AC00AFABAC00AFABAC00AFABAC00AFABAC00AFABAC00AFABAC00AFABAC00AFAB AC00AFABAC00AFABAC00AFABAC00AFABAC00B0742700CAAA6A00C49E6100C29A 5E00C1965B00C1965B00BC8C5500BC8C5500B6844E005A320000CCCCCC000000 0000000000000000000000000000000000000000000000000000C6C7C800D5CF B900C3AE9800967D76001F7FBA0082DAFA00269BEC0000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000875B33006E431B005A3C1E00796A590095939100000000000000 00000000000000000000000000000000000000000000814D050088530B008853 0B0088530B0088530B0088530B0088530B0088530B0088530B0088530B008853 0B0088530B0088530B0089561000B5B1B200CAA47100F3DD9300F1D58400EAD6 8600EDCB7D00ECC77B00EAC37700E8BD7300DDB36C0062370000B8811B00CCCC CC000000000000000000000000000000000000000000000000009D765D00E4D7 BD00A79883000A51800045ABE40068C7F4008BE7FD00269BEC00000000000000 0000000000000000000000000000000000000000000000000000000000000000 000087613D0094683400856031005C39140075512A00795F4300746E67000000 00000000000000000000000000000000000000000000C99F6600E1DBD500D6CF C700CFC0B700BEAA9E00B8B3AC00B8B3AC00B8B3AC00B8B3AC00B8B3AC00B8B3 AC00B7B2AB00ADA1960086500500B5B1B200CAA47100F4E19700F4DD8A00F1D5 8400EAD68600EDCB7D00EDCB7D00EAC37700DDB36C0062370000C5B27300B881 1B00CCCCCC000000000000000000000000000000000000000000775E4A00AAA1 8D0018476A0048B5F30065BEF20053B4EA005CC1F00089DDFA003197E500BCA6 9500000000000000000000000000000000000000000000000000000000008260 3F00A2774000DBBF7800E8D38700C9A66500CDA05E00CFA2600086633B005A4B 3E000000000000000000000000000000000000000000DBBC8E00F8F8F900F7F7 F700EDE6E300DACBC600D7D7D600D7D7D600D7D7D600D7D7D600D7D7D600D7D7 D600D5D5D400C2BFBA0086500500B5B1B200D4AB7300F7E69A00F5E38E00F4DD 8A00F1D58400EAD68600EDCB7D00EDCB7D00E0BD740062370000CEBA7D00C5B2 7300B8811B00CCCCCC00000000000000000000000000C5CDD1009B938700506B 7F0037ACF20082D5F80093E4F90053B4EA0074CAF20068C7F40066B9E800DEC1 A400CDB29700B5886B00C4C1BE0000000000000000000000000084634500996D 3900D0B06C00FAE99700FCE79600F8D38400F8C17200F9C07100E6AB6200AC78 440062482E00807B7500000000000000000000000000DDBF9300FCFCFC00FCFC FC00F1EAE700DECFCA00DCDCDB00DCDCDB00DCDCDB00DCDCDB00DCDCDB00DCDC DB00D9D9D800C5C2BD0086500500B5B1B200D4AB7300F9EC9D00F4E19700F5E3 8E00F4DD8A00F1D58400F1D58400EDCB7D00E2C17700653A0000E5D29400CEBA 7D00C5B27300B8811B00CCCCCC000000000000000000AF896F008C9595002584 C0009BB1B3003A3F400065BEF20065BEF20053B4EA0068C7F400E5C6A900DEC1 A400D4B69A00CDB29700C3AE9800AF896F00000000008769500091663500C5A2 5F00F6DD8E00FEE19000FECF8100FEB96B00FCB36500FAAF6200F9AE6100EFA7 5C00CA8949008E643A0066584B000000000000000000DDBF9300FCFCFC00FCFC FC00F1EAE700DECFCA00DCDCDB00DCDCDB00DCDCDB00DCDCDB00DCDCDB00DCDC DB00D9D9D800C5C2BD0086500500B5B1B200D4AB7300FCF4A400F9EC9500F4E1 9700F5E38E00F4DD8A00F2DA8700F1D58400E4C57900653A0000E5D29400DCC7 8600C5B27300B7A46D00AE791A00CCCCCC0000000000674C380010517E0094D0 DE00E8E8E800A5A6A6000000000069C2E90059BCF20094B3CE00E5C6A900DEC1 A400D4B69A00CDB29700C3AE9800C6C7C8000000000090663A00BC945600F4D6 8800F7DB8C00DFB57000BB864B00AB753F00A16E3C00986738008B5E34008157 3300A5703D00D38D48008F6236006D635B0000000000DDBF9300F9F5F200F7ED E600F1E5D900EAE0D300F3F3F300F3F3F300F3F3F300F3F3F300F3F3F300F3F3 F300F1F1F100DDDAD50086500500B5B1B200D4AB7300FCF4A400FCF49B00F9EC 9500F4E19700F5E38E00F4DD8A00F2DA8700E6CA7D00653A0000DFA34D00DFA3 4D00CF964400BE873900B5823700CCCCCC00000000000A4669008BE7FD00E1DE DC00E8E8E800D7D8D80027272700000000003C91BD00F6D6B800EBCDB200DEC1 A400D4B69A00D6AA9000B9947800000000008F745800AE824900E9C57C00F6D7 8900D2A96700986D460080564A00855B50008F6359009C7168009D7068007F54 4500B0753D00BB7C3D00A26B34007B644E0000000000DDBF9300FBF6F500FAEE EC00F3E8DE00EEE6D600FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFC FC00F9F9F900E5E2DD0086500500B5B1B200D4AB7300FFFDAA00FCF49B00FCF4 9B00F9EC9500F4E19700F5E38E00F4DD8A00EAD68600693B0000F9E9B400F6E4 AB00EDDA9C00E1CD8E00CC9021000000000079919B0068D3FC00C4C1BE00E8E8 E800E8E8E800E8E8E8006567680000000000E1DACF00F0CFB100EBCDB200DEC1 A400D4B69A00CDB29700B994780000000000BA996E00DFB46C00F3CB7E00CBA3 5F008C61320081533C00A9727200B57D7D00C68D8D00D1999900A27574005737 29009B642F00B2753800CE8B4600BE8F600000000000DDBF9300F4EDF800EBDA F400EADBE300EEE6D600FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFCFC00FCFC FC00F9F9F900E5E2DD0086500500B5B1B200D4AB7300FFFDAA00FDF99E00FCF4 9B00FCF49B00F9EC9500F8EA9300F5E38E00EAD6860071410000F9E9B400F6E4 AB00ECDAA300D89B2500000000000000000039A6E700D8F8FC00D7D8D800E8E8 E800E8E8E800E8E8E80084848400518BA800F6D6B800F6D6B800E5C6A900D6C2 AB00D4B69A00D4B69A00C7D0D40000000000DBB07300F9C67600EFB96E00BC89 4A008657270086553700AD747100C3868600D4969600DEA3A300A47776003C27 220041291400A36E3A00DCAA77000000000000000000D6B88C00E9E6EB00E5DE EA00E5DFE400E7E5E000ECECEC00ECECEC00ECECEC00ECECEC00ECECEC00ECEC EC00EAEAEA00D5D1CC0086500500B5B1B200D4AB7300FFFDAA00FFFDA100FDF9 9E00FCF49B00FCF49B00F9EC9500A5610600C0975C00F9ECC400F8E7B900EEDF AD00DCA32B00000000000000000000000000A5F8FF00D8F8FC00EAFAFA00DCE7 E600E8E8E800E8E8E800818E9300FFE7CA00FBDCC000F0CFB100EBCDB200B379 46005F6A1400B5886B000000000000000000EBC69A00F9C58200F8B86B00E8A3 5B00D08D4A00BA7B4A00AF756900C1858500D1949400E4A9A900DCAAAA00987A 780044302D00402B1B008E8173000000000000000000D3B58900E6E6E600E6E6 E600E6E6E600E6E6E600E6E6E600E6E6E600E6E6E600E6E6E600E6E6E600E6E6 E600E3E3E300CEC9C50086500500B5B1B200E2C69F00FFFEBC00FEFBB400FEFB B400FEFBB400FEFBB400FEFBB400BE873900FBF2D800F3E9CC00F2E5BA00DCA3 2B0000000000000000000000000000000000C7D0D4005AD4FB00B4FEFF00D8F8 FC00EAFAFA00E1DEDC0086B5C800C1AFA300C7A68900D2A28300D4B69A00DBBD A200BEA08500C0A594000000000000000000000000000000000000000000EDC2 9600EBB37A00DE9D6600C6856B00C1858500D0939300E4A8A800F8C0C000E8C8 C700AC969600513F3E00383131000000000000000000C49A5700C5A26B00C599 5A00C5995A00C5995A00C5995A00C5995A00C5995A00C5995A00C5995A00C599 5A00C4985900BB8E4E0086500500B5B1B2000000000000000000F3DD9300FEFE FC00FEFCF400FEFCF400F4C77700FDF6E100F6EDD400F3E9CC00DFA832000000 0000000000000000000000000000000000000000000000000000BCD0D6005AD4 FB00C7FDFE00A7E9FA0000000000ABB1B900A5A6A600C7D0D400C6C7C800BAC3 C700B5B6B600ABB1B900ABB1B900000000000000000000000000000000000000 00000000000000000000CD9E8D00B57D7900C2898300DFA3A300F5BABA00FCD3 D300F0DEDE00BEABAB00604848000000000000000000C8984D00C18B3A00BD7E 2400BD7E2400BD7E2400BD7E2400BD7E2400BD7E2400BD7E2400BD7E2400BD7E 2400BB7D2100AF69030086500500B5B1B200000000000000000000000000F3DD 9300FEFEFC00FEFCF400F5C78600FDF8E500F2EBD800DFA83200000000000000 0000000000000000000000000000000000000000000000000000C7D0D400655A 570075C9E8000000000000000000F7FEFE00F7FEFE005D5F60004E505000F7FE FE00F7FEFE00F7FEFE00F7FEFE00474849000000000000000000000000000000 0000000000000000000000000000947A770000000000D0A3A300F1B3B300FECB CB00FBE1E000DFC4C300AB9191000000000000000000D4B37B00D2AC7000D0A3 6300D0A36300D0A36300D0A36300D0A36300D0A36300D0A36300D0A36300D0A3 6300CFA16000C08631009B5C0300000000000000000000000000000000000000 0000F3DD9300FEFEFC00F7D29D00FEFAED00E5B0390000000000000000000000 00000000000000000000000000000000000000000000000000002C6776004397 AE000000000000000000C5CDD100F7FEFE00F7FEFE0027272700F7FEFE005D5F 6000F7FEFE00F7FEFE00F7FEFE00777878000000000000000000000000000000 0000000000000000000000000000000000000000000000000000DCAFAE00F5BB BB00EABBBB00C7A9AC0000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000F6D78E00F7D29D00EEBC48000000000000000000000000000000 00000000000000000000000000000000000000000000BCD0D60074605A000000 0000000000000000000000000000F7FEFE00F7FEFE002D343800848484008C95 9500F7FEFE00F7FEFE00F7FEFE004E5050000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000D4A8 A900BB969700000000000000000000000000424D3E000000000000003E000000 2800000040000000300000000100010000000000800100000000000000000000 000000000000000000000000FFFFFF0000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000FF1F000000000000F80F000000000000 F003000000000000E003000000000000C0000000000000008000000000000000 0000000000000000000000000000000000030000000000000003000000000000 C001000000000000FC00000000000000FC00000000000000FD81000000000000 FFC3000000000000FFE7000000000000FFFF803FECFFF8FFC000001FC07FF83F 8000000FC03FF01F80000007C00FE00F800000038001C0038000000180008001 8000000080008000800000008001000080000001000100008000000300010001 80000007000300018000000F0003E0018000C01FC201FC018000E03FC600FE81 8001F07FCC00FFC3FFFFF8FF9E00FFE700000000000000000000000000000000 000000000000} end object PopupMenu1: TPopupMenu AutoHotkeys = maManual Images = ImageList1 Left = 56 Top = 136 object N1: TMenuItem Caption = '显示主窗口(F)' ImageIndex = 0 end object FoxMail1: TMenuItem Caption = '最小化FoxMail(S)' end object N3: TMenuItem Caption = '-' end object N4: TMenuItem Caption = '收取所有帐户邮件(M)' ImageIndex = 4 end object P1: TMenuItem Caption = '显示所有进度窗口(P)' end object N5: TMenuItem Caption = '-' end object N6: TMenuItem Caption = '收取邮件(G)' ImageIndex = 3 end object N7: TMenuItem Caption = '写新邮件(N)' ImageIndex = 1 end object D1: TMenuItem Caption = '发送短信(D)' ImageIndex = 2 end object N8: TMenuItem Caption = '切换当前帐户' object jinjazz1: TMenuItem Caption = 'jinjazz' end object webmaster1: TMenuItem Caption = 'webmaster' end end object N9: TMenuItem Caption = '-' end object E1: TMenuItem Caption = '退出程序(E)' end end end

桌面天气秀的皮肤效果

jinjazz — Fri, 03 Jun 2005 16:23:00 GMT

今天在论坛上看到有人问，其实很简单，支持png格式就可以了.

效果如下：右边是桌面天气秀

——————————————————————————

——————————————————————————————

下载一个支持png的开发包。

http://pngdelphi.sourceforge.net/pngimage143.zip

把上面文件解压缩后路径加入delphi的path中。

新建一个工程文件,载入png并设置背景透明。

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, jpeg; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; procedure FormPaint(Sender: TObject); private procedure CMEraseBkgnd(var Message: TWMEraseBkgnd);Message WM_ERASEBKGND; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses pngimage; // 加上这个 {$R *.dfm} procedure TForm1.FormPaint(Sender: TObject); var Png: TPngObject; Rect: TRect; begin Png := TPngObject.Create; Png.LoadFromFile('C:\Program Files\鱼鱼软件\桌面天气秀 XDeskWeather\skins\BuleMetal2\bg.png'); Rect.Left := 0; Rect.Top := 0; Rect.Right := Rect.Left + Png.Width; Rect.Bottom := Rect.Top + Png.Height; Png.Draw(Canvas, Rect); Png.Free; end; procedure TForm1.CMEraseBkgnd(var Message: TWMEraseBkgnd); begin Brush.style := bsClear; ////设置背景透明 inherited; end; end.

关于令狐虫的“一道智力题及解答”的SQL语句

jinjazz — Mon, 16 May 2005 12:21:00 GMT

原题:

http://borland.mblogger.cn/topcat/posts/20179.aspx

小明和小强都是张老师的学生，张老师的生日是M月N日，2人都知道张老师的生日是下列10组中的一天，张老师把M值告诉了小明，把N值告诉了小强，张老师问他们知道他的生日是那一天吗？ 3月4日 3月5日 3月8日 6月4日 6月7日 9月1日 9月5日 12月1日 12月2日 12月8日小明说：如果我不知道的话，小强肯定也不知道小强说：本来我也不知道，但是现在我知道了小明说：哦，那我也知道了请根据以上对话推断出张老师的生日是哪一天？

~~努力把下面SQL并为一句且嵌套避免重复查询，失败~~

SQLServer的测试答案

--SQLServer2000建立测试环境 set nocount on create table logic (Value char(2)) insert into logic(value) select('34') union select('35') union select('38') union select('64') union select('67') union select('91') union select('95') union select('c1') union select('c2') union select('c8') union select('c5') --测试语句 --1、小明说：如果我不知道的话，小强肯定也不知道 delete from logic where left(value,1) in( select left(value,1) from logic a where not exists ( select * from logic where right(a.value,1)=right(value,1) and value<>a.value ) ) --2、小强说：本来我也不知道，但是现在我知道了 delete a from logic a where exists( select * from logic where right(value,1)=right(a.value,1) and value<>a.value) --3、小明说：哦，那我也知道了 delete a from logic a where exists( select * from logic where left(value,1)=left(a.value,1) and value<>a.value) select * from logic --删除测试环境 drop table logic set nocount off --执行结果 /*-------------------------- Value 91 ----------------------------*/

执行结果是9月1号，同样把测试环境改为如下，可以得出我回帖中的扑克牌推理的答案是45，也就是方块5

insert into logic(value) select('1A') union select('1Q') union select('14') union select('22') union select('23') union select('24') union select('27') union select('28') union select('2J') union select('34') union select('35') union select('36') union select('3Q') union select('3K') union select('4A') union select('45')

自行车又丢了

jinjazz — Fri, 13 May 2005 20:51:00 GMT

自从我家小田鸡出来后被偷了三部自行车,一部手机

Equivalent of Oracle functions in SQLServer

jinjazz — Fri, 13 May 2005 11:42:00 GMT

以前在论坛发过，但要求改成鸟语

Equivalent of Oracle functions in SQLServer
{by jinjazz}

arithmetic functions:

1\Returns the absolute value of the specified numeric expression
O:select abs(-1) value from dual  --1
S:select abs(-1) value    --1

2\next highest integer that is greater than or equal to the specified numeric expression
O:select ceil(-1.001) value from dual  -- -1
S:select ceiling(-1.001) value   -- -1

3\nearest integer that is less than or equal to the specified numeric expression
O:select floor(-1.001) value from dual -- -2
S:select floor(-1.001) value     -- -2

4\Truncates a real number to an integer.
O:select trunc(-1.002) value from dual  -- -1
S:select cast(-1.002 as int) value  -- -1

5\rounded to the nearest whole number
O:select round(1.23456,4) value from dual -- 1.2346
S:select round(1.23456,4) value   -- 1.23460

6\the exponential of the specified numeric expression
O:select Exp(1) value from dual   -- 2.71828182
S:select Exp(1) value        -- 2.7182818284590451

7\the natural logarithm (base e) of the specified numeric expression
O:select ln(2.7182818284590451) value from dual;-- 1
S:select log(2.7182818284590451) value -- 1

8\the common logarithm (base 10) of the specified numeric expression
O:select log(10,10) value from dual;   -- 1
S:select log10(10) value       -- 1

9\Raises Base to any power.
S:select power(3,4) value      -- 81
O:select power(3,4) value from dual  -- 81

10\Returns the square root of the specified numeric expression
O:select SQRT(4) value from dual  -- 2
S:select SQRT(4) value    -- 2

11\Returns a random number between 0 and 1.
O:select sys.dbms_random.value(0,1) value from dual;
S:select rand() value

trigonometric functions:

12\sine,cosine,tangent of an angle.
O:sin,cos,tan function
S:sin,cos,tan function
   select sin(PI()/2) value

13\Asin,Acos,Atan,Atan2 funcions

14\Oracle cannot convert the radians of an angle to it's degrees
S:select DEGREES(pi())    --180

15\Oracle cannot convert the degrees of an angle to it's radians
S:select RADIANS(180.0)   --3.141592653589793100

String Functions

16\ASCII value or a specified character
O:select ascii('a') value from dual
S:select ascii('a') value

17\character for a specified ASCII value
O:select chr(97) value from dual
S:select char(97) value

18\concatenates two strings
O:select CONCAT('11','22')||33 value from dual
S:select '11'+'22'+'33' value

19\the starting position of the specified expression in a character string.
O:select INSTR('sdsq','s',2) value from dual
S:select CHARINDEX('s','sdsq',2) value

20\Returns part of a string.
O:select substr('abcd',2,2) value from dual
S:select substring('abcd',2,2) value

21\Returns a string with occurrences of one substring replaced by another substring.
O:SELECT Replace('abcdef', 'bcd', 'ijklmn') value from dual
S:SELECT STUFF('abcdef', 2, 3, 'ijklmn') value

22\Returns the number of characters in a string
O:length
S:len,datalength

23\Returns a character expression after converting uppercase character data to lowercase
Lower

24\Returns a character expression with lowercase character data converted to uppercase
upper

25\Trims spaces characters from a string.
O:ltrim,rtrim,trim
S:ltrim,rtrim

26\Returns a four-character (SOUNDEX) code to evaluate the similarity of two strings
O:SELECT SOUNDEX ('Smith'), SOUNDEX ('Smythe') from dual
S:SELECT SOUNDEX ('Smith'), SOUNDEX ('Smythe')

DateTime Functions

27\Returns the current system date and time
O:select sysdate value   from dual
S:select getdate() value

28\Returns the current system date
O:select trunc(sysdate) value   from dual
   select to_char(sysdate,'yyyy-mm-dd') value   from dual
S:select convert(char(10),getdate(),20) value

29\Returns the current system time
O:select to_char(sysdate,'hh24:mm:ss') value   from dual
S:select convert(char(8),getdate(),108) value

30\Returns an integer representing the specified datepart of the specified date
S:DATEPART , DATENAME
O:to_char

31\Converts a string to a DateTime value.
S:select cast('2004-09-08'as datetime) value
O:SELECT To_date('2004-01-05 22:09:38','yyyy-mm-dd hh24-mi-ss') vaule FROM DUAL;

32\Returns the number of intervals between two dates
S:select datediff(ss,d2,d1) value
O:SELECT (d1-d2)*24*60*60 vaule FROM DUAL;

33\Returns a date to which a specified time interval has been added.
S:select dateadd(mi,8,getdate()) value
O:SELECT sysdate+8/60/24 vaule FROM DUAL;

乌鸦嘴真的很灵！

jinjazz — Tue, 10 May 2005 21:32:00 GMT

上个月还跟老婆吹牛，俺从小到大连一毛钱也没有丢过~~

结果，今天在一部不是很挤的公交车上

很不幸的被人把口袋里的手机摸走了

BS万恶的小偷

爽鸟爽鸟，12天长假

jinjazz — Wed, 27 Apr 2005 12:28:00 GMT

5.1-5.7长假

5.8,5.9福利假（进公司1年多第一次听说还有这个^o^）

5.10-5.12和5.14,5.15,5.29调休

再秀一下我家宝宝

jinjazz — Fri, 22 Apr 2005 16:51:00 GMT

现在的宝宝真幸福,每有纪念意义的时刻都能留下来~~

昨天给他听到lp手机里的铃声蓝色多瑙河便咯咯咯的笑