h1

Membuat Warna Aktif pada TEdit

November 14, 2009
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, GradPnl, dxCore, dxButtons, ExtCtrls, Variants;

type
TForm1 = class(TForm)
pnl2: TPanel;
btnSimpan: TdxButton;
btnBatal: TdxButton;
pnl1: TPanel;
GradientPanel1: TGradientPanel;
pnl3: TPanel;
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
lbl7: TLabel;
lbl9: TLabel;
lbl10: TLabel;
lbl11: TLabel;
lbl5: TLabel;
lbl8: TLabel;
lbl6: TLabel;
lbl4: TLabel;
edt1: TEdit;
edt2: TEdit;
edt3: TEdit;
edt4: TEdit;
edt5: TEdit;
edt6: TEdit;
edt7: 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
(activeControl as TEdit).color :=  $008DFCC1;
(activeControl as TEdit).font.color := clBlack;
OldControl := activeControl as TEdit;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
screen.OnActiveControlChange := DoActiveControl;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// mencegah terjadinya GP Fault
screen.OnActiveControlChange := nil
end;

end.

Tips & Trik Delphi, Belajar Delphi, Tutorial Delphi

Ditulis dalam Tak Berkategori | Bertanda , | Leave a Comment »

h1

Kerjasama dengan CV Mitra Mandiri

April 14, 2008

Audit Software dan CV Mitra Mandiri adalah mitra dalam berbisnis penjualan software khususnya POS peralatan pendukung nya seperti printer, chasdrawer, barcode scanner. Sampai periode ini kami telah melayani beberapa toko di yogyakarta, solo dan magelang.

Daftar Customer CV Mitra Mandiri

  1. Auto Carwash

  2. C & O Swalayan

  3. Toko 32

  4. RM Soto Kudus

  5. Binakarya Swalayan

  6. PD Semangat Baru

  7. CV Sembada

  8. Dhea Meat Shop

  9. Matahari Swalayan

  10. Kurnia Fashion

  11. Apotek Panji

  12. POS SMK N1 Purwokerto

  13. POS SMK Bhakti Karya Magelang

  14. POST MODE

  15. Toko S24

  16. Toko Warning

  17. Swalayan 7 Sebelas

  18. Toko Natajaya Mandiri

  19. Toko Oleh-Oleh Magelang

  20. Checker Oil

Ditulis dalam Tak Berkategori | Leave a Comment »

h1

Kerjasama dengan Digiworks

April 14, 2008

Pada tanggal 24 Mei 2007 Audit Software bekerjasama dengan Digiworks mendapat kepercayaan untuk mengembangkan Program Berbasis Sistem Akuntansi (ProBAS) dari Satunama yang merupakan salah satu LSM terbesar di Indonesia. Aplikasi Akuntansi ProBAS dirancang sesuai standar PSAK 45 dengan tool pemrograman yang berbasis windows (desktop interface) yang telah familiar bagi kebanyakan pemakai komputer di Indonesia. ProBAS menggunakan database engine free lisence yaitu MySQL 4.0.13 dan bisa berjalan dalam sistem operasi Windows 98/2000/XP dan NT.

Proyek ini merupakan salah satu kebanggan terbesar kami sebagai pengembang sistem karena digunakan 100 kantor cabang Satunama yang tersebar di seluruh Indonesia. Hingga saat ini kami masih mendapatkan kepercayaan penuh untuk mengembangkan ProBAS dari Satunama.

Ditulis dalam Tak Berkategori | Leave a Comment »