CSDN论坛 > Delphi > VCL组件开发及应用

如何打印form上的StringGrid? [问题点数:0分]

Bbs1
本版专家分:0
结帖率 100%
CSDN今日推荐
Bbs5
本版专家分:2197
Bbs1
本版专家分:0
Bbs5
本版专家分:4118
Blank
蓝花 2001年4月 Delphi大版内专家分月排行榜第三
Bbs1
本版专家分:0
Bbs2
本版专家分:389
Bbs2
本版专家分:343
匿名用户不能发表回复!
其他相关推荐
StringGrid的Click事件中获取选中的当前行
StringGrid 的option中的goRangeSelect设置为false确保goRowSelect为true;然后procedure TfrmEvent.StringGrid1Click(Sender: TObject);begin   doEveID.Text:=StringGrid1.Cells[0,StringGrid1.selection.bottom];   doI
Delphi控件属性Anchors
当对象的容器的尺寸改变时,该对象的的位置怎么定位,如akLeft为true,则到容器左边的距离保持不变。具体如下:     akLeft为True是控件与它的父控件的左边缘的距离不变 ;     akTop为True是控件与它的父控件的上边缘的距离不变 ;     akRight为True是控件与它的父控件的右边缘的距离不变 ;     akBottom为True是控件与它的父控件的下边缘
在StringGrid中用右键菜单实现复制粘贴
<br />    所实现的效果就是在StrinGrid上点右键,然后弹出一个菜单,可以复制当前单元格中的内容,然后粘贴到其他单元格中。<br />    在Form上放置一个PopupMenu,添加两个MenuItem,分明为miCopy和miPaste,然后在StringGrid的OnMouseUp事件和miCopy,miPaste的OnClick事件中添加以下代码:<br />    #include <vcl/Clipbrd.hpp><br />    TPoint g_ptSelect; // 记
Delphi xe8 FMX StringGrid根据内容自适应列宽
Delphi xe8 FMX StringGrid根据内容自适应列宽。 网上的资料比较复杂,而且不是根据字体字号等设置列宽。故自己写了个function来用。 function GetColMaxDataLength(ASGrid: TStringGrid): TObject; var   MaxColLength,                  //列数据的最大长度
StringGrid文字居中
<br />procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; <br />Rect: TRect; State: TGridDrawState); <br />var <br />Str: String; <br />R: TRect; <br />begin <br />with StringGrid1 do <br />begin <br />Canvas.FillRect(Rect); <br />St
Form个性化即时打印
form个性化 一、进入个性化:在需要进行个性化设置的form窗口中依次选择:帮助—诊断—自定义代码—个性化: 二、设置个性化菜单项: 条件 序号:10 层:功能 说明:启用菜单项     触发器事件:WHEN-NEW-FORM-INSTANCE 活动 序号:10 类型:菜单 菜单项:SPECIAL1 菜单标签:打印测试 2) 执行功能
StringGrid居中
C++Builder中你可以重载TStringGrid的OnDraw事件的方法,关键步骤如下:     1。覆盖Cell:StringGrid1-> Canvas-> FillRect(Rect); 2。写字符串:DrawText(StringGrid1-> Canvas-> Handle,   StringGrid1-> Cells[ACol][ARow].c_str(),   -1,
StringGrid使用大全
KeyLife富翁笔记 作者 : archonwang标题 : StringGrid使用全书 关键字: StringGrid 分类 : 开发经验 密级 : 公开 (评分:★★★★ , 回复: 11, 阅读: 9839) »»StringGrid行列的增加和删除type  TExCell = class(TStringGrid)public  procedure DeleteRow(ARow
stringgrid 删除选中行
if (StrGridSensorList->Row>0) { for (int i=StrGridSensorList->Row;iRowCount-1;i++) { StrGridSensorList->Rows[i]->Assign(StrGridSensorList->Rows[i+1]); }
delphi StringGrid背景色隔行显示
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState);begin      if   (ARow mod 2=1)  then      begin          StringGrid1.Canvas.Font.Color  
关闭