Jon Lennart Aasenden just posted on G+ several links to new “How do I” entries in the OP4JS Documentation:
You may also want to read Primoz Gabrijelcic’s article “First Steps with Smart Mobile Studio“.
The DelphiTools.info website has just been relocated, it also transitioned from a Linux host to a Windows one.
There were a few glitches with WordPress during the transfer, but they should hopefully have been solved, if not, feel free to post about them here!
Committed another round of speedups in the SynEdit SVN, and AFAICT SynEdit is now amongst the fastest text and highlighting editors out there!
To benchmark it yourself, if you don’t have a large text file hanging around, you can make a “meaningful” one easily.
Just committed to the SynEdit SVN a few enhancements:
edit 27/12: committed another optimization, AFAICT, when working on large files, SynEdit is now faster than the Delphi IDE code editor and *way* faster than Scintilla/notepad++ 5.9.6.2 (with and without a syntax highlighter like DWS’s)
We’ve now sent “Smart Mobile Studio” Alpha version to 50 testers.
Did you miss the beta invite?
Visit www.SmartMobileStudio.com to participate.
SmartMobileStudio leverages DWScript’s JavaScript CodeGen.
My first test app with the alpha was a clock, check it in your iOS or Android Browser or in the Android market. Source is included in the alpha. Will be beautified it later on 🙂
I’ve been playing on another one, head over to YouTube to see a small video, you can also get the apk (47 kB), but beware it’s basic, ugly, and definitely early alpha, but it’s coded in Pascal!
Below is a snippet of the source code (using DWS inline implementations for illustration and compactness purposes, most of OP4JS is written in the more classic interface/implementation style), it’s a snip of the root class of the mini-engine of the game (yes, virtual methods are supported):
type
TEntity = class
X, Y : Float;
function Progress : Boolean; virtual;
begin
// does nothing by default
end;
constructor Create(aX, aY : Float);
begin
X := aX;
Y := aY;
end;
function Dist2(entity : TEntity) : Float;
begin
Result := Sqr(X-entity.X)+Sqr(Y-entity.Y);
end;
end;