I'm working on kUbuntu 6.10 with Lazarus 0.9.21 (latest svn).
I want draw dynamically painted TBitmap with transparency, but i get picture without transparency.
Transparency with loaded bitmaps worked OK.
What i doing wrong? Or maybe this problem exist only under Linux?
Code is bellow. On left form side is drawn dynamically painted bitmap, on right side- for comparison is drawn same bitmap, but previously saved and then loaded.
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
private
FDrobe: TBitmap;
FUzkrautas: TBitmap;
procedure FormDestroy(Sender: TObject);
procedure FormPaint(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
end;
var
Form1: TForm1;
implementation
{ TForm1 }
constructor TForm1.Create(AOwner: TComponent);
const
FAILAS='testas.bmp';
begin
inherited Create(AOwner);
//
FDrobe:=TBitmap.Create;
FDrobe.Width:=50;
FDrobe.Height:=50;
//
FDrobe.Canvas.Brush.Color:=clYellow;
FDrobe.Canvas.FillRect(Rect(0, 0, FDrobe.Width, FDrobe.Height));
//
FDrobe.Canvas.Brush.Color:=clRed;
FDrobe.Canvas.FillRect(Rect(0, FDrobe.Height div 2, FDrobe.Width div 2, FDrobe.Height));
//
FDrobe.Transparent:=True;
FDrobe.TransparentColor:=FDrobe.Canvas.Pixels[0, 0];
//
FDrobe.SaveToFile(FAILAS);
//
if (FileExists(FAILAS)) then
begin
FUzkrautas:=TBitmap.Create;
FUzkrautas.LoadFromFile(FAILAS);
//
FUzkrautas.Transparent:=True;
FUzkrautas.TransparentColor:=FUzkrautas.Canvas.Pixels[0, 0];
end;
//
OnDestroy:=@FormDestroy;
OnPaint:=@FormPaint;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if (Assigned(FUzkrautas)) then FreeAndNil(FUzkrautas);
if (Assigned(FDrobe)) then FreeAndNil(FDrobe);
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
if (Assigned(FDrobe)) then Canvas.Draw(10, 10, FDrobe);
if (Assigned(FUzkrautas)) then Canvas.Draw(70, 10, FUzkrautas);
end;
initialization
//{$I unit1.lrs}
end.
Recent
