?? uvadgunits.pas
字號:
unit UVADGUnits;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, UAdapterDataGridView, cxStyles, cxCustomData, cxGraphics,
cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl,
dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, RzCommon, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGrid, jpeg, RzBckgnd, ExtCtrls,
RzPanel;
type
TVADGUnits = class(TAdapterDataGridView)
GridDBTableViewUNITSID: TcxGridDBColumn;
GridDBTableViewPINYIN: TcxGridDBColumn;
GridDBTableViewCAPTION: TcxGridDBColumn;
private
{ Private declarations }
public
function GetCaption: string; override;
end;
implementation
uses UMADUnits;
{$R *.dfm}
{ TVADGUnits }
function TVADGUnits.GetCaption: string;
begin
Result := '計量單位';
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -