{

satania-buddy
Copyright (C) 2022-2024 kagamma

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program.  If not, see <http://www.gnu.org/licenses/>.

}

{$if defined(LINUX_X11)}

{$ifdef unit_declare_interface}
  X, Xlib, xatom, sataniaqt, qtwidgets,
{$endif unit_declare_interface}

{$ifdef unit_implmentation}

const
  MINIMAL_SIZE = 1;

procedure TFormBubble.FormCreate(Sender: TObject);
var
  W: QWidgetH;
begin
  Self.Enabled := False;
  Self.KMemo.Enabled := False;
  W := TQtMainWindow(Handle).Widget;
  QWidget_setFocusPolicy(W, QtNoFocus);
  QWidget_setAttribute(W, QtWA_ShowWithoutActivating, True);
  QWidget_setAttribute(W, QtWA_TranslucentBackground, True);
  QWidget_setAttribute(W, QtWA_NoSystemBackground, True);
  AlphaBlend := True;
  AlphaBlendValue := 1;
  Self.Width := 1;
  Self.Height := 1;
  CreateCommons;
end;
{$endif}

{$endif}


