Conditionals in DFM's ?

From: Skybuck Flying (nospam_at_hotmail.com)
Date: 02/25/04 

Date: Wed, 25 Feb 2004 18:23:03 +0100

Hi,

I have this GUI which contains debug controls.

Ofcourse I use the debug controls doing development, testing and debugging
etc.

I would like to remove these debugging controls when I build a release
version.

It would be cool if 'conditionals' like compiler directives could be used
inside DFM's to disable these controls ?!

Yet it seems this is not possible ?

( I am using delphi 6 )

Example:

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 128
    Top = 24
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
  end

{$IFDEF DEBUG}
  object Button2: TButton
 Left = 120
 Top = 96
 Width = 75
 Height = 25
 Caption = 'Button2'
 TabOrder = 1
  end
{$ENDIF DEBUG}

end

Bye,
  Skybuck.

Quantcast