Jump to content

rvk

Members
  • Content Count

    125
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by rvk

  1. rvk

    Delphi 12 VCL painting differs through RDP

    Ah, ok. I thought the default for DoubleBuffered was true. But I am probably mistaken (it is true in Lazarus unless in a remote session but apparently not in Delphi).
  2. rvk

    Delphi 12 VCL painting differs through RDP

    You didn't set DoubleBuffering to false for the TFrame itself (at least not in the code I saw). So if there (for TFrame) it is still true, then SingleBufferingInRemoteSessions = false would make the difference.
  3. rvk

    Delphi 12 VCL painting differs through RDP

    Woops, sorry. The Application.SingleBufferingInRemoteSessions is true as default. You should try to set it to false so the RDP acts the same as without RDP regarding doublebuffering. http://docwiki.embarcadero.com/Libraries/Alexandria/en/Vcl.Forms.TApplication.SingleBufferingInRemoteSessions
  4. rvk

    Delphi 12 VCL painting differs through RDP

    Yes. So you could set SingleBufferingInRemoteSessions to true to test if enabling DoubleBuffering in RDP would help. (turning on DoubleBuffering manually doesn't have effect if SingleBufferingInRemoteSessions is still set to false) If it doesn't help, then it must be something else.
  5. rvk

    Delphi 12 VCL painting differs through RDP

    https://docwiki.embarcadero.com/RADStudio/Alexandria/en/Double-buffering_and_Remote_Connections
  6. rvk

    Delphi 12 VCL painting differs through RDP

    PS. You testproject in your openingspost works for me (Compiled on Delphi 10.2, Windows 10 and RDP'ing to a Windows 10 Hyper-V). Panel show solid (without memo1 bleeding through).
  7. rvk

    Delphi 12 VCL painting differs through RDP

    Could be related to this: WS_EX_LAYERED window appearing invisible over RDP Or with Alpha blending https://duckmaestro.com/2010/06/06/per-pixel-alpha-blending-in-win32-desktop-applications/
  8. rvk

    Delphi 12 VCL painting differs through RDP

    Weird, I would expect just the opposite (solid in rdp and transparent locally). What are the settings under the Experience tab in your RDP connection? Ser it to highest speed and disable bitmap caching and see if that helps.
  9. The real question is: Does the program REALLY access those IPs? It could be that virustotal just analyses the code and sees some unreachable code that could access those IPs. Maybe it's never called. The only way to be sure is to check it yourself (as mentioned before).
  10. rvk

    Could not load OpenSSL library.

    Wait... did I really overlook that file... Aaaargh. Yes, it's in the root.
  11. rvk

    Could not load OpenSSL library.

    Why is the date of the files on Fulgan updated each night? Also, there seem to be trickling new versions in there occasionally. Maybe a readme file there pointing to the new official spot (or at least stating it is decommissioned) would make that more clear.
  12. rvk

    Could not load OpenSSL library.

    Yeah, I never used those from slprowen. They only provide an executable with god-knows-what build in. Quote from this site https://wiki.overbyte.eu/wiki/index.php/ICS_Download The indy.fulgan.com ones (same as the one you now use) never gave me problems.
  13. rvk

    Could not load OpenSSL library.

    Where did you get the openssl-1.0.2u dlls from? As I understand it there could be version with and without the dependencies to those Microsoft DLLs. From https://wiki.openssl.org/index.php/Binaries (the indy.fulgan.com ones shouldn't have any dependency):
  14. Maybe its the default font but it definitely displayed differently (look at the capitol G which is different). So maybe there is still some font substitution going on. You can first look in this registry entry to see if that font is substituted. HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes Btw. You showed the font for a tlabel. But if the parentfont prop is true, it will take the font from the form. And it could be that for that the screen.font is used which might use the default menu font from windows. If that's the case you might want to do a Application.DefaultFont.Name := 'MS Sans Serif'; (or other font) before creating any forms in your .dpr).
  15. It might not be the default font MS Sans which is used. Or there is some font substitution going on. If you look at the image, you definitely see the fonts are different.
  16. Yes. What font does Delphi 7 use. Always the font in which it is designed (font property of the form)? In that case... what font did you set in the form property? If that font isn't available anymore in Windows 11, this could also explain a lot. So specify a font which still exists on W11 or install the font used in D7.
  17. You can also check the default system font size in Windows (do not choose Large letters etc.). But you can begin by setting a default static font and size at startup in Delphi. Otherwise a system font is taken at startup which can be different on every system. And some components get resized according to the fontsize). Application.DefaultFont See https://www.delphipower.xyz/handbook_2009/default_fonts_for_application_and_screen_global_objects.html But it's much easier to do this in a small test program than doing this in your final program.
  18. That would be my first suggestion too... different dpi settings. Weird that's not the case here. Looking at the screenshots there is really something going on with different font/dpi settings. Do you include a manifest.txt in your program/resources? Is this a designed form (not created at runtime)? And is it designed on 100% 96dpi (pixelsperinch)? Is your developing machine Windows 10? With Delphi 7? Scaled etc. shouldn't matter if both are on 100% 96 dpi. In that case Delphi 7 also shouldn't matter because it doesn't do anything if it's just at 100%. Try to make a small test program with just some tlabels and tpanels and see if you that also goes wrong.
  19. rvk

    K-Software

    I also just renewed for 3 years this week. If all goes correctly I will be getting a fourth year for free (including a usb-token) according to the latest offer from Sectigo.
  20. rvk

    pdfDoc

    SynPDF is part of the mORMot framework. But you can download it and use it as standalone library. See https://synopse.info/forum/viewtopic.php?id=25 Forum is here https://synopse.info/forum/viewforum.php?id=1 Github https://github.com/synopse/SynPDF
  21. rvk

    Zip Compression library

    Yes, That's what I expected. I'm not sure if you can tinker with the buffer settings of TZipForge to achieve the same result. (maybe the bigger the buffer, the faster it sees there is some repetition.) Did you also test CompressionMode 5? (CompressionMode <> CompressionLevel). BTW. Just a stupid question... but did you unzip your Windows-zip to see if the result is correct
  22. rvk

    Zip Compression library

    What happens if you set the CompressionMode to 5? If it's still the same size, can you test with the file from http://mattmahoney.net/dc/textdata.html In that case we are talking about the same file. It could be that your file is extra compressible by the way Windows does it. And if it still does not compare, you might want to post some code.
  23. rvk

    Zip Compression library

    So CompressionMode 5 is better than 9 ?
  24. rvk

    Zip Compression library

    That's with CompressionLevel to clMax. What was the CompressionMode and Zip64Mode setting? If that is the maximum TZipForge can do I guess you can write that one off.
  25. Something simple like this will at least check (2) and (3). It won't check (1) but that should be done at entry (only allow unique student/answer combinations). select student, if((count(*)>1) and (max(answer)>7), 'INVALID', 'Valid') as Result from data1 group by student https://dbfiddle.uk/d-QSR_4l student Result 100 Valid 101 INVALID If you really want to check (1) you can do it with a sub-select with count on total number of answers and total number of unique answers. Something like: select student, if((sum(cnt)<>count(*)) or ((count(*)>1) and (max(answer)>7)), 'INVALID', 'Valid') as Result from ( select student, answer, count(*) as cnt from data1 group by student, answer ) as sub group by student https://dbfiddle.uk/B3JmU1_S student Result 100 Valid 101 INVALID 102 INVALID 103 Valid 104 INVALID
×