Observer T00:00:00.000 2019-07-24T19:49:33.006 0 0 0 1 black 1 0 1 1 http://*/* https://*/* tel:* sms:* mailto:* geo:* 1 1 1 0 0 0 0 0 1 0 0 0 1 1 0 1 1 1 0 0 0 0 0 0 0 0 0 0 1 default.css 0 0 main.js index.html www\ 0 1 0 0 0 1 Ubuntu https://fonts.googleapis.com/css?family=Ubuntu Observer 2019-07-24T08:08:19.193Z 2019-07-24T19:49:04.352 Unit1 2019-07-24T08:08:19.194Z 2019-07-24T19:49:05.428 Form1 2019-07-24T08:08:19.194Z 2019-07-24T19:49:04.938 Creating Label3'); var Lab3:=TW3Label.Create(Self); Lab3.Caption:='Can you see me three?'; Lab3.SetBounds(10,70,150,30); WriteLn('All done'); end; procedure TForm1.InitializeObject; begin inherited; {$I 'Form1:impl'} end; procedure TForm1.Resize; begin inherited; end; { TTestPanel } procedure TTestPanel.InitializeObject; begin inherited; WriteLn('InitializeObject called -> Creating Label'); self.observe; self.handle.addEventListener('readytogo', procedure(e:variant) begin writeln('heard readytogo'); var Lab:=TW3Label.Create(Self); Lab.Caption:='Can you see me?'; Lab.SetBounds(10,10,150,30); WriteLn('InitializeObject done'); end); end; procedure TTestPanel.ObjectReady; begin inherited; WriteLn('ObjectReady called -> Creating Label2'); var Lab2:=TW3Label.Create(Self); Lab2.Caption:='Can you see me too?'; Lab2.SetBounds(10,40,150,30); WriteLn('ObjectReady done'); end; initialization Forms.RegisterForm({$I %FILE%}, TForm1); end.]]>
2019-07-24T08:08:19.194 2019-07-24T08:29:05.287 W3Form Form1
]]>
1 1 1
myobserver 2019-07-24T08:23:32.129Z 2019-07-24T19:49:05.922
Browser Visual Components Project