代码搜索:TObject
找到约 10,000 项符合「TObject」的源代码
代码结果 10,000
www.eeworm.com/read/429300/8812215
pas ucreatehatchbrush.pas
unit UCreateHatchBrush;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
proc
www.eeworm.com/read/429300/8812236
pas strokepathu.pas
unit StrokePathU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
priva
www.eeworm.com/read/429300/8812245
pas uextfloodfill.pas
unit UExtFloodFill;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
www.eeworm.com/read/429300/8812246
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/429300/8812269
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/429300/8812280
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/429300/8812298
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/429300/8812305
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/429300/8812346
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/429300/8812350
pas createrectregionindirectu.pas
unit CreateRectRegionIndirectU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;