[DUG] Creating a DFM from a PAS file

[Jeremy Coulter]

yip, I tried that. Problem is, I have controls on panels (to make aligning
easier when I hide stuff) but if I use the TWrite to save the form to a dfm,
it doesnt pickup the controls on the panels, which is a pain.....any
pointers?

   _____  

From: delphi-bounces at ns3.123.co.nz [mailto:delphi-bounces at ns3.123.co.nz] On
Behalf Of Sean Cross
Sent: 23 January 2007 16:40
To: NZ Borland Developers Group - Delphi List
Subject: RE: [DUG] Creating a DFM from a PAS file



Run it and then get the form to save a dfm?

 

Regards


Sean Cross
IT Systems Development Manager


Catalyst Risk Management
PO Box 230
Napier 4140
DDI: 06-8340362
mobile: 027 2766 439
Visit us at www.crm.co.nz

Offices in Auckland, Napier, Wellington & Christchurch

Disclaimer:
"The information contained in this document is confidential to the
addressee(s) and may be legally privileged. Any view or opinions expressed
are those of the author and may not be those of CRM. No guarantee or
representation is made that this communication is free of errors, viruses or
interference. If you have received this e-mail message in error please
delete it and notify me. Thank you."

 

From: delphi-bounces at ns3.123.co.nz [mailto:delphi-bounces at ns3.123.co.nz] On
Behalf Of Jeremy Coulter
Sent: Tuesday, 23 January 2007 4:03 p.m.
To: 'NZ Borland Developers Group - Delphi List'
Subject: [DUG] Creating a DFM from a PAS file

 

Hi all.

I have a PAS file that is part of a Pascal scripting language that I use.

 

What I want to do is, is take part of that code and generate a DFM file. any
one seen anything to do this?

 

i.e. take 

 

constructor TfrmMyForm.Create(AOwner: TComponent);
begin
  inherited;
  Shape1 := TShape.Create(Self);
  Shape1.Name := 'Shape1';
  Shape1.Parent := Self;
  with Shape1 do
  begin
    Left := 0;
    Top := 60;
    Width := 622;
    Height := 25;
    Align := alTop;
    Brush.Color := clInfoBk;
  end;

end;

 

and turn it into a DFM i.e.:-

 

object TForm
  Left = 20
  Top = 10
  Width = 625
  Height = 257
  BorderIcons = [biSystemMenu]
  Caption = 'A Form'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsNormal
  OldCreateOrder = False
  Visible = True
  PixelsPerInch = 96
  TextHeight = 13
  object Shape1: TShape
    Left = 0
    Top = 60
    Width = 617
    Height = 25
    Align = alTop
    Brush.Color = clInfoBk
  end

 

--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.17.5/645 - Release Date: 22/01/2007
16:10


--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.17.5/645 - Release Date: 22/01/2007
16:10



-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.17.5/645 - Release Date: 22/01/2007
16:10
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://ns3.123.co.nz/pipermail/delphi/attachments/20070123/d2acd833/attachment-0001.html