代码搜索：TObject
找到约 10,000 项符合「TObject」的源代码
代码结果 10,000
www.eeworm.com/read/279692/10402759
pas udrawfocusrect.pas
unit UDrawFocusRect;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids;
type
TForm1 = class(TForm)
Button1: TButton;
www.eeworm.com/read/279692/10402827
pas settextalignu.pas
unit SetTextAlignU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Spin, ColorGrd;
type
TForm1 = class(TForm)
Group
www.eeworm.com/read/279692/10402850
pas drawtextexu.pas
unit DrawTextExU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TForm1 = class(TForm)
PaintBox1: TPaintBox;
Panel1
www.eeworm.com/read/279692/10402913
pas createfontindirectu.pas
unit CreateFontIndirectU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
www.eeworm.com/read/279692/10402935
pas getglyphoutlineu.pas
unit GetGlyphOutlineU;
{Special thanks to Marco Cocco for his valuable insight into making this
example work.
Note: See Marco Cocco's excellent True Type Font to Vector conversion
www.eeworm.com/read/279692/10403029
pas offsetrectu.pas
unit OffsetRectU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Panel1: TPanel
www.eeworm.com/read/279692/10403034
pas createrectregionindirectu.pas
unit CreateRectRegionIndirectU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
www.eeworm.com/read/279692/10403046
pas setrectemtpyu.pas
unit SetRectEmtpyU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedur
www.eeworm.com/read/279692/10403061
pas cooleffectu.pas
unit CoolEffectU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTim
www.eeworm.com/read/279692/10403072
pas createpolypolygonrgnu.pas
unit CreatePolyPolygonRgnU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImag