Watch, Follow, &
Connect with Us

QualityCentral

Public Report
Report From: Delphi-BCB/FireMonkey/Form Designer    [ Add a report in this area ]  
Report #:  105354   Status: Open
Inheriting a TmyForm3D from TForm3D causes "StyleLookup = 'backgroundstyle' " to appear in .fmx
Project:  Delphi Build #:  16.0.4429.46931
Version:    16.4 Submitted By:   Heiko Duckstein
Report Type:  Crash / Data loss / Total failure Date Reported:  5/3/2012 6:24:52 AM
Severity:    Serious / Highly visible problem Last Updated: 5/8/2012 5:03:27 AM
Platform:    All versions Internal Tracking #:   27882
Resolution: None (Resolution Comments) Resolved in Build: : None
Duplicate of:  None
Voting and Rating
Overall Rating: No Ratings Yet
0.00 out of 5
Total Votes: None
Description
If you change your TForm3D to TmyForm3D which is inherited from TForm3D.

StyleLookup = 'backgroundstyle'

appears in the corresponding .fmx-file.

The Project still compiles, but if you run this application, you get an EReadError because Property 'StyleLookup' does not exist.
Steps to Reproduce:
1. Create a genuine TForm3D
2. Change: "TForm1 = class(TForm3D)" to "  TForm1 = class(TtestForm3D)"
3. The Project still compiles
4. but if you run this application, you get an EReadError because Property 'StyleLookup' does not exist.

(Code can be found in attached .zip)

[testFormUnit.pas]
-----------------------------------------------------
unit testFormUnit;

interface
uses
FMX.Forms;
type
  TtestForm3D = TForm3D;
implementation
end.
-----------------------------------------------------

[UnitTestTheTestForm.pas]
-----------------------------------------------------
unit UnitTestTheTestForm;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs,
  testFormUnit;

type
  TForm1 = class(TtestForm3D)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

end.
-----------------------------------------------------

[UnitTestTheTestForm.fmx]
-----------------------------------------------------
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 400
  ClientWidth = 600
  Visible = False
  StyleLookup = 'backgroundstyle'
end
-----------------------------------------------------
Workarounds
Delete 'backgroundstyle' in designer everytime after you open it.
Attachment
105354.zip
Comments

Tomohiro Takahashi at 5/8/2012 6:03:46 PM -
This report was opened with valid Internal Tracking Number.
Thanks.

Server Response from: ETNACODE01

Copyright© 1994 - 2013 Embarcadero Technologies, Inc. All rights reserved.