unit UDlgMethodCall;

Forms,

StdCtrls,

Vcl.Controls,

System.Classes;

TFMethodCallDialog = class(TForm)

LMethodCall: TLabel;

LParametervalues: TLabel;

LResult: TLabel;

EResult: TEdit;

BOK: TButton;

EMethodCall: TEdit;

EParametervalues: TEdit;

procedure BOKClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

public

procedure Prepare;

end;

Math,

JvGnugettext;

procedure TFMethodCallDialog.FormCreate(Sender: TObject);

TranslateComponent(Self);

end;

procedure TFMethodCallDialog.BOKClick(Sender: TObject);

Close;

end;

procedure TFMethodCallDialog.Prepare;

var AWidth := 300;

AWidth := Max(AWidth, Canvas.TextWidth(EMethodCall.Text));

AWidth := Max(AWidth, Canvas.TextWidth(EParametervalues.Text));

AWidth := Max(AWidth, Canvas.TextWidth(EResult.Text));

if AWidth > 300 then

AWidth := AWidth + 10;

Width := (360 - 300) + AWidth;

EMethodCall.Width := AWidth;

EParametervalues.Width := AWidth;

EResult.Width := AWidth;

BOK.Left := 257 + (AWidth - 300);

ActiveControl := BOK;

end;

end.