Home/ Questions/Q 119897
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-11T03:43:32+00:00

I thought there was something in GExperts to do this, but I can’t see

  • 0

I thought there was something in GExperts to do this, but I can’t see it if there is.

I have to change the SCALED property (from the default of TRUE to FALSE) in each form in a project that contains about 100 different forms. Because the default value of SCALED is TRUE, it doesn’t actually appear as a line in the .DFM file (when viewing as text), so there isn’t anything I can ‘get’ at with GREP (etc).

Can anyone suggest a quick way of setting this property in all these forms? The forms are subclasses of various different classes and I really don’t want to do make some kind of intermediate TForm descendant which overrides the SCALED property – partly because I tried (briefly) to do this and discovered that setting the SCALED property to be false after the inherited create made no difference to the form, and setting it before the inherited create caused an exception. 🙂

Anyone got any suggestions? I really want to avoid opening all those forms one by one if I can help it, if only because I’m bound to miss one!

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Provided that all your DFM files are not binary, but text (which is a good idea, unless you need to be compatible with Delphi 4 or earlier) you can of course use grep / sed / awk. The format of the DFM is not fixed, and instead of 

      OldCreateOrder = False   Scaled = False

    it could also contain

      OldCreateOrder = False Scaled = False

    So you can grep for one other property that only TForm has, which is set in all of your forms to a value that is stored in the DFM (OldCreateOrder would be a candidate), and replace the lines with another line containing two properties.

    The format will be corrected the next time you save that form in the IDE.

    Edit:

    If your forms are binary, then use the convert.exe tool in Delphi bin directory (use full path, as there is another convert.exe in Windows) to convert the DFM to text, then add the missing property, then (optionally) convert the DFM back to binary. And if you are unhappy about the weird format – convert the DFM from text to binary and back to text, this will give you a correctly formatted text DFM file. All of this is easily scriptable.

    • 0