delphi 2006-05笔记

最新推荐文章于 2022-08-08 06:39:12 发布

Tercel99

最新推荐文章于 2022-08-08 06:39:12 发布

阅读量2.6k

点赞数

分类专栏： Delphi 文章标签： delphi function string radiobutton application file

本文链接：https://blog.youkuaiyun.com/Tercel99/article/details/725303

版权

Delphi 专栏收录该内容

53 篇文章

订阅专栏

2006 年 5 月 8 日星期一

VCLSkin的使用

How to skin a application

A. Skin file store in exe file.

1. Put TSkindata component on mainform

2. Set Skindata.skinstore property , store skin file in your application.

3. Set Skindata.active = true

4. compile your application and run

B. Skin file is in file folder.

1. Put TSkindata component on mainform

2. Set Skindata.skinfile property , skin file is in exe file folder.

3. Set Skindata.active = true

4. compile your application and run

C. Skin file is in TSkinStorefile, store multi skin files in EXE file.

TSkinStore is designed for multi skin files stored in EXE file.

1. Put TSkindata,TSkinstore on mainform, store skin files in TSkinstore.

2.Load skin file In Form.Oncreate event, example code as follow:

procedure TForm1.FormCreate(Sender: TObject);
begin

Skindata1.LoadFromCollection(skinstore1,0);
if not skindata1.active then skindata1.active:=true;

end;

Form caption and MainMenu

A. Form caption and Mainmenu are skin

Skindata.skincontrols.xcMainmenu=true

B. Caption does not skin, Menu is skin .

Skindata.skincontrols.xcMainmenu=false
Skindata.skincontrols.xcMenuitem=true

Skin 3rd controls

Vclskin support 3rd control easily, just add control class name in TSkinData.skin3rd property

TSkindata.skin3rd support controls include Edit, Checkbox, Radiobutton, Combobox, Panel, Radiogroup, Checkgroup, Buton, Bitbtn, Speedbutton, Tab, Progress, Trackbar, Scrollbar, Embedscrollbar.

Embedscrollbar is to skin control which scrollbar is TScrollbar embed in it. like TAdvMemo .

TSkindata.skin3rd example code
TDBCheckboxEh=Checkbox
TDBLookupCombobox=Combobox
TLMDCheckGroup=CheckGroup
TLMDRadioGroup=RadioGroup
TLMDRadiobutton=Radiobutton
TLMDGROUPBOX=Panel
TLMDEDIT=Edit

if there is 3rd checkbox that vclskin don't support , you just add one line in TSkindata.skin3rd
Class_name_checkbox=checkbox

嗯,这些都是从帮助上搞来的

懒省事了

不过,帮助真的很好

我总结几点

一、几个重要属性

Active

DisableTag

SkinFile

SkinStore

SkinFormType

SkinControls

Options

二、TSkinStore

TSkinStore can store multi-skinfiles in your application at designe time

Tskindata can load skin file from TSkinStore at rumtime:

TSkinData.LoadFromCollection(astore:TSkinStore;aindex:integer),

不错，可以在运行动态设置皮肤，其实通过改变TSkinData的SkinFile

或SkinStore属性也可以达到同样的效果

2006 年 5 月 10 日星期三

TGauge控件的使用

今天顺便看了看TGauge（标准尺）这个控件的用法，感觉挺简单，也不错

重要属性：

BackColor 背景色

ForeColor 前景色

MaxValue 最大值

MinValue 最小值

progress 前进,进度当前的进度

Kind 类型可设置不同的外观形状

问题

TGauge类在哪个单元中定义的？为什么在窗体上添加了一个TGauge对象后，查找TGauge定义时弹出Unable to local file "Gauge.pas"

2006 年 5 月 11 日星期四

去除TMainMemu自动添加的快捷键

以前一直对这个小问题束手无策,今天终于发现解决这个问题的办法

很简单,把AutoHotKeys属性设为maManual (默认为maAutomatic)

单击鼠标右键弹出TPopMenu菜单

以前是在onKeydown事件编码代码实现该功能,其实有更简单的方法

设置autoPopup属性为true即可 (默认即为True)

还有一个比较好的属性,就是TrackButton可以设置用户是单击鼠标左键啊还是右键弹出TPopMenu菜单

设置TStringGrid中FixedRow或FixedCol的内容

刚开始不知道怎么设置,因为它不像DBGrid有Columns属性

其实也很简单,它和非固定单元格的内容设置完全一样,如StringGrid1.cells[0,0]=’abc’

根据TStringGrid单元格中的内容设置设置列宽

StringGrid1.colwidth[i] := StringGrid1.Canvas.TextWidth(StringGrid1.colwidth[i]);

2006 年 5 月 17 日星期三

ActionList组件中Action中分组的一个重要属性

category

2006 年 5 月 30 日星期二

时间函数

首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas
功能返回时间DateTime转换成字符串
说明转换格式由系统变量LongTimeFormat控制
参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat

━━━━━━━━━━━━━━━━━━━━━
首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas
功能返回字符串S转换成时间
说明字符非时间表达时将引起异常
参考 function SysUtils.TryStrToTime
例子 DateTimePicker1.Time := StrToTime(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function StrToTimeDef(const S: string; const Default: TDateTime): TDateTime; $[SysUtils.pas
功能返回字符串S转换成时间
说明字符非时间表达时则返回默认值Default
参考 function SysUtils.TryStrToTime
例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time);
━━━━━━━━━━━━━━━━━━━━━
首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; $[SysUtils.pas
功能返回字符串S转换成时间Value是否成功
说明字符非时间表达时返回False并且Value将输出为0
参考 <NULL>
例子
///Begin TryStrToTime
procedure TForm1.Button1Click(Sender: TObject);
var
vDateTime: TDateTime;
begin
CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime);
DateTimePicker1.Time := vDateTime;
end;
///End TryStrToTime
━━━━━━━━━━━━━━━━━━━━━

本来我不知道有这些函数,还自己去编Time和string函数.

不过声明一点,delphi5中没有TryStrToTime函数和StrToTimeDef函数,而在delphi6中四个函数都有

格式化函数

格式化实型数据函数

首部 function FormatFloat(const Format: string; Value: Extended): string; $[SysUtils.pas
功能返回浮点数类型以指定格式字符串Format转换成字符串
说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00'
参考 function SysUtils.FloatToTextFmt
例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0));
━━━━━━━━━━━━━━━━━━━━━
首部 function FormatCurr(const Format: string; Value: Currency): string; $[SysUtils.pas
功能返回货币类型以指定格式字符串Format转换成字符串
说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00'
参考 function SysUtils.FloatToTextFmt
例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0));
━━━━━━━━━━━━━━━━━━━━━

想起来都有点好笑,一次为了格式化显示金额,自己还费了九牛二虎之力,去编格式化实型函数,

格式化时间函数

━━━━━━━━━━━━━━━━━━━━━
首部 function FormatDateTime(const Format: string; DateTime: TDateTime): string; $[SysUtils.pas
功能返回用指定的格式Format来格式化日期时间DateTime
说明 FormatDateTime('YYYY"年"MM"月"DD"日"', StrToDate(' 2002-03-09 ')) = ' 2002 年 03 月 09 日 '
参考 function SysUtils.DateTimeToString
例子 Edit2.Text := FormatDateTime(Edit1.Text, Now);
━━━━━━━━━━━━━━━━━━━━━