Link to home
Start Free TrialLog in
Avatar of xDamox
xDamoxFlag for United Kingdom of Great Britain and Northern Ireland

asked on

Kylix transparent

Hi,

I have Kylix 3 Enterprise installed on Slackware 10 and I tryed the following:

procedure TForm .FormCreate(Sender: TObject);
begin
  Form1.Brush.Style := bsClear;
  Form1.BorderStyle := bsNone
end;

to try make my form transparent any ideas how i can do this in kylix?
Avatar of LMuadDIb
LMuadDIb
Flag of United States of America image
if it was delphi all you would have to do is use form TransparentColor & form TransparentColorValue
example:

put 2 TButtons and a Tedit on a form and the following code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if form1.AlphaBlend then
    form1.AlphaBlend := false
  else begin
    form1.AlphaBlend := true;
    form1.AlphaBlendValue := 150;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if form1.Color = clBlack then begin
    form1.Color := clBtnFace;
    form1.TransparentColor := false;
  end else begin
    form1.Color := clBlack;
    form1.TransparentColor := true;
    form1.TransparentColorValue := clBlack      ;
  end;
end;

but I dont know anything about Kylix :-/
hopefully this can help you
ASKER CERTIFIED SOLUTION
Avatar of Jase-Coder
Jase-Coder
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of Jase-Coder
Jase-Coder
I also think the reasin Alphabend doesnt exist in kylix is because that uses windowsAPI to mess with the forms settings