1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:

Unit OSDKForms;
{$Include 'Omorphia.config.inc' }
Interface

Uses
  Classes,
  Forms;

Type
  tOSDKFormOnChangeFormFocus = Procedure(Sender: tObject) of Object;
  TOSDKForm = Class;
  TOSDKForm = Class(TCustomForm)
   Constructor Create(AOwner: TComponent); ReIntroduce;
   Destructor Destroy; Override;
  Protected
  Private
   fWert: Integer;
   fOnChangeFormFocus: tOSDKFormOnChangeFormFocus;
  Public
   ...
  Published
   Property Wert: Integer read fWert write fWert;
   Property onChangeFormFocus: tOSDKFormOnChangeFormFocus read fOnChangeFormFocus write fOnChangeFormFocus;
  End;

Procedure Register;

Implementation

Uses
 {$IFDEF DELPHI6_UP}
  DesignIntf,
  DesignEditors,
 {$Else}
  DsgnIntf,
 {$EndIf}
  ExptIntf,
  ToolIntf,
  VirtIntf,
  FileIntF,
  IStreams,
  ToolsAPI,
  Windows,
  SysUtils,
  Controls;

...

// *****************************************************************************
// Delphi IDE Expert Interface
// *****************************************************************************

type
  tOSDKFormExpert = Class(TIExpert)
    Function GetName: String; Override;
    Function GetComment: String; Override;
    Function GetGlyph: hICON; Override;
    Function GetStyle: tExpertStyle; Override;
    Function GetState: tExpertState; Override;
    Function GetIDString: String; Override;
    Function GetAuthor: String; Override;
    Function GetPage: String; Override;
    Function GetMenuText: String; Override;
    Procedure Execute; Override;
  End;

{ TStyleFormExpert }

Function tOSDKFormExpert.GetName: String;
Begin
  Result := 'OSDKForm';
End;

Function tOSDKFormExpert.GetComment: String;
Begin
  Result := 'Omorphia SDK Formular';
End;

Function tOSDKFormExpert.GetGlyph: hICON;
Begin
  Result := LoadIcon(hInstance, '');
End;

Function tOSDKFormExpert.GetStyle: tExpertStyle;
Begin
  Result := esForm;
End;

Function tOSDKFormExpert.GetState: tExpertState;
Begin
  Result := [esEnabled];
End;

Function tOSDKFormExpert.GetIDString: String;
Begin
  Result := 'OSDKForm.Expert';
End;

Function tOSDKFormExpert.GetAuthor: String;
Begin
  Result := 'Neo';
End;

Function tOSDKFormExpert.GetPage: String;
Begin
  Result := 'Omorphia';
End;

Function tOSDKFormExpert.GetMenuText: String;
Begin
  Result := '';
End;

Const
  FormUnitSource =
    'Unit %0:s;'#13#10 +
    #13#10 +
    'Interface'#13#10 +
    #13#10 +
    'Uses Windows, SysUtils, Messages, Classes, Graphics,Controls, OSDKForm;'#13#10 +
    #13#10 +
    'Type'#13#10 +
    '  t%1:s = class(tOSDKForm)'#13#10 +
    '  Private'#13#10 +
    '  Public'#13#10 +
    '  End;'#13#10 +
    #13#10 +
    'Var'#13#10 +
    '  %1:s: t%1:s;'#13#10 +
    #13#10 +
    'Implementation'#13#10 +
    #13#10 +
    '{$R *.DFM}'#13#10 +
    #13#10 +
    'END.'#13#10;

  FormDfmSource = 'object %s: T%0:s end';

Procedure tOSDKFormExpert.Execute;
Var
  UnitIdent, Filename: String;
  FormName: String;
  CodeStream: TStreamAdapter;
  DFMStream: TStreamAdapter;
  DFMString: TStringStream;
  DFMVCLStream: TMemoryStream;
Begin
  If not ToolServices.GetNewModuleName(UnitIdent, FileName) Then
    Exit;

  FormName := 'StyleForm' + Copy(UnitIdent, 5, 255);
  CodeStream := TStreamAdapter.Create(TStringStream.Create(Format(FormUnitSource, [UnitIdent, FormName])));
  DFMString := TStringStream.Create(Format(FormDfmSource,[FormName]));
  Try
    DFMVCLStream := TMemoryStream.Create;
    Try
      ObjectTextToResource(DFMString, DFMVCLStream);
      DFMVCLStream.Position := 0;
      DFMStream := TStreamAdapter.Create(DFMVCLStream);
    Except
      DFMVCLStream.Free;
    End;
    ToolServices.CreateModuleEx(FileName, FormName, 'TStyleForm', '', CodeStream, DFMStream,
      [cmAddToProject, cmShowSource, cmShowForm, cmUnNamed, cmMarkModified]);
  Finally
    DFMString.Free;
  End;
End;

Procedure Register;
Begin
  RegisterCustomModule(tOSDKForm, TCustomModule);
  RegisterLibraryExpert(tOSDKFormExpert.Create);
End;


Initialization

Finalization

End.