Jump to content

Linuxuser1234

Members
  • Content Count

    53
  • Joined

  • Last visited

Community Reputation

1 Neutral

Recent Profile Visitors

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

  1. Keep getting Expected and identifier but received VAR same for IN and Contains procedure TGISEngine.AddFilenames(const AFilenames: TGISFilesnamesSHP); begin if (Length(AFilenames) > 0 ) then begin for var in AFilenames do if not FFilenames.Contains(F) then FFilenames.Add(F); end; end;
  2. Linuxuser1234

    Hoiw to visualize GRIB2 Files

    @ptlycldy im trying download the GRIB2 Data and then display the data onto the sphere something like this
  3. Linuxuser1234

    Using a component from one unit to other units

    @programmerdelphi2k can i pm you the file
  4. Linuxuser1234

    Using a component from one unit to other units

    @programmerdelphi2k i keep getting Type BOLT (which is my unit1 or TForm1) is not yet completely defined and i have been unable to resolve the error and yes i have looked at the docwiki unit GISEngine; //This unit Displays Shapefiles onto a 3D Globe interface uses System.SysUtils, System.Classes, BOLT, FMX.Viewport3D; type BOLT = class(BOLT) Viewport3D1:TViewport3D; procedure VP3DGISEngine(Sender: TObject); private public end; var Form1 : TForm1; implementation end.
  5. Linuxuser1234

    Using a component from one unit to other units

    I have a unit called BOLT and i would like to use the viewport component from that unit to my GISEngine unit how can i do this? unit GISEngine; interface uses System.SysUtils, System.Classes, BOLT, FMX.Viewport3D; implementation procedure TForm1.Viewport3D1(Sender: TObject); begin end; end. Error GISEngine does not contain a member named Viewport3D1
  6. Linuxuser1234

    Hoiw to visualize GRIB2 Files

    How can i make a pas file to visualize GRIB2 Files i cant find any references anywhere
  7. Linuxuser1234

    Media player causing weird issue

    and im still getting that annoying issue when i cant close out of the main application after i clicked on the button in my popup window
  8. Linuxuser1234

    Media player causing weird issue

    @Ramy Lebeau for some reason im still not able to hear any audio
  9. Linuxuser1234

    How to draw a gradient paintbrush on a sphere

    how can i draw a gradient paintbrush with a draw over animation on a sphere
  10. Linuxuser1234

    How to rotate a RoundRect on click

    @Rollo62 i just had to restart the ide to get rid of the container form not set message
  11. Linuxuser1234

    How to rotate a RoundRect on click

    @Rollo62 now i get this and also when i click on the design tab i keep getting a error saying container form not set and i changed the name from ignore the first error i got it fixed but im still getting the second error //second error line LIdx := AAngle div 15.0;
  12. Linuxuser1234

    How to rotate a RoundRect on click

    @Rollo62 i put the function under public still wont work private { Private declarations } public { Public declarations } function TForm7.KnobLabelStationAngle(const AAngle : Single) : String; overload; function TForm7.KnobLabelFreqAngle(const AAngle : Single ) : Single; overload; end; procedure TForm7.KnobClick(Sender: TObject); begin //Knob Knob.RotationAngle := Knob.RotationAngle - 15.0; Rectangle4.RotationAngle := Knob.RotationAngle - 15.0; Label2.Text := Format ('%s', [KnobLabelStationAngle(Knob.RotationAngle), KnobLabelFreqAngle(Knob.RotationAngle) ] ); end; function TForm7.KnobLabelStationAngle(const AAngle : Single) : String; const CStationLabel : array[0..24-1] of String = ('KEC61', 'WXK30'); var LIdx : Integer; begin LIdx := AAngle div 15.0; Result := CStationLabel[LIdx]; end; function TForm7.KnobLabelFreqAngle(const AAngle : Single ) : Single; begin Result := (AAngle / 162.550 * 162.525 * 162.500 * 162.400 * 162.475) end;
  13. Linuxuser1234

    How to rotate a RoundRect on click

    @Rollo62 sorry if this question sounds basic but i cant figure out how to fix this error TForm7 does not contain a member named KnobLabelStationAngle i have put the function line under the procedure and in public/private nothing worked
  14. Linuxuser1234

    How to rotate a RoundRect on click

    @Rollo62 also how would i change a tlabel text based on what angle the knob is set to for example if the angle is at 15deg the tlabel would display another text and i do know how to set the text just not sure how to set the text based off the knob angle
  15. Linuxuser1234

    How to rotate a RoundRect on click

    @Rollo62 ignore this comment
×