ListView基本用法大全

Delphi ListView基本用法大全
//增加项或列(字段)

ListView1.Clear;
ListView1.Columns.Clear;
ListView1.Columns.Add;
ListView1.Columns.Add;
ListView1.Columns.Add;
ListView1.Columns.Items[0].Caption:='id';
ListView1.Columns.Items[1].Caption:='type';
ListView1.Columns.Items[2].Caption:='title';
ListView1.Columns.Items[2].Width:=300;
Listview1.ViewStyle:=vsreport;
Listview1.GridLines:=true;               //注:此处代码也可以直接在可视化编辑器中完成,

查看更多内容...

Posted in 软件开发 at November 27, 2012. by 傻猫 .    Views: 4322    1 Comment

[终极绝招]iPhone未知错误1600解决办法

从IOS6降级到IOS5时,老是报1600错误,把itunes降级到10.5  还是一样的1600错误,我靠,用自制固件还是1600错误,后来在查到一个办法:

机器进入DFU模式后,打开sn0wbreeze的iREB

看见提示窗口后,打开itunes选择固件恢复,就可以了。

Posted in 杂七杂八 at November 26, 2012. by 傻猫 .    Views: 4438    No Comments

idstring单元中用得最多的一个函数SplitString原形

在delphi7中增加了idstring单元,里边有一个splitstring函数,对于字符串拆分处理非常方便,但是在delphi6中没有这个单元,我把这个函数原形提出来,在D6下也可以直接使用。

procedure SplitString(const AStr, AToken: String; var VLeft, VRight: String);
var
  i: Integer;
  LLocalStr: String;
begin
  { It is possible that VLeft or VRight may be the same variable as AStr. So we copy it first }
  LLocalStr := AStr;
  i := Pos(AToken, LLocalStr);
  if i = 0 then
    begin
    VLeft := LLocalStr;
    VRight := '';
    end
  else
    begin
    VLeft := Copy(LLocalStr, 1, i - 1);
    VRight := Copy(LLocalStr, i + Length(AToken), Length(LLocalStr));
    end;
end;

Posted in 软件开发 at November 23, 2012. by 傻猫 .    Views: 3541    No Comments

windows7无法打开.hlp帮助文件的解决办法

Windows 帮助 (WinHlp32.exe) 是一个帮助程序,自 Microsoft Windows 3.1 版本的操作系统以来,它已包含在 Microsoft Windows 中。但是,在许多发行版中,Windows 帮助程序均未进行重大更新,不再符合 Microsoft 标准。因此,自 Windows Vista 版本以来,Windows 帮助程序不再作为 Windows 的一项功能随之发行,在 Windows 7 中也是如此。如果要查看 32 位的 .hlp 文件,必须从 Microsoft 下载中心下载并安装该程序 (WinHlp32.exe)。 

解决方法:下载补丁包Windows6.1-KB917607-x86.msu

请到官方下载

32位win7
http://download.microsoft.com/download/9/A/8/9A8FCFAA-78A0-49F5-8C8E-4EAE185F515C/Windows6.1-KB917607-x86.msu

64位win7
http://download.microsoft.com/download/9/A/8/9A8FCFAA-78A0-49F5-8C8E-4EAE185F515C/Windows6.1-KB917607-x64.msu

 

Posted in 杂七杂八 at November 21, 2012. by 傻猫 .    Views: 5904    1 Comment

安装程序找不到office.zh-cn/Setup.xml

我之前安装了office2010,发现不怎么好用,删除,还是用office 2007好一点,结果在安装的时候碰到安装程序找不到office.zh-cn/Setup.xml ,靠,目录下明明有这个文件,居然安装不成功,在网上搜索了一下,发面跟我电脑上安装的VS2008有冲突,经过多方查找资料和本人实验测试,解决办法如下:

1、从vs2008的光盘中找到\WCU\WebDesignerCore\WebDesignerCore.EXE,提取出来,然后解压到目录。

(可以直接双击安装,一般会在G下生成一个临时目录,赶紧把文件夹复制到其它地方,搞定)

 2、把WebDesignerCore\visualwebdeveloper.zh-cn\目录下的visualwebdevelopermui.msi复制到C:\windows\installer下     (注意:installer是系统隐藏目录,需要把文件夹设置时把系统目录显示出来)

3、运行WebDesignerCore\下的setup.exe,选择卸载。

4、卸载完,再打开setup.exe,进行重装。

5、再次安装office2007.搞定~

Posted in 杂七杂八 at November 15, 2012. by 傻猫 .    Views: 6207    No Comments

二维表实现三级组织视图

Select 流水号,类型,名称,
营业厅=
(
  case when 类型='网点' then (select  name from aipu_BigType where sid=v_area.上级编号)
  end
),
分公司=
(
  case when 类型='营业厅' then (select  name from aipu_BigType where sid=v_area.上级编号)
       when 类型='网点' then (select name from aipu_BigType where sid=(select code from aipu_BigType where sid=v_area.上级编号))
  end
)

,编号,上级编号,创建时间,修改时间,修改者 from V_area

Posted in 软件开发 at November 14, 2012. by 傻猫 .    Views: 3828    No Comments

TChart生成一个简单的图标

先在界面上拖一个Chart控件,把属性都设置好,通过代码添加数据即可。

      cht1.Title.Text.Text:='销售业绩';
      cht1.Series[0].AddXY(1, 56, '东门');
      cht1.Series[0].AddXY(2, 67, '南门');
      cht1.Series[0].AddXY(3, 34, '西门');
      cht1.Series[0].AddXY(4, 78, '北门');
      cht1.Series[0].AddXY(5, 100, '市中心');

Chart属性:AllowZoom  自动放大缩小

Series1 属性: ColorEachPoint  每个数据项色彩随机不同

//动态改变图表样式
var tmp : TChartSeries;
begin
     tmp := Series1;
      case cbb1.ItemIndex of
        0: ChangeSeriesType(tmp,TChartSeriesClass(TBarSeries));   //柱状图
        7: ChangeSeriesType(tmp,TChartSeriesClass(TPieSeries));   //饼图
      end ;
end;

TChart是一个Windows窗体控件,必须依附一个窗体或Windows控件才能使用。如果要不显示TChart的话,可以将TChart的Visible属性设为False来使用。下面的例子创建了一个隐藏的TChart来生成图表:
var
Chart: TChart;
S: TChartSeries;
TmpFile: string;
begin
Chart := TChart.Create(nil);
try
    Chart.Parent := Application.MainForm;
    Chart.Visible := False;
    Chart.Title.Text.Text := '测试图表';
    S := TBarSeries.Create(Chart);
    Chart.AddSeries(S);
    S.Title := '嘿嘿';
    S.AddXY(1, 56, '一月', clGreen);
    S.AddXY(2, 67, '二月', clYellow);
    S.AddXY(3, 34, '三月', clBlue);
    S.AddXY(4, 78, '四月', clRed);
    Chart.View3D := False;
    Chart.BackColor := clWhite;
    Chart.Gradient.StartColor := clWhite;
    Chart.Gradient.EndColor := clWhite;
    Chart.Gradient.Visible := True;
    TmpFile := Application.ExeName + '.bmp';
    Chart.SaveToBitmapFile(TmpFile);
    Image1.Picture.LoadFromFile(TmpFile);
finally
    Chart.Free;
end;
end;

Posted in at November 9, 2012. by 傻猫 .    Views: 2834    No Comments

MX M030/M031/M032正式固件发布(Flyme 1.1.5)

MX正式固件发布(Flyme 1.1.5)  

MX固件(Flyme 1.1.5)
适用机型:M030/M031/M032
软件大小:117M

下载地址一
下载地址二 

MD5: 00e20a547db377f5e4fc3c0d2b86e80f
SHA1: ad218438b6141d7633192fe290f589f74803e505


注意事项:
1)2.3.5固件升级到Flyme 1.1.5,建议清除用户数据升级;
2)2.3.5固件升级为Flyme 1.1.5后,不能刷回旧版本,请谨慎操作; 
3)升级前请通过Flyme帐户备份手机数据,Flyme 1.1.5将禁止使用本地恢复;

4)香港版MX升级内地版MX机器固件,可能会造成应用程序数据不兼容的情况。

升级流程如下:
1)将Flyme 1.1.5系统固件拷贝到sd卡根目录->关机->按电源和音量加键升级系统;
2)成功后,系统自动开机进入系统;
3)进入系统设置->关于手机,查看软件版本是Flyme 1.1.5,说明固件升级成功。


变更记录:
1) 增加拍照动画;   
2) 改善流媒体播放体验; 
3) 提升GPS使用过程中的精度; 
4) 解决解锁时偶现来电界面问题;   
5) 解决IMAP邮件新邮件无提示音的问题; 
6) 解决彩信中图片或视频不能保存的问题;
7) 解决Wi-Fi在部分场景下速度变慢的问题;
8) 解决部分机器打开蓝牙功能时出现的重启问题;
9) 解决第三方软件导致屏幕唤醒问题(例如:Viber);
10)优化来电界面多指触摸的场景,避免误挂断来电的问题;
11)解决Flyme同步邮件账户后,邮件通知提醒功能失效问题;
12)解决从邮件中点击视频附件,提示图库已停止运行的问题;
13)解决关闭邮件横屏,然后横屏启动邮件程序,邮件报错问题;

Posted in 移动终端 at November 7, 2012. by 傻猫 .    Views: 5378    2 Comments