View Single Post
  #1  
Old 03-10-2021, 05:32
Cuttlas's Avatar
Cuttlas Cuttlas is offline
Registered User
 
Join Date: Aug 2020
Location: Near You :)
Posts: 62
Thanks: 19
Thanked 10 Times in 5 Posts
Cuttlas is on a distinguished road
Exclamation Transparent Canvas (Bitmap Image)

I have created a TBitmap Image and I'm filling it in using Canvas.

I need to make it transparent, with no border, and no background color. is this possible? if yes, how?

Code:
var
  CustomButton: TBitmapImage;

// Drawing
//*************
procedure RedrawCustomButton;
var
  Canvas: TCanvas;
begin
  Canvas := CustomButton.Bitmap.Canvas;

  Canvas.Pen.Style := psClear;
  Canvas.Brush.Color := clBtnFace;
  Canvas.Rectangle(0, 0, CustomButton.Bitmap.Width, CustomButton.Bitmap.Height);

  Canvas.Pen.Style := psSolid;
  Canvas.Pen.Mode := pmCopy;
  Canvas.Pen.Color := clBlack;
  Canvas.Brush.Style := bsClear;
  Canvas.Rectangle(0, 0, CustomButton.Bitmap.Width, CustomButton.Bitmap.Height);
end;
//*************

procedure InitializeWizard();
var
  Page: TWizardPage;
begin
  WizardForm.InnerPage.Color := clYellow;

  Page := CreateCustomPage(wpWelcome, '', '');

  CustomButton := TBitmapImage.Create(WizardForm);
  CustomButton.Parent := Page.Surface;
  CustomButton.Top := 0;
  CustomButton.Left := 0;
  CustomButton.Width := ScaleX(128);
  CustomButton.Height := ScaleX(32);
  CustomButton.Bitmap.Width := CustomButton.Width;
  CustomButton.Bitmap.Height := CustomButton.Height;
  RedrawCustomButton;
end;
Reply With Quote
Sponsored Links