Vector Script - ModernDialogs

[halligalli]

Hallo Forum,

 

weiß jemand wie ich den eingegebnen Wert zuordnen kann/muß ?

 

Danke im voraus.

 

 

[cadtischler]

GetEditReal(...)

 

Aber im DialogHandler. Das Event-Handling ist hier zwingend.

 

Im DialogHandler wird

- beim Initialisieren (=SetupDialogC) der Wert gesetzt mit: SetEditReal()

- beim Event abgefragt, mit GetEditReal().

- auch gibt es zB die Constante "SetdownDialogC", die beim Verlassen des Dialoges dem Handler als Event übergeben wird.

 

Schönen Gruß, Uwe.

[halligalli]

Hey catischler,

 

 

danke für die Antwort, aber könntest du mir es mal im Script einbauen, das ich erst mal einen Anfang habe. Ich habe kein kompaktes Bsp. dieser Möglichkeit gefunden.

 

Danke im Voraus!

[cadtischler]

Hallo halligalli

 

Anbei ein Ausschnitt eines größeren Scriptes, was schon länger in Einsatz ist.

 

Du musst es in einen eigenen Kontext einbinden.

Das Prinzip des Eventhandling wird klar, allerdings musst Du etwas arbeiten und lesen,

daran führt leider kein Weg vorbei, um das Prinzip zu verstehen.

 

Schönen Gruß, Uwe.

t3.txt

[halligalli]

Hey cadtischler,

 

Sorry, aber ich hab nicht mal ansatzweise den Plan wo ich ansetzzen muß.

Da dein Bsp. sicher naheliegend ist aber nicht "fallgleich" tue ich mich schwer erst mal den

den Ansatz zu finden.

 

[halligalli]

Hey Forum,

 

Hat keiner mal ein einfaches Bsp. wo der Wert in einem Rechteck übernommen wird.

 

Danke im voraus.

 

 

 

PROCEDURE CreateDialog;

VAR

result,id : LONGINT;

gWert : REAL;

BEGIN

id := CreateLayout('Test REAL and TEXT',TRUE,'OK', 'Abbrechen');

CreateStaticText(id,4,'Werkstückdicke:',-1);

CreateCheckBox(id,5,'Formatieren:');

CreateEditText(id,6,'Nummer',26);

CreateEditReal(id,7, 3, 19,8);

SetFirstLayoutItem(id, 4);

SetBelowItem (id,4,5,0,0);

SetBelowItem (id,5,6,0,0);

SetBelowItem (id,6,7,0,0);

SetBelowItem (id,7,8,0,0);

SetHelpText(id,5,'CheckBox');

SetHelpText(id,6,'Text');

SetHelpText(id,7,'Real');

{result := RunLayoutDialog(id,NIL);}

 

END;

Procedure HandleEvents( VAR item : LONGINT; data : LONGINT);

Begin

case item of

SetupDialogC:

Begin

GetEditReal(id,7,1,gWert);

End;

END;

END;

RUN(CreateDialog);