Jump to content

Linuxuser1234

Members
  • Content Count

    65
  • Joined

  • Last visited

Posts posted by Linuxuser1234


  1. @XylemFlow here is the code 

    procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Single);
      var
      T:TTouches;
    begin
     if ssLeft in Shift
     then begin
       SetLength(T, 1);
       T[0].Location:=PointF(X, Y);
       FormTouch(Nil, T, TTouchAction.Down);
     end;
    end;
    
    procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Single);
     var T:TTouches;
    begin
     if ssLeft in Shift
     then begin
       SetLength(T, 1);
       T[0].Location:=PointF(X, Y);
       FormTouch(Nil, T, TTouchAction.Move);
     end;
    end;
    
    procedure TForm1.FormTouch(Sender: TObject; const Touches: TTouches;
      const Action: TTouchAction);
      var T:TTouch;
      F: TFmxObject;
      M: TRectF;
      L: TLine;
      R: TRoundRect;
      P: TPointF;
    begin
     for T in Touches
      do begin
           case Action of
           TTouchAction.Down,
           TTouchAction.Move:
           For F in Children
           do if F is TLayout
           then begin
                  M:=TLayout(F).AbsoluteRect;
                  M.Inflate(0, -10);
                  if M.contains(T.Location)
                  then begin
                    L:=TLine(TLayout(F).Children[0]);
                    R:=TRoundRect(L.Children[0]);
                    P:=TLayout(F).AbsoluteToLocal(T.Location);
                    P.X:=R.Position.X;
                    P.Y:=P.Y - 10 - R.Height * 0.5;
                    R.Position.Point:=P;
    
                  end;
                end;
           end;
         end;
    end;

     


  2. In fmx how can i project Fronts and pressure centers(H & L) on to my sphere with a bitmap satellite image of th20221025_12_F000_wpc_sfc.thumb.gif.3efd01b025ecbbfc20fb67facbead783.gife earth and here is the data 

    as text 

    517 
    
    ASUS02 KWBC 260000
    
    CODSUS
    
     
    CODED SURFACE FRONTAL POSITIONS
    NWS WEATHER PREDICTION CENTER COLLEGE PARK MD
    938 PM EDT TUE OCT 25 2022
     
    VALID 102600Z
    HIGHS 1018 2110980 1024 7921336 1019 3591127 1021 4361109 1022 3891073 1023
    4071071 1014 6860592 1022 6490450 1019 6631128 1014 7010721 1020 4571163
    LOWS 1005 2331029 1012 3491152 1000 3940884 1014 3871188 979 5560286 1007
    7500512 1002 7530754 981 6070811 973 6141629 1006 5411250 1011 3430689 1009
    5741123 1007 6261296
    TROF 2270878 2030889 1750895
    TROF 2990706 2980705
    TROF 3101080 2751063 2391037
    COLD 6160767 6060765 5810769 5340792 4980813 4730830 4350856 4150872
    STNRY 4160871 4110875 4030879 3950883
    COLD 3871188 3821185 3711185 3611187 3511192 3421206 3371229 3371252 3451289
    3621336 3731367
    COLD 3721101 3721122 3751137 3831149
    STNRY 3831150 3881164 3881182 3871189
    TROF 3471151 3341146 3241143
    COLD 3940883 3880871 3670864 3410861 3240865 3100873 3010878 2810893 2600913
    2260946 1880958
    WARM 5650616 5610611
    WARM 5540602 5520598
    WARM 6150766 6110713 6030673 5750625 5520599 5370572 5130547 5050539 4890523
    STNRY 6510279 6440311 6300352 6160379 5850406
    STNRY 3650568 3820591 3910614 3920639 3910658
    STNRY 7930585 7720724 7530758
    TROF 5960462 6240505 6610540
    OCFNT 5570287 5610285 5720275 5790259 5820236
    TROF 5570286 5380321 5260361
    COLD 4621232 4521244 4421266 4391302 4491361
    OCFNT 5901535 5871530
    TROF 6001468 5991461 5871411 5721389
    WARM 5871530 5871490 5811461 5601422 5191412 5011419
    COLD 4450464 4580486 4730505 4830516 4900523
    OCFNT 6100813 6190794 6150766
    TROF 5970828 5650870 5300939 5131002
    COLD 5881532 5691546 5541563 5351593 5181627
    OCFNT 6151625 6121586 6001550 5881532
    TROF 5821632 5781649 5721676 5731709
    TROF 6301560 6461505 6531446 6521393
    OCFNT 5401249 5131228 4781226 4611234
    STNRY 4540970 4540991 4571015 4661050 4781076 4981092 5211088 5371094 5591111
    5751125
    STNRY 6281300 6241340 6271379 6281413 6261440 6231473
    STNRY 5741123 5671175 5741223 5891249 6051272 6261293
    TROF 3870883 3650888 3340902
     
    $$

    so how can i display text data on to a sphere 


  3.  so im in delphi 10.4 CE and im trying to make a weather application and i woud like to view NEXRAD/satellite/vector data on to a sphere with a bitmap image of the earth but im not sure

    on how to lay1er the data on to the sphere APP uiusing netcdf here is a picture of the application with the globe 

×