首页 相关文章 Delphi自带的SpinEdit控件太丑了自己写一个替换它

Delphi自带的SpinEdit控件太丑了自己写一个替换它

unit UpDownEdit;interface uses Windows, SysUtils, Classes, Controls, StdCtrls, ComCtrls, Messages; type TUpDownEdit = class(TCustomControl) private { Private declarations } UpDown: TUpDown; Edit: TEdit; FMin: Integer; FMax: Integer; FOnChange: TNotifyEvent; FPosition: Integer; procedure WMSize(var Msg: TWMSize); message wm_Size; procedure SetMax(const Value: Integer); procedure SetMin(...[ 查看全文 ]

2016-02-19 标签:
  • 功能很简单,就是根据传入的统计数据生成图片。 可以按照线条、圆柱、饼状进行显示。 但现在只完成了线条这一个功能。 有兴趣的朋友可以看看,如果有什么问题请和我联系。 目前主要功能: 1。线状显示数据 2。自定义图片大小 3。自定义图表标题文字的内容、字体、大小、颜色 4。X、Y轴文字内容 5。按天、月显示数据 ………………………… 现在拿出来...[ 查看全文 ]
  • 标签:Web开发
    DreamScript是我去年1月就开始自己写的一个框架,后在6月因为换工作的原因导致无更多时间自己一人写下去,期间对他多次改进,先那出来,希望大家看看一起学习,如果有兴趣一起做的,我也很欢迎。在这里我说明一下他是一个主要使用SOAP和WebService交换数据的,这也是我的想法,只使用WS做为通信标准。在这其中我融合了很多框架的亮点,根据自己的喜好写了出来。 以下我最近加的功能的版本说明: 2006-12-29&...[ 查看全文 ]
  • 标签:ASP
      本文用到没有用到adodb.command命令,只是简单的做了一个用adodb.recordset来执行存储过程。 存储过程: '在SQL中建立dbo.tse存储过程 CREATE PROCEDURE [dbo].[tse] @keyword varchar(20)=null,  '定义查询的关键字 @choose int=null                    '定义查询的类型(1为查询列title...[ 查看全文 ]
  • 标签:Web开发
    New Document [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] [ 查看全文 ]
  • 一个优秀的网格控件CGridCtrl 作者:戴绍忠   网格控件的用途非常广泛,在我的一个项目中需要实现类似EXCEL的界面,为此我采用了一个优秀的CGridCtrl控件,其原作者为 Chris Maunder (原作者所写的MFC Grid control的最新版本可以到http://www.codetools.com/miscctrl/gridctrl.asp查阅)为了方便地实现单元格的合并和撤销,我定制了如下的几个公有成员函数 ...[ 查看全文 ]
  • 标签:PHP
    在开始这篇文章时,作者假设读者已能够写出一个用户的登入认证程序. ---------------------------------------------------------- 记数器可完成访问 web 页的总次数,但却不能得知一个时段中访问量的动态记载,下面就来介绍如何写一个各个时段动态显示访问量的方法. 要记载访问量,首先就要在 mysql 内建立一个数据库,姑且给这个数据库取名为 line,同时建立一个名为 line 的数据表,表内的字...[ 查看全文 ]
  • 标签:ASP
    <!--#include file="../lib/filelib.asp"-- <% Response.write "<title上传文件至当前文件夹</title" Response.Write "<body bgcolor=""#D6D3CE"" leftmargin=""0"" topmargin=""0"" title = "" 请您遵守国家相关法律法规上传文件。上传前请杀毒,否则系统将会自动删除此文件!""" '**Start Encode** Action=Request("A") If Action="UL" Then DoUpload Request.Cookies("DAZHOU.NET")("now...[ 查看全文 ]
  • 一个效果很好的outlookbar控件CXTOutBarCtrl 作者:许昌元 下载本文示例源代码 该控件来源于Xtreme Toolkit,我对其进行了修改,使其不依赖于类库独立存在,由于我没有运用XT的其他类,可能你会觉得它没有在类库中的华丽,但相对于其小巧的体格而言,已经很难得了。 源文件包括两个头文件,两个执行文件:XTMemDC.h,XTMemDC.cpp,XTOutBar...[ 查看全文 ]
  • 标签:Web开发
    主要是集成了常用的扩展,包括Dom与String、Array、StringBuffer、NameSpace等,当然还少不了Ajax。体积约8k。因为严格控制体积,所以功能有限。如果只要Ajax部分,就1k而已。 这个小框架已经应用到公司的项目,并开始逐步在前端展示页面上接替prototype.js。以后将围绕这个框架做一些应用。 代码如下: /* *    My JavaScript Framework *    Vers...[ 查看全文 ]
  •   calendar.js    function atCalendarControl(){   var calendar=this;   this.calendarPad=null;   this.prevMonth=null;   this.nextMonth=null;   this.prevYear=null;   this.nextYear=null;   this.goToday=null;   this.calendarClose=null;   this.calendarAbout=null;   this.head=null;   this.body=null;   ...[ 查看全文 ]
  •    strAbout+="今日\t: 返回当天日期\n";    strAbout+="\t: 下一月\n";    strAbout+="<<\t: 下一年\n";    strAbout+="\nAgetimeCalendar\nVersion:v1.0\nDesigned By:暂停打印 2004-03-16  afos_koo@hotmail.com \n";    alert(strAbout);   }   calendar.setup();  }   <!DOCTYPE HTML PUBLIC "-//W3C//DTD HT...[ 查看全文 ]
  •     menupad=new Array();     menupad[0]=new Array("替换");     menupad=new Array("--");     menupad=new Array("无间道");     menupad=new Array("无孔不入");     var menu=new atMenu(menubar,menupad);    }   </script   </HEAD   calendar.html   <BODY   <table wi...[ 查看全文 ]
  •      else{       var theCell=theRow.insertCell(j);       theCell.style.cssText="background-color:#F0F0F0;cursor:default;";      }     }    }    //****************调整日历位置**************//    var offsetPos=calendar.getAbsolutePos(calendar.s...[ 查看全文 ]
  • 标签:flash教程
    我的这段AS写了不少有用的函数,如画按钮函数,画坐标轴函数,画框架函数.这些函数都有很强的移植性,以后都可以直接拿来用; //================按钮和坐标轴上的文字=====================// mytxt = ["开始", "暂停", "清除", "全屏", "退出", "继续"]; myNum = ["-30", "-20", "-10", "0", "10", "20", "30", "X", "Y"]; //=====画按钮(type不为0时按钮为凸起状态type=0时按钮为凹下状态)=====// CommandButton...[ 查看全文 ]
  •    var tbBoard=document.createElement("table");    divBoard.insertAdjacentElement("beforeEnd",tbBoard);    tbBoard.style.cssText="position:absolute;top:0;left:0;width:100%;height:10;font-size:9pt;";    tbBoard.cellPadding=0;    tbBoard.cellSpacing=1;    tbBoard.bgColor="#333333";   /************** 设置各功能按...[ 查看全文 ]
  •   }    trRow = tbBoard.insertRow(2);    var cnDateName = new Array("周日","周一","周二","周三","周四","周五","周六");    for (var i = 0; i < 7; i++) {     tbCell=trRow.insertCell(i)     tbCell.innerText=cnDateName[i];     tbCell.align="center";     tbCell.width=35;   &...[ 查看全文 ]
  •    }    btnCell.onmouseout=function(){     btnCell.style.cssText="width:100%;border:1 outset;background-color:buttonface;";    }   // btnCell.onmousedown=function(){   //  btnCell.style.cssText="width:100%;border:1 inset;background-color:#F0F0F0;";   // }    btnCell.onmouseup=function(){   &nbs...[ 查看全文 ]
  • 标签:vb
    建立的"通信卡片"控件包括:姓名、职务、单位、地址和电话,如图1.1所示。 具体操作按以下步骤进行: 第一步:建立一个容器 启动Visual Basic 6.0,在新建工程对话框中选择"标准EXE",单击"确定"按钮,建立一个启动过程,作为用户控件的容器。窗体的Caption属性设置为"通信卡片测试"。 第二步:增加一个工程(用户控件工程) 执行"文件"菜单中的"添加工程"命令,在"添加工程"...[ 查看全文 ]
  •     calendar.currentDate--;     if(calendar.currentDate==0){      calendar.currentDate=12;      calendar.currentDate[0]--;     }     calendar.show(calendar.target,calendar.currentDate[0]+"-"+calendar.currentDate+"-"+calendar.currentDate,calendar.source);    }  &nbs...[ 查看全文 ]
  •    if(defaultDate==undefined || defaultDate==""){     var theDate=new Array();     calendar.head.innerText = calendar.today[0]+"-"+calendar.today+"-"+calendar.today;     theDate[0]=calendar.today[0]; theDate=calendar.today; theDate=calendar.today;    }    else{     var reg=/^\d{4}-\d{1,2}-...[ 查看全文 ]
手机页面 收藏网站 回到头部