[DUG] Creating a DFM from a PAS file

[Sean Cross]

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

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://ns3.123.co.nz/pipermail/delphi/attachments/20070123/75583e3f/attachment.html