Sign Up

Sign Up to our social questions and Answers Engine to ask questions, answer people’s questions, and connect with other people.

Have an account? Sign In

Have an account? Sign In Now

Sign In

Login to our social questions & Answers Engine to ask questions answer people’s questions & connect with other people.

Sign Up Here

Forgot Password?

Don't have account, Sign Up Here

Forgot Password

Lost your password? Please enter your email address. You will receive a link and will create a new password via email.

Have an account? Sign In Now

You must login to ask a question.

Forgot Password?

Need An Account, Sign Up Here

Please briefly explain why you feel this question should be reported.

Please briefly explain why you feel this answer should be reported.

Please briefly explain why you feel this user should be reported.

Sign InSign Up

The Archive Base

The Archive Base Logo The Archive Base Logo

The Archive Base Navigation

  • SEARCH
  • Home
  • About Us
  • Blog
  • Contact Us
Search
Ask A Question

Mobile menu

Close
Ask a Question
  • Home
  • Add group
  • Groups page
  • Feed
  • User Profile
  • Communities
  • Questions
    • New Questions
    • Trending Questions
    • Must read Questions
    • Hot Questions
  • Polls
  • Tags
  • Badges
  • Buy Points
  • Users
  • Help
  • Buy Theme
  • SEARCH
Home/ Questions/Q 6925247
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Editorial Team
Asked: May 27, 20262026-05-27T10:45:54+00:00 2026-05-27T10:45:54+00:00

I create a FireMonkey app with 3 semi-transparent tImage3D’s. Here’s the code and the

  • 0

I create a FireMonkey app with 3 semi-transparent tImage3D’s.
Here’s the code and the screen. All seems well.

procedure TForm1.Form3DCreate(Sender: TObject);

// create a new semi-transparent timage3d
// object with color and Z position.
procedure NewImage ( const nColor : tColor;
                     const nZ     : integer );
begin
  // create the image
  with tImage3D . Create ( self ) do
    begin
      // put it on the screen
      Parent := self;
      // set the size
      Width := 10;
      Height := 10;
      // set the image to a single pixel.
      Bitmap . Width := 1;
      Bitmap . Height := 1;
      // set the Alpha to $80 to make it
      // semi-transparent
      Bitmap . Pixels [ 0, 0 ] := $80000000 + nColor;
      // set the z position
      Position . Z := nZ;
    end;
end;

begin
  NewImage ( claRed,   +10 );
  NewImage ( claGreen,   0 );
  NewImage ( claBlue,  -10 );
end;

All is well

Now reverse the order. Now they are opaque.

begin
  NewImage ( claRed,   -10 );
  NewImage ( claGreen,   0 );
  NewImage ( claBlue,  +10 );
end;

Now they are opaque

What am I missing?

  • 1 1 Answer
  • 0 Views
  • 0 Followers
  • 0
Share
  • Facebook
  • Report

Leave an answer
Cancel reply

You must login to add an answer.

Forgot Password?

Need An Account, Sign Up Here

1 Answer

  • Voted
  • Oldest
  • Recent
  • Random
  1. Editorial Team
    Editorial Team
    2026-05-27T10:45:55+00:00Added an answer on May 27, 2026 at 10:45 am

    FireMonkey (as of now) doesn’t support rendering semi-transparent objects in 3D.

    FireMonkey only supports blending of semi-transparent objects (either through the Opacity property or because of their texture, for instance a semi-transparent PNG image), but blending alone is not enough to get it right in 3D with a Z-Buffer (which is what FMX, and most 3D apps are using).

    For a technical explanation, you can read about Transparency sorting, the article is about OpenGL, but applies to DirectX too.

    So to get correct rendering, you need to have your semi-transparent objects sorted back-to-front from the camera’s point of view.

    You can get more details and some code in this post to work-around the issue:

    Rendering semi-transparent object in FireMonkey

    but keep in mind it’ll just be a workaround.

    Ideally this should be handled by the FireMonkey scene-graph, as it is rendering-dependent, otherwise, you end up having to change the scene-graph structure, which can have various other side-effects, and is even more problematic if you have more than one camera looking at the same scene.

    Also, the sorting approach will only work with convex objects that don’t intersect, and for which you don’t have triple-overlap, as in:

    Triple Overlap example

    For which there exists no correct sorting (none of the elements is in front of the others).

    • 0
    • Reply
    • Share
      Share
      • Share on Facebook
      • Share on Twitter
      • Share on LinkedIn
      • Share on WhatsApp
      • Report

Sidebar

Related Questions

I'm trying to create my first app based on FireMonkey, and I hit a
CREATE TABLE #Report( Cell int, CellValue double) Error here DECLARE @Report TABLE ( Cell
I have made the following code: procedure TForm15.Button1Click(Sender: TObject); var Bitmap1: TBitmap; im: TImageControl;
Create a new HD Firemonkey Application in Delphi XE2. Drop a TMenuBar on the
I am trying to write an iPhone app using Delphi XE2 / FireMonkey and
I tried to create FireMonkey application today and added ReportMemoryLeaksOnShutdown to project file to
create table d(id numeric(1), code varchar(2)) After I create the above table how can
create or replace PROCEDURE XXB_RJT_HEADER_PROCEURE ( V_PROD_ID IN NUMBER, V_WARE_ID IN XXB_RJT_HEADER.WAREHOUSE_ID% TYPE, V_PAY_METH
create table re(id numeric(1),bin varchar(10)) how to add not null on table as well
CREATE OR REPLACE PROCEDURE proc AS CURSOR v_cursor IS BEGIN FOR obj IN v_cursor

Explore

  • Home
  • Add group
  • Groups page
  • Communities
  • Questions
    • New Questions
    • Trending Questions
    • Must read Questions
    • Hot Questions
  • Polls
  • Tags
  • Badges
  • Users
  • Help
  • SEARCH

Footer

© 2021 The Archive Base. All Rights Reserved
With Love by The Archive Base

Insert/edit link

Enter the destination URL

Or link to existing content

    No search term specified. Showing recent items. Search or use up and down arrow keys to select an item.