Jump to content

rvk

Members
  • Content Count

    135
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by rvk

  1. 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.
  2. 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.
  3. 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.
  4. 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.
  5. 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
  6. 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
  7. 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.
  8. rvk

    Zip Compression library

    So CompressionMode 5 is better than 9 ?
  9. 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.
  10. 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
  11. rvk

    SynPdf - wrong colors in PDF export

    Ah, yes, I missed that. There are several online validators and the ones I tried first said they were not PDFA. But others did. Included Color profile: TestSynPdf: ColorSync color profile 2.1, type ADBE, RGB/XYZ-mntr device by ADBE, 560 bytes, 11-8-2000 19:51:59 "Adobe RGB (1998)" TestFastReport: Microsoft color profile 2.1, type Lino, RGB/XYZ-mntr device, IEC/sRGB model by HP, 3144 bytes, 9-2-1998 6:49:00 "sRGB IEC61966-2.1" I think you would need to "hack" SynPDF to include a different profile (at least as I can see there is no property for it yet). Is there a right and wrong in this? I found some source: large.icc: ColorSync color profile 2.1, type APPL, RGB/Lab-prtr device by bICC, 1613600 bytes, 30-8-2007 17:29:41 "MOAB Anasazi Canvas IPF5000.icc" middle.icc: Microsoft color profile 2.1, type Lino, RGB/XYZ-mntr device, IEC/sRGB model by HP, 3144 bytes, 9-2-1998 6:49:00 "sRGB IEC61966-2.1" small.icc: ColorSync color profile 2.1, type ADBE, RGB/XYZ-mntr device by ADBE, 560 bytes, 3-6-1999, relative colorimetric "Adobe RGB (1998)" So SynPDF uses the small.icc (560 bytes) and FastReport uses middle.icc (3144 bytes).
  12. rvk

    SynPdf - wrong colors in PDF export

    Can you compare those PDF's. The one from Fastreport is PDFA-1A. The one from SynPDF is not. Why didn't you create the one from SynPDF to also be PDFA-1A ? (in which case I think there will be an ICC written too)
  13. rvk

    Problem logging into gmail..

    Yes. That includes IMAP access. The complete "Less secure app access" option isn't available anymore. See https://myaccount.google.com/lesssecureapps And I thought App passwords were only available when you switch on 2FA. Other option is OAuth2 (which is even more a pain).
  14. rvk

    FMX and Excel application

    If it's just some values you need it might be easier to just extract the .xlsx and read the values from the sheet1.xml. Also changing them (and rezipping them to a new .xlsx) won't be a problem. Adding value might become somewhat more difficult and needs some understanding of the xml structures.
  15. rvk

    Problem logging into gmail..

    Are you using your gmail password there? That hasn't worked in months. See https://support.google.com/accounts/answer/6010255 You can't use your username and gmail password anymore. You need to enable 2FA and create and use an App password. See https://support.google.com/accounts/answer/185833
  16. rvk

    Delphi or Lazarus/Free Pascal

    The new debugger is not at the level of the Delphi debugger yet but it has taken a (very) big step in the right direction.
  17. rvk

    Delphi or Lazarus/Free Pascal

    Which shortkey do you use for that in Delphi? Alt+Shift+- and Alt+Shift+= will fold and unfold at the cursor.
  18. rvk

    Delphi or Lazarus/Free Pascal

    Can't you find these in the options? Tools > Options > Editor > Key mappings (search for fold) Alt+Shift+1 / 9 and Alt+Shift+0 Or does this not do what you want?
  19. rvk

    Delphi Registration

    I was hoping it would only rename them on a succesful registration. Not on every failed registration. With a failed registration it would be useless to make a copy of an already non-working license-file. Bummer 😞 (BTW it doesn't delete .corrupted on every run of Delphi. I suggested it here to someone and they got it working, probably also after trying several times.)
  20. rvk

    Delphi Registration

    Like Lajos already mentioned... the license could also be bound to the username (on first run). Is your username also the same? (If not, try it with the correct username and hostname and rename the .corrupted again. The .corrupted could be the ones from before Delphi tried it with the new hostname.)
  21. rvk

    Delphi Registration

    Hey, you have the .corrupted files there. Have you tried copying the .corrupted files over the .cgb_license ones? (after securing the entire directory of course and after renaming the PC back to its original name)
  22. Pff. It's one of the reasons I still ship a RICHED20.DLL with my program. Although not advised (and even not allowed), the many versions of riched20.dll all have their own problems. If it's not alignment issues (resetting back to left align-tab after a right alignment tab) then it's some font issue (and there are lots of other issues). I was so fed up with it (I never knew which one was shipped with Windows and which one was loaded at the client) that I took one for which I knew what issues there were and could program against that.
  23. Have you tried this in BBInitClick RE.DefAttributes.name := 'Courier New'; RE.DefAttributes.size := 8; And alternatively this in add() RE.SelAttributes.name := 'Courier New'; RE.SelAttributes.size := 8; RE.SelText := myText; Sometimes SelAttributes are not hold after you have set SelText.
  24. Yikes. Mixing UTF8 (from direct source code) and Unicode is asking for trouble. And Alt+205... what is that? You need to work with exact correct encoding. Doing Alt+205 might insert a complete other character in the code editor. When I open your Unit1.pas, I get a square with a line through it for your "alt 205" character. Try this: add('DDD' + Widechar(#$2550) + Widechar(#$2550) + Widechar(#$2550) + Widechar(#$2550) + Widechar(#$2550) + 'DDD');
  25. rvk

    Delphi Starter License

    Yeah, that will do it. Rendering your version unlicensed. I found this: So you can see if renaming them back (after making a copy) will work.
×