一个DELPHI LED显示控件
unit LEDFont; interface uses SysUtils, Classes, Controls, Graphics, ExtCtrls, Windows; type TLEDFontNum = class(TGraphicControl) private FAutoSize: Boolean; FOffsetX: integer; FWordWidth: integer;
网事随记
unit LEDFont; interface uses SysUtils, Classes, Controls, Graphics, ExtCtrls, Windows; type TLEDFontNum = class(TGraphicControl) private FAutoSize: Boolean; FOffsetX: integer; FWordWidth: integer;
procedure TForm1.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if gdSelected in State then //改变选中行的颜色
DBGrid1->Options: dgRowSelect True dgRowAlwaysShowSelection True Edit1.Text := DBGrid1.DataSource.DataSet.FieldByName('cloumn_name').Value;
Delphi Adjust Column width DBGrid procedure FitGrid(Grid: TDBGrid); const C_Add=3; var ds: TDataSet; bm: TBookmark;
CnWizards 是 CnPack 项目组的主力产品之一,中文全称是 CnPack IDE 专家包, 英文全称是 CnPack IDE Wizards,简称 CnWizards。CnWizards 是一组集成在 Delphi/C++Builder/BDS 的 IDE 中,用于增强 IDE 功能、提高 ID
V