鼠标点某个框会有虚线筐 怎样才能去掉?
解决方案 »
- delphi xe 如何设置 bin 输出目录
- 在三层中客户端ClientDataSet,查寻一次只显示50条记录,PacketRecords=50,没有效果怎么回事?
- [救急]关于调用VC++写的dll问题,请大家帮忙救火,谢谢
- 急招Delphi高手(深圳福田)做酒店管理系统
- 如何通过编程把相关的错误信息写到一个文件??
- 可否在线程执行时,在主进程中修改线程的值?
- 国内许多计算机的书简直是垃圾!
- 怎么根据后缀名取该类型文件的图标,并放到ImageList中呢?
- Delphi自动升级如何实现?(压缩解压缩)
- 怎樣實現讓客戶端自動感知到服務器的可執行文件有變化,並下載過來執行。
- 高价跪求文件管理系统算法!!!!(100分在线急求)
- 请问把字符串(string)转换为字节(byte)如何编写呢?
没有处理选中非选中的绘制;
没有异常保护
没有使用T..Recall来恢复默认不过看了以后应该就明白了,很简单的。procedure TFrmMain.sgCusDrawDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with sgCusDraw.Canvas do
begin
//设置你想要的颜色
Font.Color:=clblue;
Brush.Color:=clgray;
//绘制单元格,当然你可以绘制更复杂的单元格
FillRect(Rect);
TextOut(rect.Left,rect.Top,sgCusDraw.Cells[ACol,ARow]);
//恢复默认值
Font.Color:=clBlack;
Brush.Color:=clWhite;
end;
end;