17. Dezember 2008 17:43
MESSAGE('beforecreate');
CREATE(HTMLEditor);
MESSAGE('aftercreate');
HTMLEditor.OpenReadOnly := FALSE;
MESSAGE('beforeserial');
SN := SERIALNUMBER;
MESSAGE(SN);
HTMLEditor.NAVCode :=SN;
cont.SETRANGE("No.", '276');
cont.FIND('-');
cont.CALCFIELDS(Remarks);
HTMLTextRead.READ(StreamInObj);
cont.Remarks.CREATEINSTREAM(StreamInObj);
WHILE NOT StreamInObj.EOS DO BEGIN
StreamInObj.READTEXT(tmpHTMLText);
HTMLEditor.AppendHTMLText(tmpHTMLText);
END;
HTMLEditor.ShowDialog;
IF HTMLEditor.DialogResultOK THEN BEGIN
... cont.MODIFY ...
END
ELSE
MESSAGE('Kein OK');
17. Dezember 2008 17:57
17. Dezember 2008 19:36
CREATE(HTMLEditor);
HTMLEditor.OpenReadOnly := FALSE;
HTMLEditor.NAVCode :=SN;
HTMLEditor.AppendHTMLText(tmpHTMLText);
HTMLEditor.ShowDialog;
18. Dezember 2008 09:00