Jump to content

Daniel Eiszele

Members
  • Content Count

    17
  • Joined

  • Last visited

  • Days Won

    2

Daniel Eiszele last won the day on February 1

Daniel Eiszele had the most liked content!

About Daniel Eiszele

  • Rank

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Daniel Eiszele

    Learning Smart Mobile Studio

    I would also suggest Jon Lennart Aasenden's blog, https://jonlennartaasenden.wordpress.com/news/ as invaluable for understanding the Smart Mobile studio paradigm. His blog is not solely about Smart Mobile Studio but putting them in as search terms should return a wealth of knowledge on the subject.
  2. Daniel Eiszele

    Getting user's input from input box

    "Prompt" is the command that you are after.
  3. Daniel Eiszele

    RTL Class Browser stays empty

    I added the commandline arguements into a batch file which works for me!
  4. Daniel Eiszele

    My forum password...Issues logging in...

    Hi Tim, I assume you are trying to log in with your email address. Try using your screen name instead, ie "Tim Koscielski" without the quotes. It's a known issue
  5. Daniel Eiszele

    Forum access

    Have a look at this thread and see if it's the same issue?
  6. Daniel Eiszele

    CSS Resource Files

    Thanks for reporting this one @DavidRM, and thanks for fixing it @jarto. I have been having issues with this for a while and didn't take the time to look into it properly. Works as expected in current release version 3.02!
  7. Daniel Eiszele

    forum login

    Confirmed. Display Name works! Thanks @lynkfs
  8. Daniel Eiszele

    forum login

    I've had the same problem for several months. I assumed it would sort itself out. It requires a password reset every time i want to log in, but doesn't stop me from using the same password every time.
  9. Daniel Eiszele

    Scroll bar bug

    Confirmed here. The project definitely has to have been executed at least once though!
  10. Daniel Eiszele

    Scroll bar bug

    Just confirming I frequently have this issue on a relatively bare bones PC setup running Win 10. I haven't been able to find a reproducible test case though or I would have reported sooner.
  11. Hi Mate, challenge accepted! The following works for me. Sorry, too tired to see what the differences in our code are at the moment but hopefully you can jiggle it around to meet your needs. Just copy the below into a new project and create a new W3GoogleMap component in the IDE. Regards, Daniel unit Form1; interface uses System.Types, System.Types.Convert, System.Objects, System.Time, SmartCL.System, SmartCL.Time, SmartCL.Graphics, SmartCL.Components, SmartCL.FileUtils, SmartCL.Forms, SmartCL.Fonts, SmartCL.Theme, SmartCL.Borders, SmartCL.Application, SmartCL.Controls.GoogleMaps; type JPolylineOptions = record property map: TGoogleMap; property path: Array of JLatLngLiteral; property geodesic : boolean; property strokeColor : string; property strokeOpacity : double; property strokeWeight : integer; property visible : Boolean; end; TGoogleMapsPolyline = partial class external 'google.maps.Polyline' public Constructor Create(options : JPolylineOptions); external 'Polyline'; path: Array of JLatLngLiteral end; TForm1 = class(TW3Form) procedure W3GoogleMaps1MapCreated(Sender: TObject); private {$I 'Form1:intf'} function Coord(lat,lng : Double) : JLatLngLiteral; protected procedure InitializeForm; override; procedure InitializeObject; override; procedure Resize; override; end; implementation { TForm1 } procedure TForm1.W3GoogleMaps1MapCreated(Sender: TObject); var PO : JPolylineOptions; PL : TGoogleMapsPolyline; path : Array of JLatLngLiteral; begin PO.map := W3GoogleMaps1.map; //Set map here or with Setmap W3GoogleMaps1.AddMarker(43.974382,-74.426716,'Point 1'); W3GoogleMaps1.AddMarker(43.9734854,-74.4239453,'Point 2'); path.add(Coord(43.974382,-74.426716)); path.add(Coord(43.9734854,-74.4239453)); po.path := path; po.geodesic := true; po.strokeColor := '#FF0000'; po.strokeOpacity := 1.0; po.strokeWeight := 2; PL := new TGoogleMapsPolyline(PO); //PL.setmap(W3GoogleMaps1.map); end; function TForm1.Coord(lat: double; lng: double): JLatLngLiteral; begin Result.lat := lat; Result.lng := lng; end; procedure TForm1.InitializeForm; begin inherited; // this is a good place to initialize components end; procedure TForm1.InitializeObject; begin inherited; {$I 'Form1:impl'} W3GoogleMaps1.CenterLat := 43.974382; W3GoogleMaps1.CenterLng := -74.426716; W3GoogleMaps1.MapZoom := 16; W3GoogleMaps1.AutoCreateMap := True; end; procedure TForm1.Resize; begin inherited; end; initialization Forms.RegisterForm({$I %FILE%}, TForm1); end.
  12. Daniel Eiszele

    Google Maps API

    @jarto Go right ahead!
  13. Daniel Eiszele

    Google Maps API

    Hi IElite, I'm not 100% sure what you're asking. The schema for the gpx file format is freely available; so extracting the data shouldn't be a problem. Also the reference datum used by gpx is WGS84, as is that used by google maps; so there should be no coordinate system conversions required. Loading markers at the defined coordinates is shown above; so is the issue with loading from a local resource? If it's the latter then I expect you might have to prompt the user for the file, request it from a server or extract it from a local db? I'm afraid I don't know alot about browser security and file access but if you post a sample file I'd be happy to have a play when I get a chance.
  14. Daniel Eiszele

    JSON - Records vs Objects

    Also I've just realised there was no need for the Variant cast from my previous post. You weren't getting any output because the asm JSON.stringify statement is case sensitive. If you'd had a lower case 's' it would have worked!
  15. Daniel Eiszele

    JSON - Records vs Objects

    Hi IElite, I may not be understanding your use case exactly but maybe something like the following will work? It does for me anyway I think it's just a case of the array not being recognised as a variant. //Project.spr code uses SmartCL.System, Unit1, System.JSON; Type TCompletion = Record Rank : String; Date : String; Notes : String; Status : String; end; Var JSONStr : String; {$IFDEF SMART_INTERNAL_HANDLE_EXCEPTIONS} try {$ENDIF} var Application := TApplication.Create; Application.OnBeforeUnload := procedure (Sender: TObject) var CompArray : Array[0..2] of TCompletion; begin CompArray[0].Rank := '1'; CompArray[0].Date := 'yyyy-dd-mm'; CompArray[0].Notes := ''; CompArray[0].Status := 'Completed'; CompArray[1].Rank := '2'; CompArray[1].Date := 'yyyy-dd-mm'; CompArray[1].Notes := ''; CompArray[1].Status := 'Completed'; CompArray[2].Rank := '3'; CompArray[2].Date := 'yyyy-dd-mm'; CompArray[2].Notes := ''; CompArray[2].Status := 'Completed'; Writeln(CompArray[0].Date); JSONStr := JSON.Stringify(Variant(CompArray)); Writeln(JSONStr); end; Application.RunApp; {$IFDEF SMART_INTERNAL_HANDLE_EXCEPTIONS} except on e: Exception do ShowMessage(e.Message); end; {$ENDIF}
×