Mgr. Janusz Chmiel wrote 8 lines
I have helped myself by using consolebrowser unit and writeln command I have
set MaxConsoleLines to 1 line. And in this case, I can have what I have
wanted. If I answer good answer, app write The number of good answers. Sure,
it look not very kind for sighted professionals, but I Am very glad, that it
is safely possible to combine console output with HTMLwidgets unit output
without crashes. Really. The units of Pas2js are full of positive surprices.
Thank all of you for yours patience with Me. FOrtunately, it is possible to
code by using various techniques. And It is excellent.
Attached is your project as you presumably intended it.
I moved the "a" variable to a field in the Tapplication class, and made a procedure IncScore which is called when a correct answer is provided.
It updates "a" and refreshes the score text.
For this I moved the score text label from a local variable to a field in the Tapplication class.
Tested in the browser, it works just fine.
And I made the code a little more readable for people that must see code in order to understand it... I am amazed you manage to program at all, my deepest respect.
Hopefully this example helps you along.
Michael.
-------------- next part --------------
program project1;
{$mode objfpc}
uses
browserapp, JS, Classes, SysUtils, Web, webwidget, htmlwidgets;
type
TMyApplication =class(TBrowserApplication)
a : Integer;
tex2: TTextWidget;
Procedure IncScore;
procedure doRun; override;
end;
{ TQuestion }
TQuestion = class
l: TLabelWidget;
ti:TTextInputWidget;
Question, Answer: String;
constructor Create( _ba: TBrowserApplication; _wp: TWebPage; _Question, _Answer: String);
procedure tiInput( _Sender : TObject; _Event : TJSEvent);
end;
var
Application : TMyApplication;
{ TQuestion }
constructor TQuestion.Create( _ba: TBrowserApplication; _wp: TWebPage; _Question, _Answer: String);
begin
Question:= _Question;
Answer:=_Answer;
ti:=TTextInputWidget.Create(_ba);
l:=TLabelwidget.Create(_ba);
l.Text:=_Question;
l.LabelFor:= ti;
l .Parent:= _wp;
ti.Parent:= _wp;
//ti.OnInput := @tiInput;
ti.OnChange:= @tiInput;
l .Refresh;
ti.Refresh;
end;
procedure TQuestion.tiInput( _Sender: TObject; _Event: TJSEvent);
begin
if ti.value = Answer then
Application.IncScore;
end;
Procedure TMyApplication.IncScore;
begin
a:=a+1;
tex2.Text:='You have answered'+IntToStr(a) +'Good answer/s from 36 possible answers';
end;
procedure TMyApplication.doRun;
var
wp: TWebPage;
tex: TTextWidget;
begin
wp:=TWebPage.Create(Self);
wp.Parent:=TViewPort.Create(Nil);
tex:=TTextWidget.Create(Self);
tex.Parent:=wp;
tex.Text:='Doplňte druhého do známé dvojice. Jakmile doplníte správné jméno, aplikace Vás pochválí. V opačném případě aplikace nevypíše nic.';
tex.Refresh;
tex2:=TTextWidget.Create(Self);
tex2.Parent:=wp;
tex2.Text:='You have answered'+IntToStr(a) +'Good answer/s from 36 possible answers';
tex2.Refresh;
TQuestion.Create(Self, wp,'Hamlet a', 'Ofélie');
TQuestion.Create(Self, wp,'Břetislav a', 'Jitka');
TQuestion.Create( Self, wp,'Radůz a','Mahulena');
TQuestion.Create( Self, wp,'Laurin a','Klement');
TQuestion.Create( Self, wp,'Kain a','Ábel');
TQuestion.Create( Self, wp,'Romeo a','Julie');
TQuestion.Create( Self, wp,'Othello a','Desdemona');
TQuestion.Create( Self, wp,'Přemysl a','Libuše');
TQuestion.Create( Self, wp,'Kleopatra a','Antonius');
TQuestion.Create( Self, wp,'Faust a','Markéta');
TQuestion.Create( Self, wp,'Tristan a','Izolda');
TQuestion.Create( Self, wp,'Adam a','Eva');
TQuestion.Create( Self, wp,'Cyrano a','Roxana');
TQuestion.Create( Self, wp,'David a','Goliáš');
TQuestion.Create( Self, wp,'Oldřich a','Božena');
TQuestion.Create( Self, wp,'Ruslan a','Ludmila');
TQuestion.Create( Self, wp,'Kolben a','Daněk');
TQuestion.Create( Self, wp,'Čert a','Káča');
TQuestion.Create( Self, wp,'Romulus a','Remus');
TQuestion.Create( Self, wp,'Hanzelka a','Zikmund');
TQuestion.Create( Self, wp,'Suchý a','Šlitr');
TQuestion.Create( Self, wp,'Šimek a','Grossman');
TQuestion.Create( Self, wp,'Laurel a','Hardy');
TQuestion.Create( Self, wp,'Voskovec a','Werich');
TQuestion.Create( Self, wp,'Křemílek a','Vochomůrka');
TQuestion.Create( Self, wp,'Maková panenka a','motýl Emanuel');
TQuestion.Create( Self, wp,'Bob a','Bobek');
TQuestion.Create( Self, wp,'Bolek a','Lolek');
TQuestion.Create( Self, wp,'Čuk a','Gek');
TQuestion.Create( Self, wp,'Jeníček a','Mařenka');
TQuestion.Create( Self, wp,'Spejbl a','Hurvínek');
TQuestion.Create( Self, wp,'Sultán a','Tyrl');
TQuestion.Create( Self, wp,'Orfeus a','Eurydika');
TQuestion.Create( Self, wp,'Ctirad a','Šárka');
TQuestion.Create( Self, wp,'Samson a','Dalila');
TQuestion.Create( Self, wp,'Cyril a','Metoděj');
wp.Refresh;
terminate;
end;
begin
Application:=TMyApplication.Create(nil);
Application.Initialize;
Application.Run;
end.
