| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3273613
建立时间:2005年6月6日 |
| |
|
 【转贴存档】 ADVStringGrid部分属性设置
软件技术
吕向阳 发表于 2009/1/4 11:19:37 |
|
一、Navigation——AdvancelInsert:控制当光标在最后一个CELL时是否可以按回车插入新行
二、Navigation——AdvanceOnEnter:控制按回车是否自动移到下一个CELL
三、Navigation——AllowDeleteRow:控制是否按DELETE键删除当前行
四、Navigation——AppendOnArrowDown:控制按下箭头是否可以新增一行
五、EnableWheel:=true时，一次滚动多行，EnableWheel:=False时，一次滚动一行。
六、SearchFooter—Visible:=TRUE时，会在ADVStringGrid的底部显示出搜索框
七、Options—goTabs：控制是否可用TAB键将光标移到下一CELL
八、AutoNumAlign:=True则数字类型数据在CELL里会自动右对齐
九、ADVStringGrid.AutoNumberCol(0);表示第0列按顺序显示数字，即1，2，3……
十、FloatingFooter—Visible:为TRUE时，即在ADVStringGrid底部显示求和列，要想让求和列显示小数，还需要将FloatFormat属性设置为：%g
十一、当合并行后，如果想使文字垂直居中，可以先设置ADVStringGrid的 MultilineCells 设置为 True,然后在文字前面加 #13 换行来实行
十二、改变固定列的显示样式：ControlLook——FixedGradientFrom(起始色）——FixedGradientFrom(结束色）
十三、改变单元格的背景色，可在OnGetCellColor事件中写代码实行（前提需将FLAT设置为TRUE）： procedure Tfrm_dingdan.strgridGetCellColor(Sender: TObject; ARow, ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont); begin if ARow=0 then //如果不加这一句，则是以下对应的整列，我这里是只改变固列，所以要把ARow设为0 begin Case ACol of 1: ABrush.Color:=RGB(227,249,248); 2: ABrush.Color:=RGB(250,232,193); 3: ABrush.Color:=RGB(227,249,248); 4: ABrush.Color:=RGB(250,232,193); 12: ABrush.Color:=RGB(227,249,248); 14: ABrush.Color:=RGB(250,232,193); 24: ABrush.Color:=RGB(227,249,248); 48: ABrush.Color:=RGB(250,232,193); 51: ABrush.Color:=RGB(227,249,248); End; END; end;
十四、如果在录入的过程中，要对某列做格式化，比如保留几位小数，可用ADVStringGrid的GetFloatFormat事件中操作。比如： procedure Tfrm_dingdan.strgridGetFloatFormat(Sender: TObject; ACol, ARow: Integer; var IsFloat: Boolean; var FloatFormat: String); begin case ACol of 4: floatformat:='%.0f'; //第4列保留0位小数 5: floatformat:='%.3f'; //第5列保留3位小数 6: floatformat:='%.6f'; //第6列保留6位小数 7: floatformat:='%.5f'; //第7列保留5位小数 end; end;
十五、Options—goRangeSelect：控制是否可以选择多行，goRowSelect控制选中整行 |
|
|