|
Delphi -
Tips dan Trik Delphi
|
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
var
ACanvas : TCanvas;
begin
inherited;
ACanvas := TCanvas.Create;
try
ACanvas.Handle := GetWindowDC(Form1.Handle);
with ACanvas do begin
Brush.Color := clActiveCaption;
Font.Name := 'Tahoma';
Font.Size := 8;
Font.Color := clYellow;
Font.Style := [fsItalic, fsBold];
TextOut(GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER),
Round((GetSystemMetrics(SM_CYCAPTION) - Abs(Font.Height))/2) + 1,
' Teks pada Caption');
end;
finally
ReleaseDC(Form1.Handle, ACanvas.Handle);
ACanvas.Free;
end;
end;
end.
|
|
Mengubah warna komponen aktif |
 |
 |
 |
|
Delphi -
Tips dan Trik Delphi
|
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
procedure DoActiveControl(Sender: TObject);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
OldControl: TComponent;
implementation
{$R *.dfm}
procedure TForm1.DoActiveControl(Sender: TObject);
begin
if assigned(OldControl) then
begin
(OldControl as TEdit).color := clWhite;
(OldControl as TEdit).font.color := clBlack;
end;
if activeControl is TEdit then
begin
|
|
Read more...
|
|
|
Java
|
import javax.swing.*;
import java.awt.*;
import java.awt.event.*;
import java.util.*;
public class AnimasiTombol extends JFrame implements ActionListener
{
JButton jbLight1 = new JButton();
JButton jbLight2 = new JButton();
JButton jbLight3 = new JButton();
JButton jbLight4 = new JButton();
JButton jbLight5 = new JButton();
JButton jbLight6 = new JButton();
JButton jbLight7 = new JButton();
JButton jbLight8 = new JButton();
JButton jbLight9 = new JButton();
JButton jbLight10 = new JButton();
JButton jbRight = new JButton(" GRK KE KANAN > ");
JButton jbLeft = new JButton(" < GRK KE KIRI ");
JButton stop = new JButton("STOP");
JButton keluar = new JButton("KELUAR");
javax.swing.Timer timer = new javax.swing.Timer(1000, this);
int jbNo = 1;
int status=0;
public AnimasiTombol() {
setLayout(null);
setComponents();
setTitle("WARNA BERJALAN");
setSize(610, 120);
setVisible(true);
setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
setResizable(false);
setLocationRelativeTo(null);
}
public void setComponents()
{
jbLight1.setBounds(10, 20, 50, 20);
jbLight2.setBounds(70, 20, 50, 20);
jbLight3.setBounds(130, 20, 50, 20);
jbLight4.setBounds(190, 20, 50, 20);
jbLight5.setBounds(250, 20, 50, 20);
jbLight6.setBounds(310, 20, 50, 20);
jbLight7.setBounds(370, 20, 50, 20);
jbLight8.setBounds(430, 20, 50, 20);
jbLight9.setBounds(490, 20, 50, 20);
jbLight10.setBounds(550, 20, 50, 20);
jbLight1.setBackground(Color.green);
jbLight2.setBackground(Color.black);
jbLight3.setBackground(Color.black);
jbLight4.setBackground(Color.black);
jbLight5.setBackground(Color.black);
jbLight6.setBackground(Color.black);
jbLight7.setBackground(Color.black);
jbLight8.setBackground(Color.black);
jbLight9.setBackground(Color.black);
jbLight10.setBackground(Color.black);
jbLeft.setBounds(10, 50, 125, 20);
jbRight.setBounds(150, 50, 140, 20);
stop.setBounds(400, 50, 80, 20);
keluar.setBounds(500, 50, 80, 20);
add(jbLight1);
add(jbLight2);
add(jbLight3);
add(jbLight4);
add(jbLight5);
add(jbLight6);
add(jbLight7);
add(jbLight8);
add(jbLight9);
add(jbLight10);
add(jbRight);
add(jbLeft);
add(stop);
add(keluar);
jbRight.addActionListener(this);
jbLeft.addActionListener(this);
stop.addActionListener(this);
keluar.addActionListener(this);
}
|
|
Read more...
|
|
Delphi -
Tips dan Trik Delphi
|
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
function IsTaskbarAutoHideOn: boolean;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
uses ShellAPI;
function TForm1.IsTaskbarAutoHideOn : boolean;
var
ABData : TAppBarData;
begin
ABData.cbSize := sizeof(ABData);
Result := (SHAppBarMessage(ABM_GETSTATE, ABData) and ABS_AUTOHIDE) > 0;
end;
|
|
Read more...
|
|
