Jabaco Source

Import com#sun#awt#AWTUtilities

Public Sub Command1_Click()
   setWindowOpacity Me.Parent, 0.5   
End Sub

Jabaco Source

Public Sub Command1_Click()
   Me.Parent.setExtendedState JFrame.MAXIMIZED_BOTH   
End Sub

Public Sub Command2_Click()
   Me.Parent.setExtendedState JFrame.NORMAL   
End Sub

Jabaco Source

Public Sub Command1_Click()
   Me.Parent.toFront 
End Sub

Public Sub Command2_Click()
   Me.Parent.toBack
End Sub

Jabaco Source

Dim myText As String = ""

Public Sub Usercontrol_Initialize()

End Sub


Public Sub paint(g As java#awt#Graphics)
  Dim width As Integer = Me.Parent.getWidth
  Dim height As Integer = Me.getHeight
  'Dim paint As New java#awt#GradientPaint(0, 0, Color.blue, width, height, Color.cyan, True)
  Dim paint As New java#awt#GradientPaint(0, 0, New Color(255,0,0,180), width, height, New Color(0,255,0,250), True)
  Dim g2d As java#awt#Graphics2D = Cast(g, java#awt#Graphics2D)
  Dim oldPaint As java#awt#Paint = g2d.getPaint
  g2d.setPaint(paint)
  g2d.fillRect(0,0,width,height)
  g2d.setPaint(oldPaint)
  
  Dim f As New java#awt#Font("Dialog", Font.BOLD, 40)
  Dim myFontMetrics As java#awt#FontMetrics = Me.getFontMetrics(f)
  
  g2d.setFont(f)
  Dim a As Single = 30
  Dim b As Single = 50
  Dim c As Single = myFontMetrics.stringWidth(myText)
  Dim d As Single = myFontMetrics.getHeight
  Dim gp As New java#awt#GradientPaint(a, b, Color.yellow, c, d, Color.red)
  g2d.setPaint(gp)
  g2d.drawString(myText, 20, 50)
End Sub

Public Property Get Caption() As String
  Caption = myText
End Property

Public Property Let Caption(s As String)
  myText = s
End Property

Jabaco Source

import java.awt.*;import javax.swing.*;
import static java.awt.GraphicsDevice.WindowTranslucency.*;

public class GradientTranslucentWindowDemo extends JFrame {
    public GradientTranslucentWindowDemo() {
        super("GradientTranslucentWindow");

        setBackground(new Color(0,0,0,0));
        setSize(new Dimension(300,200));
        setLocationRelativeTo(null);
        setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

        JPanel panel = new JPanel() {
            @Override
            protected void paintComponent(Graphics g) {
                if (g instanceof Graphics2D) {
                    final int R = 240;
                    final int G = 240;
                    final int B = 240;

                    Paint p =
                        new GradientPaint(0.0f, 0.0f, new Color(R, G, B, 0),
                            0.0f, getHeight(), new Color(R, G, B, 255), true);
                    Graphics2D g2d = (Graphics2D)g;
                    g2d.setPaint(p);
                    g2d.fillRect(0, 0, getWidth(), getHeight());
                }
            }
        };
        setContentPane(panel);
        setLayout(new GridBagLayout());
        add(new JButton("I am a Button"));
    }

    public static void main(String[] args) {
        // Determine what the GraphicsDevice can support.
        GraphicsEnvironment ge = 
            GraphicsEnvironment.getLocalGraphicsEnvironment();
        GraphicsDevice gd = ge.getDefaultScreenDevice();
        boolean isPerPixelTranslucencySupported = 
            gd.isWindowTranslucencySupported(PERPIXEL_TRANSLUCENT);

        //If translucent windows aren't supported, exit.
        if (!isPerPixelTranslucencySupported) {
            System.out.println(
                "Per-pixel translucency is not supported");
                System.exit(0);
        }

        JFrame.setDefaultLookAndFeelDecorated(true);

        // Create the GUI on the event-dispatching thread
        SwingUtilities.invokeLater(new Runnable() {
            @Override
            public void run() {
                GradientTranslucentWindowDemo gtw = new
                    GradientTranslucentWindowDemo();

                // Display the window.
                gtw.setVisible(true);
            }
        });
    } }