Jump to content

limelect

Members
  • Content Count

    937
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by limelect

  1. @GabrielMoraru Missing still cbAppDataFmx, ccCore maybe more
  2. @GabrielMoraru You are missing cbAppDataFmx in your source and ccCore, too missing CR, LF not define and what is that? AppData:= TAppData.Create('MyCollApp'); AppData.CreateMainForm(TfrmMain, frmMain, False, True); // Main form
  3. limelect

    TEdit problem capital letters (Delphi 12, Android)

    D10.2.3 no problem
  4. limelect

    ListBox language sorting

    ListBox language sorting I have 2 languages in listbox Hebrew and English When sorting I get 3 sections Hebrew English Hebrew I tried with TStringList same effect Any Idea? thanks
  5. limelect

    ListBox language sorting

    I found some strings where with space in the front It OK now
  6. limelect

    Create an animated gif from a set of bitmaps?

    @Anders Melander Have a look here https://limelect.com/downloads/avi2gif-program-decode-avi-into-gif/
  7. limelect

    Create an animated gif from a set of bitmaps?

    This is mine see link not nobady
  8. limelect

    Create an animated gif from a set of bitmaps?

    I found the source on D6
  9. limelect

    Create an animated gif from a set of bitmaps?

    If this might help you get in touch It is so old 2014 and I think it was done with D6 And I have to find the source. https://limelect.com/downloads/avi2gif-program-decode-avi-into-gif/
  10. limelect

    Chrome link detection

    I want your help Chrome (google) stopped finding a search amount of 100 As for that, I would like to make a small application that adds &num=100 to the search link. (I checked and it works). I would like some sources for 1. find the active search link on my Chrome 2. most importantly, write it back to the link after adding the above. 3. I do not care for the others as I work only with Chrome Any idea?help?
  11. limelect

    Chrome link detection

    This is what I came up to now and I do not get the inside text function GetActivePageUrlFromChrome(Handle: HWnd; Param: LParam): Bool; stdcall; var List: TStrings; hWndChrome, hWndChromeChild: HWND; Buffer: array[0..255] of Char; begin List := TStrings(Param); hWndChrome := FindWindowEx(0, 0, 'Chrome_WidgetWin_1', 0); if hWndChrome <> 0 then begin hWndChromeChild := FindWindowEx(hWndChrome, 0, 'Chrome_RenderWidGetHostHWND', 0); if hWndChromeChild <> 0 then begin SendMessage(hWndChromeChild, WM_GETTEXT, Length(Buffer), integer(@Buffer)); List.Add(Buffer); end; end; Result := True; end;
  12. limelect

    Chrome link detection

    I have added this to Chrome https://chromewebstore.google.com/detail/google-search-100/dbnmpiokdhpgjdimidpaggnkcdmbdmmi?hl=en But it still nice to get help
  13. limelect

    Some new projects...

    Thanks
  14. limelect

    Some new projects...

    I tried some projects to compile with D10.2.3 and all had errors all kind so I gave up. Only your about component compiled OK P.S no FMX.fhtmledit
  15. @DelphiUdIT as per https://docwiki.embarcadero.com/RADStudio/Athens/en/Compiler_Versions It does not have 12.1 or 2 May be 37 or 38?
  16. I found this on my CodeSnipet Returns the version of the Delphi or Free Pascal compiler used to compile the program. 0.0 is returned on error, or if the compiler is not recognized. On test on D10.2.3 it return 32 I hop it helps It works for this https://docwiki.embarcadero.com/RADStudio/Athens/en/Compiler_Versions function CompilerVer: Double; begin {$UNDEF HAVE_RESULT} {$IFNDEF FPC} // Delphi {$IFDEF VER90} {$DEFINE HAVE_RESULT} Result := 9.0; // Delphi 2 {$ENDIF} {$IFDEF VER100} {$DEFINE HAVE_RESULT} Result := 10.0; // Delphi 3 {$ENDIF} {$IFDEF VER120} {$DEFINE HAVE_RESULT} Result := 12.0; // Delphi 4 {$ENDIF} {$IFDEF VER130} {$DEFINE HAVE_RESULT} Result := 13.0; // Delphi 5 {$ENDIF} {$IFDEF CONDITIONALEXPRESSIONS} {$IF Declared(CompilerVersion)} {$DEFINE HAVE_RESULT} Result := CompilerVersion; // Delphi 6 and later {$IFEND} {$ENDIF} {$ELSE} // Free Pascal {$IFDEF VER1} {$DEFINE HAVE_RESULT} Result := 1.0; // FPC v1.x {$ENDIF} {$IFDEF VER2} {$DEFINE HAVE_RESULT} Result := 2.0; // FPC v2.x {$ENDIF} {$ENDIF} {$IFNDEF HAVE_RESULT} Result := 0.0; {$ENDIF} {$UNDEF HAVE_RESULT} end;
  17. @Anders Melander You are right
  18. @DelphiUdIT I tested your function on D10.2.3 and it return program version and NOT the Delphi version As for that mine is simple
  19. TjvVersionInfo does the job. From my software uses JvVersionInfo var VerInfo: TjvVersionInfo; begin AboutBox := TAboutBox.Create(Application); try VerInfo := TJvVersionInfo.Create(Application.ExeName); AboutBox.Version.Caption := ' Ver ' + VerInfo.FileVersion;
  20. limelect

    Updated Webhelp for GExperts available

    P.S My CHM works. I guess it is from 4/22
  21. limelect

    Updated Webhelp for GExperts available

    Will; it be possible to make a PDF from your help site? There are conversions from HTML to PDF out there
  22. limelect

    Updated Webhelp for GExperts available

    I do not see a link to help inside Gexpert expert
  23. limelect

    SSl witout any DLL

    I am using tothpaul\Delphi-master\Indy.SChannel with great success in testing my software However, my provider did an update on his server and now I cannot get my text file at https://limelect.com/UpDate/document-projects.txt I get a protocol error My provider answered me this "So the problem is probably in the software settings. See that TLS is at least 1.2 And in addition, make sure that there is trust for the SSL certificate" I was looking into finding SSL version and could not find a good source for that I was trying this answer without any success https://stackoverflow.com/questions/41127514/how-to-determine-which-tls-ssl-protocol-was-negotiated-when-using-sslvsslv23 Any idea what I should do next? No DLL plz P.S D10.2.3 Indy 10
  24. limelect

    SSl witout any DLL

    My test with SChannel After my provided did not help much I communicated with 2 more providers. One had the same problem that I could not use his server with SChannel but the other one was OK. While testing I found that on Windows 7 things did not work but with Windows 11 was OK. No one understands what is going on. In my case, I had to move to a new provider where the SChannel worked. with Windows 7
×