一个DELPHI LED显示控件
unit LEDFont; interface uses SysUtils, Classes, Controls, Graphics, ExtCtrls, Windows; type TLEDFontNum = class(TGraphicControl) private FAutoSize: Boolean; FOffsetX: integer; FWordWidth: integer;
分类 Delphi 下的文章
Delphi DBGrid 改变行颜色
procedure TForm1.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if gdSelected in State then //改变选中行的颜色
DBGrid选中行及获得所选中行指定列数据
DBGrid1->Options: dgRowSelect True dgRowAlwaysShowSelection True Edit1.Text := DBGrid1.DataSource.DataSet.FieldByName('cloumn_name').Value;
Delphi7 DBGrid 自动调整列宽
Delphi Adjust Column width DBGrid procedure FitGrid(Grid: TDBGrid); const C_Add=3; var ds: TDataSet; bm: TBookmark;
