Hi,
I have just switched to DelphiXE and wondering if possible to make a completely transparent form with a shaped transparent image?
I have done this with Delphi2007 by using a overlay form but,
the same way doesn't work because of unsupported PNG image components I had.

thanks

> {quote:title=Daniel Christian Ceker wrote:}{quote}
> Hi,
> I have just switched to DelphiXE and wondering if possible to make a completely transparent form with a shaped transparent image?
> I have done this with Delphi2007 by using a overlay form but,
> the same way doesn't work because of unsupported PNG image components I had.
> 
> thanks


{
  NEEDS A BITMAP IN A RESOURCE FILE

  this is a transparent form with an image and a bitmap
  it is shown until freed

  BE CAREFUL: THIS WINDOW MUST NOT OVERLAP, MEANS IT MUST NOT BE CREATED WHILE ANOTHERONE IS LIVING
}
unit UWait;

interface

uses
  Windows,              //for HRGN, NOTE: in case of TBitmap place Windows ontop of Graphics
  Graphics,             //for TBitmap
  Forms,
  Classes,
  Controls,
  ExtCtrls;

type
  TfrmWait = class(TForm)
    imgWait: TImage;
    //Form Events
    procedure FormCreate  (Sender: TObject);
    procedure FormDestroy (Sender: TObject);
  private
    bmpBck   :TBitmap;
    function BitmapToRgn(ABitmap: TBitmap; ATransColor: TColor): HRGN;
  end;

var
  frmWait: TfrmWait;

implementation
uses
  SysUtils,             //for IntToStr
  UGlobal;              //for FLng

{$R *.dfm}

(**********************************************************************************************************************)
(********************Form Events***************************************************************************************)
procedure TfrmWait.FormCreate(Sender: TObject);
var
  Rslt  : HRGN;
  tmpStr: String;
begin
  tmpStr:= NameOfYourBitmapInResource;  //<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  imgWait.Picture.Bitmap.LoadFromResourceName(HInstance, tmpStr);
  Application.ProcessMessages;

  TWinControl(frmWait).DoubleBuffered:= True;

  bmpBck:= TBitmap.Create;
  bmpBck.Assign(imgWait.Picture.Bitmap);

  //set transparent form
  Rslt:= BitmapToRgn(imgWait.Picture.Bitmap, $ffffff);
  SetWindowRgn(Handle, Rslt, True);
end;


(**********************************************************************************************************************)
procedure TfrmWait.FormDestroy(Sender: TObject);
begin
  //clear bitmap
  if Assigned(bmpBck) then bmpBck.Free;
end;

(**********************************************************************************************************************)
(********************Private Methods***********************************************************************************)
function TfrmWait.BitmapToRgn(ABitmap: TBitmap; ATransColor: TColor): HRGN;
//Creating a non-rectangular window, that is transparent
const
  AllocUnit = 100;
var
  MyBmp     : TBitmap;
  MaxRects  : Integer;
  mr        : Integer;
  HData     : HGlobal;
  PData     : PRgnData;
  CB, CR, CG: Byte;
  LR, LG, LB: Byte;
  P32       : Pointer;
  X, X0, Y  : Integer;
  P         : PLongInt;
  PR        : PRect;
  H         : Hrgn;
begin
  //initialize
  Result:=0;

  //create
  MyBmp:=TBitmap.Create;
  try
    //copy background bitmap to the new one
    MyBmp.Assign(ABitmap);
    //make it device independent, that is, store it in memory in a standard format, supported by all devices (including printers)
    MyBmp.HandleType   := bmDIB;
    MyBmp.PixelFormat  := pf15bit;  //<<<<<<<<<<<<<<<<<<<<<<<<<only this works in Windows 7
    MaxRects           := AllocUnit;
    HData              := GlobalAlloc(GMem_Moveable, SizeOf(TRgnDataHeader)+SizeOf(TRect) * MaxRects);
    try
      PData              := GlobalLock(HData);
      PData^.RDH.DWSize  := SizeOf(TRgnDataHeader);
      PData^.RDH.iType   :=RDH_Rectangles;
      PData^.RDH.nCount  :=0;
      PData^.RDH.nRgnSize:=0;
      SetRect(PData^.RDH.RCBound, MaxInt, MaxInt, 0, 0);
      LR:=GetRValue(ColorToRGB(ATransColor));
      LG:=GetGValue(ColorToRGB(ATransColor));
      LB:=GetBValue(ColorToRGB(ATransColor));
      for Y:=0 to ABitmap.Height - 1 do begin
        X:=-1;
        P32:=MyBmp.ScanLine[Y];
        while (X + 1) < ABitmap.Width do begin
          Inc(X);
          X0:=X;
          P:=PLongInt(P32);
          Inc(PChar(P), X * SizeOf(LongInt));
          while X < ABitmap.Width do begin
            CR:=GetBValue(P^);
            CG:=GetGValue(P^);
            CB:=GetRValue(P^);
            if ((CR = LR) and (CG = LG) and (CB = LB)) xor False then  // invert
              Break;
            Inc(PChar(P), SizeOf(LongInt));
            Inc(X);
          end;
          if X > X0 then begin
            mr:= PData^.RDH.nCount;
            if mr >= MaxRects then begin
              GlobalUnlock(HData);
              Inc(MaxRects, AllocUnit);
              HData:=GlobalReAlloc(HData, SizeOf(TRgnDataHeader) + SizeOf(TRect) * MaxRects, GMem_Moveable);
              PData:=GlobalLock(HData);
            end;
            PR:=@PData^.Buffer[PData^.RDH.nCount * SizeOf(TRect)];
            SetRect(PR^, X0, Y, X, Y + 1);
            if X0 < PData^.RDH.rcBound.Left then
              PData^.RDH.rcBound.Left:=X0;
            if Y < PData^.RDH.rcBound.Top then
              PData^.RDH.rcBound.Top:=Y;
            if X > PData^.RDH.rcBound.Right then
              PData^.RDH.rcBound.Left:=X;
            if Y + 1 > PData^.RDH.rcBound.Bottom then
              PData^.RDH.rcBound.Bottom:=Y + 1;
            Inc(PData^.RDH.nCount);

            if PData^.RDH.nCount = 2000 then
            begin
              H:=ExtCreateRegion(nil, SizeOf(TRgnDataHeader) + (SizeOf(TRect) * MaxRects), PData^);
              if Result<>0 then
              begin
                CombineRgn(Result, Result, H, RGN_OR);
                DeleteObject(H);
              end
              else
                Result:=H;

              PData^.RDH.nCount:=0;
              SetRect(PData^.RDH.rcBound,MaxInt,MaxInt,0,0);
            end;

          end;
        end;
      end;
      H:=ExtCreateRegion(nil, SizeOf(TRgnDataHeader) + (SizeOf(TRect) * MaxRects), PData^);
      if Result <> 0 then
      begin
        CombineRgn(Result, Result, H, RGN_OR);
        DeleteObject(H);
      end
      else
        Result:=H;
     finally
       GlobalFree(HData);
     end;
   finally
     MyBmp.Free;
   end;
end;

end.

Good luck

Edited by: Lothar Schwandt on Apr 9, 2012 7:11 PM

> {quote:title=Daniel Christian Ceker wrote:}{quote}
> Hi,
> I have just switched to DelphiXE and wondering if possible to make a completely transparent form with a shaped transparent image?
> I have done this with Delphi2007 by using a overlay form but,
> the same way doesn't work because of unsupported PNG image components I had.
> 
> thanks
Maybe something like:
http://www.del123.com/DelphiSplashScreen.zip
or:
http://www.del123.com/PNGFormDelphi.zip
These examples use the transparent PNG image file. If anyone is interested in these, please let me know and I will send the source.

> {quote:title=Slobodan Dmitrovic wrote:}{quote}
> > > Maybe something like:
> > > http://www.del123.com/DelphiSplashScreen.zip
> > > or:
> > > http://www.del123.com/PNGFormDelphi.zip
> > > These examples use the transparent PNG image file. If anyone is interested in these, please let me know and I will send the source.
> > 
> > Hi Slobodan,
> > Thanks for the response.
> > I will be very much pleased if you could post the source.
> > Demos are looking like everything I needed.
> > 
> > thanks in advance
> Sent to your inbox.

Thanks a lot :)
I will mark this as answered but I can't see the "Answered" buttons anymore, anyone has any ideas why?

-daniel

> {quote:title=Slobodan Dmitrovic wrote:}{quote}
> > {quote:title=Daniel Christian Ceker wrote:}{quote}
> > Hi,
> > I have just switched to DelphiXE and wondering if possible to make a completely transparent form with a shaped transparent image?
> > I have done this with Delphi2007 by using a overlay form but,
> > the same way doesn't work because of unsupported PNG image components I had.
> > 
> > thanks
> Maybe something like:
> http://www.del123.com/DelphiSplashScreen.zip
> or:
> http://www.del123.com/PNGFormDelphi.zip
> These examples use the transparent PNG image file. If anyone is interested in these, please let me know and I will send the source.

Hi, 

I saw your examples and liked them very much.
Could you please send me the source too.

Best regards,
Clément

> Hi, 
> 
> I saw your examples and liked them very much.
> Could you please send me the source too.
> 
> Best regards,
> Clément
Sent via PM.

On 18/04/2012 15:34, Slobodan Dmitrovic wrote:
>> Hi,
>>
>> I saw your examples and liked them very much.
>> Could you please send me the source too.
>>
>> Best regards,
>> Clément
> Sent via PM.

Thanks a lot!

Dear Slobodan Dmitrovic!

I just read your comment on this thread, and I would be very grateful to you if you could send me the source code somehow.

Thank you in advance!

> {quote:title=Bela Balazs wrote:}{quote}
> Dear Slobodan Dmitrovic!
> 
> I just read your comment on this thread, and I would be very grateful to you if you could send me the source code somehow.
> 
> Thank you in advance!
Sent.

You are welcome.

> {quote:title=Slobodan Dmitrovic wrote:}{quote}
> You are welcome.

Hi,

I saw your examples and liked them very much.
Could you please send me the source too.

Best regards,
Rafael

Slobodan Dmitrovic wrote:

> These examples use the transparent PNG image file. If anyone is
> interested in these, please let me know and I will send the source.

Very interesting. Can I also get the source?

Thanks,

Bill

Sent via PM.

Sent.

Slobodan Dmitrovic wrote:

> Sent via PM.

Not received. Dumb question, but I assume you removed "nospam." from my
address?

Thanks,

Bill

Sent again.
If you did not receive it, please contact us at:
http://www.del123.com
and we will send it again.
Regards.

> {quote:title=Slobodan Dmitrovic wrote:}{quote}
> > {quote:title=Daniel Christian Ceker wrote:}{quote}
> > Hi,
> > I have just switched to DelphiXE and wondering if possible to make a completely transparent form with a shaped transparent image?
> > I have done this with Delphi2007 by using a overlay form but,
> > the same way doesn't work because of unsupported PNG image components I had.
> > 
> > thanks
> Maybe something like:
> http://www.del123.com/DelphiSplashScreen.zip
> or:
> http://www.del123.com/PNGFormDelphi.zip
> These examples use the transparent PNG image file. If anyone is interested in these, please let me know and I will send the source.

Hello Slobodan,

Just saw this thread, and I would be interested in receiving the source code as well.  It's definitely something I could use for my application.

Thanks in advance,

Soitjes.


--
My Digital Home Server
http://www.digitalhomeserver.net

Slobodan,

| Maybe something like:
| http://www.del123.com/DelphiSplashScreen.zip
| or:
| http://www.del123.com/PNGFormDelphi.zip
| These examples use the transparent PNG image file. If anyone is
| interested in these, please let me know and I will send the source.

<Raising hand!> 


-- 

   Q 

03/18/2013 15:35:43

1.19.1.372  [Q'sBrokenToolBar] [Running on TQ]

Source code sent via PM.
Regards.

Mr. Correll source code sent via PM.
Best regards,
Slobodan

Slobodan,

| Mr. Correll source code sent via PM.

I haven't received it.

Did you notice the NO in my e-mail address?  

That needs to be removed. <g>

-- 

   Q 

03/18/2013 17:42:22

1.19.1.372  [Q'sBrokenToolBar] [Running on TQ]

Hello,
I am using the default web interface to read messages so I do not see your email. I sent the source via the same IM interface. Please contact us via our website so we can send the source code.
Thanks.

Slobodan,

| Please contact us via our website so we can send the source code.

Done.

Thank you very much. 


-- 

   Q 

03/19/2013 14:50:39

1.19.1.372  [Q'sBrokenToolBar] [Running on TQ]

Done and done.
You are most welcome.

> {quote:title=Slobodan Dmitrovic wrote:}{quote}
> Sent.

Hi! Can I get the source too please? Thanks.

> {quote:title=Slobodan Dmitrovic wrote:}{quote}
> Sent.
Great work , please send to me too , thanks ;)

Hello, unfortunately we do not send free copies any more.
Regards.

Very interesting. Can I also get the source code?

Thanks you,

Joe

> {quote:title=Daniel Christian Ceker wrote:}{quote}
> possible to make a completely transparent form with a shaped transparent image?

http://melander.dk/articles/alphasplash2/2/

> {quote:title=N Depred wrote:}{quote}
> > {quote:title=Daniel Christian Ceker wrote:}{quote}
> > possible to make a completely transparent form with a shaped transparent image?
> 
> http://melander.dk/articles/alphasplash2/2/
That example uses third party libraries.

> {quote:title=Slobodan Dmitrovic wrote:}{quote}
> You are welcome.

Can I Get the Source too?

I'am very interested in Your pngformdelphi
Could You send me source code?
Thanks

Hi dimitrovic!!!
Could you send me the source code too please?

thank you!!

> {quote:title=Slobodan Dmitrovic wrote:}{quote}
> Source code sent via PM.
> Regards.

Hi, can you send me the source code too? Thanks!

Very interesting. Can I also get the source code?

Thanks you,

Sándor

> {quote:title=Thomas Amaddeo wrote:}{quote}
> Hi dimitrovic!!!
> Could you send me the source code too please?
> 
> thank you!!

Hi all,
I have made my own version of this,
if anyone need help with it, PM me.

Please send me the sources too. I am interested in the subject.
Thank you very much

> {quote:title=daniel Legrand wrote:}{quote}
> > {quote:title=Thomas Amaddeo wrote:}{quote}
> > Hi dimitrovic!!!
> > Could you send me the source code too please?
> > 
> > thank you!!
> 
> Hi all,
> I have made my own version of this,
> if anyone need help with it, PM me.