28 |
|
|
29 |
|
unit IBTransactionEdit; |
30 |
|
|
31 |
+ |
{$MODE Delphi} |
32 |
+ |
|
33 |
|
interface |
34 |
|
|
35 |
|
uses |
36 |
< |
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
37 |
< |
StdCtrls, IBDatabase, IB, ExtCtrls, IBXConst; |
36 |
> |
{Windows,} Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
37 |
> |
StdCtrls, IBDataBase, IB, ExtCtrls, IBXConst, LResources; |
38 |
|
|
39 |
|
type |
40 |
|
TIBTransactionEditForm = class(TForm) |
77 |
|
|
78 |
|
implementation |
79 |
|
|
78 |
– |
{$R *.DFM} |
80 |
|
|
81 |
< |
uses |
82 |
< |
LibHelp; |
81 |
> |
{uses |
82 |
> |
LibHelp;} |
83 |
|
|
84 |
|
function EditIBtransaction(ATransaction: TIBtransaction): Boolean; |
85 |
|
begin |
174 |
|
|
175 |
|
procedure TIBTransactionEditForm.FormCreate(Sender: TObject); |
176 |
|
begin |
177 |
< |
HelpContext := hcDIBTransactionEdit; |
177 |
> |
// HelpContext := hcDIBTransactionEdit; |
178 |
|
end; |
179 |
|
|
180 |
|
procedure TIBTransactionEditForm.HelpBtnClick(Sender: TObject); |
221 |
|
ParseParams; |
222 |
|
end; |
223 |
|
|
224 |
+ |
initialization |
225 |
+ |
{$i IBTransactionEdit.lrs} |
226 |
+ |
|
227 |
|
end. |