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 |
|
|
80 |
< |
{$R *.DFM} |
79 |
< |
|
80 |
< |
uses |
81 |
< |
LibHelp; |
80 |
> |
{$R *.lfm} |
81 |
|
|
82 |
|
function EditIBtransaction(ATransaction: TIBtransaction): Boolean; |
83 |
|
begin |
172 |
|
|
173 |
|
procedure TIBTransactionEditForm.FormCreate(Sender: TObject); |
174 |
|
begin |
175 |
< |
HelpContext := hcDIBTransactionEdit; |
175 |
> |
// HelpContext := hcDIBTransactionEdit; |
176 |
|
end; |
177 |
|
|
178 |
|
procedure TIBTransactionEditForm.HelpBtnClick(Sender: TObject); |
219 |
|
ParseParams; |
220 |
|
end; |
221 |
|
|
222 |
+ |
|
223 |
|
end. |