jinzhili-优快云博客

原创 Android 关闭硬件加速功能

关闭某一个控件的硬件加速功能findViewById(R.id.btn).setLayerType(View.LAYER_TYPE_SOFTWARE,null);关闭一个Activity的硬件加速功能AndroidManifest.xml中<activity android:name=".MainActivity" android:hardwareAccelera...

2019-09-19 09:44:53 853

原创 Fragment 动态加载例子

activity_main.xml<?xml version="1.0" encoding="utf-8"?><LinearLayout xmlns:android="http://schemas.android.com/apk/res/android" xmlns:app="http://schemas.android.com/apk/res-auto" ...

2019-09-17 23:29:19 295

原创 Android menu icon 不显示

<?xml version="1.0" encoding="utf-8"?><menu xmlns:android="http://schemas.android.com/apk/res/android"> <item android:id="@+id/navigation_home" android:icon="@dra...

2019-09-16 14:41:57 1367

原创 eclipse中编译时enum出现cannot be resolved to a type错误

eclipse中编译时enum出现cannot be resolved to a type错误eclipse中编译时enum出现cannot be resolved to a type错误通常是因为eclise使用的jdk版本的问题。。。默认是使用的是jdk1.5应该去选择成jdk1.6或者更高的版本。项目右键->properties->Java Compiler-&g...

2019-09-08 07:29:51 874

原创 Eclipse项目导入到Android Studio中如何操作？

时隔多年后又重新开始写代码，已不是那时的Android了。Android Studio 是个好工具，在学习的过程中遇到了不少的问题，想导入以前的代码重新学习一下。总结了一点小经验分享出来。1、先用eclipse 导出为 gradle 工程2、修改以下几处build.gradle修改：后面标星号的地方buildscript { repositories { go...

2019-08-29 21:51:35 529

原创非常好的IOS ，IPHONE 游戏源码，值得下载学习收藏先

无意中在网上发现的，记录一下。http://qiannao.com/ls/zhaoguyilang/61911f16/

2013-04-27 17:21:54 1399

原创通知栏自定义安装提示

private void showNotifyInstall() { NotificationManager manager = (NotificationManager) getSystemService(Context.NOTIFICATION_SERVICE); Notification notify = new Notifi

2012-12-24 10:46:42 645

原创当前时间加五分钟

function AddMinute(var aDateTime: TDateTime): String;var n,y,r,x,f,m,hm : word;begin //当前时间加五分钟 aDateTime:=aDateTime+strtodatetime(00:05:00); DecodeDateTime(adateTime,n,y,r,x,f,m,hm); AddMinute

2009-02-19 14:58:00 1901

原创 OraQuery 显示所有记录行

OraQuery.FetchAll := TRUE;默认情况下为FALSE。FetchRows 是分页的行数它需要 FetchAll 为FALSE才管用。

2008-04-09 13:58:00 1616 1

原创安装完JDK后无法编译JAVA程序出现java.lang.NoClassDefFoundError错误提示

在安装完Jbuilder2005后也出现这样的情况原因是因为：没有设置 CLASSPATH java 找不到类解决方法：进入"系统属性--高级--环境变量", 新建环境变量名为CLASSPATH, 值为 ".;C:/JDK1.5/lib/dt.jar;C:/JDK1.5/jre/lib/rt.jar"

2008-03-25 15:44:00 1330

原创 RichEdit读取Xls文件，保留表格样式

CxGrid 导出 Exceluses cxGridExportLink;ExportGridToExcel(c: emp.xls,self.cxgrd1);RichEdit读取Xls文件，保留表格样式uses Clipbrd,ComObj;procedure TForm3.btn1Click(Sender: TObject);var xls:variant; begin ur

2007-09-18 09:41:00 1785

Format 是一个很常用, 却又似乎很烦的方法, 本人试图对这个方法的帮助进行一些翻译 , 让它有一个完整的概貌, 以供大家查询之用: 首先看它的声明: function Format (const Format: string; const Args: Array of const): string; overload; 事实上 Format 方法有两个种形式, 另外一种是三个参数的, 主要区

2007-09-17 10:30:00 973

原创 RxRichEdit高级操作

unit InsertRichEditUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, RichEdit, UHISRichEd;type TEditStreamCallBack = function(dwCookie: Lon

2007-09-14 13:20:00 3276

原创 sql 带序号

CREATE TABLE [dbo].[auto] ( [id] int NULL, [name] char(10) COLLATE Chinese_PRC_CI_AS NULL, [age] int NULL)ON [PRIMARY]GOINSERT INTO [auto] ([id], [name], [age])VALUES (11, a, 12)GOINSERT INTO

2007-08-31 14:26:00 1331

原创 CxGrid ,自动行号

unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxD

2007-08-09 12:55:00 3187 1

原创 RichEdit

{*******************************************************}{ }{ Delphi VCL Extensions (RX) }{

2007-08-09 10:09:00 6630

原创计算列的另类用法

--计算列的另类用法CREATE TABLE t2 (a int, b int, c int, x float, y AS CASE x WHEN 0 THEN a WHEN 1 THEN b ELSE c END)INSERT INTO [t2] ([a], [b], [c], [x])VALUES (1, 2, 3,

2007-08-01 11:31:00 892

原创 cxGrid 最佳列宽

cxGridcolumn.ApplyBestFit(); 做一个循环为调用每个列的 ApplyBestFit 方法。

2007-07-17 17:29:00 4960 1

原创 cxGrid中每一行记录前都有一个CheckBox的方法

1.双击 Clientdateset，添加一个新的字段check ，类型为 BOOLEAN ，Field Type=fkInternalCalc ReadOnly = False2.在cxGrid 中添加所有的字段，设定check 字段的Properties为 CheckBox . ReadOnly = False;NullStyle = nssUnchecked

2007-07-16 21:26:00 3129 1

转载 SQL交叉报表的实现

CREATE TABLE [Test] ([id] [int] IDENTITY (1, 1) NOT NULL ,[name] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,[subject] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,[Source] [numeric](18, 0) NUL

2007-07-08 10:32:00 3656

原创获得机器名称

function GetComputerName : String;var pcComputer : PChar; dwCSize : DWORD;begin dwCSize := MAX_COMPUTERNAME_LENGTH + 1; GetMem( pcComputer, dwCSize ); try if Windows.GetComputerName( pcCom

2007-07-02 11:18:00 817

原创回车光标自动后移，一个系统消息

KeyDown 事件SendMessage(self.Handle,WM_NEXTDLGCTL,0,0);

2007-06-29 09:16:00 1010

原创独立编号表，生成编号

create table tb_no( Name char(2) primary key , --编号种类的名称 Head nvarchar(10) not null default , --编号的前缀 CurrentNO int not null default 0, --当前的编号 BHLen int n

2007-06-20 22:46:00 971

原创 PowerDesigner11生成SQL脚本时自动带备注信息

要为每一个表设定它的Owner为dbo这样在生成脚本的时候就会自动将每个字段的备注信息导入到SQLServer中字段的描述当中了。在实际的开发工作中看起来也方便。

2007-06-10 21:43:00 1649

转载 PowerDesigner11中批量根据对象的name生成comment的脚本

PowerDesigner11中批量根据对象的name生成comment的脚本******************************************************************************* File: name2comment.vbs* Purpose: Database generation cannot use object

2007-06-10 21:35:00 848

原创用于在TComboBox中存储编号的小过程

用于在TComboBox中存储编号的小过程D5procedure jzlLoadStrData(CBB: TComboBox; const S: string; CDS: TClientDataSet);var pID : PChar; sID : string; sName : string;begin if (not CDS.Active) then exit; C

2007-06-05 22:10:00 753

原创不登录网站也能查看邮件数量的方法

不登录网站也能查看邮件数量的方法：以163为例在DOS窗口下输入：telnet pop3.163.com 110 回车user myusername 回车pass 输入邮箱密码回车list 回车此时会列出每一封邮件的大小RETR 邮件索引号回车用于在DOS下查看指定邮件的内容STAT 回车将显示邮箱中邮件的总数和总的邮件大小DELE 邮件索引号回车将会从邮件服务器上

2007-06-05 21:54:00 1379

原创一个递归小函数，用于组合树控件的文本

一个递归小函数，用于组合树控件的文本 function GetText(node : TTreeNode) : string; var i,iLeve : integer; s,sp : string; begin if Assigned(node) then begin s := node.text; if Assigned(node.Paren

2007-06-05 21:45:00 704

原创用于处理树的一个存储过程

一个用于树的存储过程create proc TS_P008 @in_deptid varchar(23), @in_len intAS-- 查询部门-- jzl-- 2006-12-15-- @in_deptid 当前节点的编号第一次调用时为空-- @in_len 当前节点的编号的长度加2 if len(@in_deptid) =0 begin select b.dep

2007-06-05 21:43:00 777

原创 Delphi 与网页结合的开发程序主界面

用Delphi 做程序的主框架。利用页面做导航窗口，那么如何才让Delphi来响应页面中的单击操作呢？其实很简单1.在主程序中加一个TWebBrowser组件用它来显示页面2.在BeforeNavigate2事件中处理响应操作例如： If Pos(varex:0101, URL)>0 Then begin //执行一些操作 SendMessage(frmMain.Han

2007-03-07 14:44:00 5192

转载系统环境变量的设置Delphi函数

uses TRegistry; function SetGlobalEnvironment(const Name, Value: string; const User: Boolean = True): Boolean; resourcestring REG_MACHINE_LOCATION = Syst

2007-03-02 17:34:00 1653

转载系统环境变量的设置Delphi函数

uses TRegistry; function SetGlobalEnvironment(const Name, Value: string; const User: Boolean = True): Boolean; resourcestring REG_MACHINE_LOCATION = Syst

2007-03-02 17:33:00 1820

原创用DELPHI设置文件的属性

用DELPHI设置文件的属性1. 在interface下的uses中引用filectrl单元2. 首先取文件属性 var attr : integer; filename : string; begin filename := myfile; attr :

2007-03-02 17:32:00 3818

原创加载页面时自动打开另一个新页面的并同时打开一个exe程序

打开新页面 function OPENNEW(){ window.open("path.jsp", "win2"); }执行exe //当加载页面时，就自动打开聊天程序 jzl 2007-2-26 try{ String username =(String)session.getAttribute("user_name"); String passwd = request.

2007-02-28 11:46:00 3754

原创控制只运行一份程序的另一个方法

将以下代码加到工程文件中即 .dpr 文件中const iAtom=you exe name; //如jzlVAR Mutex:THandle;begin Mutex:=CreateMutex(NIL,True,you exe name); IF GetLastError begin Application.Initialize; Applicati

2007-02-28 11:26:00 828

转载窗体不出现在任务栏上

uses ShellApi; procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); end;

2007-02-27 09:56:00 902

原创 jsp 得到当前的路径

String strAbsPath=application.getRealPath(""); strAbsPath = strAbsPath + "//"; strAbsPath = strAbsPath.replaceAll("////","////////"); out.print("alert("+strAbsPath+");");%>

2007-02-26 17:53:00 1368

原创 java操作外部程序

//用JAVA调用外部应用程序 //当加载页面时，就自动打开聊天程序 jzl 2007-2-26 try{ String username =(String)session.getAttribute("user_name"); String passwd = request.getParameter("password"); String strAbsPath=application.

2007-02-26 17:49:00 826

原创在IE关闭时，转到一个页面中，执行一些操作，然后关闭IE.

在IE关闭时，转到一个页面中，执行一些操作，然后关闭IE.脚本代码如下： window.onunload = functionHandler; function functionHandler() { location.href = "ExistsSystem.jsp"; 转到同目录中的另一个文件 //confirm(start); 弹出对话框，测试用的。 w

2007-01-26 16:39:00 873

转载实现控件的移动，改变大小（DELPHI实现）

实现控件的移动，改变大小（DELPHI实现）主要使用Perform方法 function Perform(Msg: Cardinal; WParam, LParam: Longint): Longint; 只要能够使用类似于win32API的函数SendMessage()，本方法同样可在其他环境里应用。用Delphi实现首先，建立一个应用程序，在一个窗体里加入一个Panel1，保存为m

2007-01-16 13:59:00 4059 1