Membuat warna record DBGRid pada ‘event mouse over’

DOWNLOAD JADWAL.xlsx
Berikut ini cara membuat warna pada record di DBGRid pada event mouse over yang berfungsi untuk mempercantik interface. Caranya cukup sederhana dan mudah difahami, Berikut langkah nya: 1. Ketik “ type THackDBGrid = class(TDBGrid); ” tanpa tanda petik tepat di bawah “Uses” seperti gambar berikut :
2. Ketikkan kode berikut pada DBGRid dalam event “OnDrawColumnCell” : procedure TFcode.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var grid : TDBGrid; row : integer; begin //Warna pada mouse move if (THackDBGrid(DBGrid).DataLink.ActiveRecord + 1 = THackDBGrid(DBGrid).Row) or (gdFocused in State) or (gdSelected in State) then begin DBGrid.Canvas.Brush.Color := clLime; DBGrid.Canvas.Font.Style := DBGrid.Canvas.Font.Style + [fsBold] + [fsItalic]; DBGrid.Canvas.Font.Color := clRed; end; //Warna berbeda pada DBGrid grid := sender as TDBGrid; row := grid.DataSource.DataSet.RecNo; if Odd(row) then grid.Canvas.Brush.Color := $00E1D7D5 else grid.Canvas.Brush.Color := $00C0F1B1; grid.DefaultDrawColumnCell(Rect, DataCol, Column, State) ; end; 3. Langkah takhir adalah ketik kode berikut pada DBGRid dalam event “OnMouseMove” : procedure TFcode.DBGridMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var gc: TGridCoord; begin gc:= DBGrid.MouseCoord(x, y); if (gc.X > 0) AND (gc.Y > 0) then begin DBGrid.DataSource.DataSet.MoveBy (gc.Y - THackDBGrid(DBGrid).Row); end; end; Semoga tulisan ini bermanfaat… Link Download lengkap :

Cara membuat warna pada DBGrid di delphi

Untuk memperindah view data pada DBGrid di Delphi dengan warna yang berbeda pada setiap recordnya cukup dengan menambahkan code berikut : di DBGRid pada event on DrawColumnCell.
procedure TFkaryawan.dbgkaryawanDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var grid : TDBGrid; row : integer; begin grid := sender as TDBGrid; row := grid.DataSource.DataSet.RecNo; if Odd(row) then grid.Canvas.Brush.Color := $00E1D7D5 else grid.Canvas.Brush.Color := $00C0F1B1; grid.DefaultDrawColumnCell(Rect, DataCol, Column, State) ; end; semoga ini bermanfaat walaupun sudah banyak yang posting tentang mewarnai grid..

Hitung Umur dengan delphi

Source code hitung umur. Walaupun sudah sangad banyak cara hitung umur terutama dengan delphi, ane berharap source code ini bisa sedikit membantu untuk yang sedang belajar delphi walapun masih banyak kekurangannya. Silakan untuk dikembangkan.
Pada dasarnya cara menghitung umur adalah dengan mengurangkan tanggal sekarang dengan tanggal lahir untuk mengetahui selisih jumlah hari diantara keduanya. Dalam source code ini, ane memodifikasi sebuah fungsi yaitu

Result:= Trunc(TglNew - TglOld);
sebagai berikut :

function SelisihTanggal(TglOld,TglNew: TDate): Integer;
begin
Result:= Trunc(TglNew - TglOld);
end;

fungsi tersebut di tulis dibawah :

implementation

{$R *.dfm}


Download Source Code :


DU Meter 5.04

Meter 5.04 dapat juga meningkatkan kecepatan internet namun hal itu belum bisa kasih report karena software ini baru ditrial.Cara Instal DU Meter 5.04:

Instal DU Meter 5.04.
Sebelum finish instalasi silahkan uncek Run Now DU Meter untuk mencegah software Run setelah instalasi selesai dilakukan.
Buka Windows Task Manager (Ctrl + Alt + Del) untuk windows XP atau pada Windows 7 klik kanan taskbar, pilih start task manager.
Pada Windows task manager, klik Tab Processes, klik “DUMeterSVC.exe”, lalu klik
End Processes

DU Meter 5.04

Tutup Windows Task Manager
Jalankan Crack, klik “crack”, muncul “Can not find the file” Search the file ? carilah file “DUmeter.exe” yang dimaksud di folder instalasi software tersebut, defaultnya seperti di bawah ini, kecuali sobat merubahnya, dobel klik “DUmeter.exe” tersebut.
C:\Program Files\DU Meter
Selesai

PC Tools File Recover v8.0.0.77 With Serial

Dengan menggunakan PC Tools File Recover, software ini mampu mengidentifikasi isi dari file yang hilang tersebut pada hard drive dan memungkinkan untuk memulihkan file atau dokumen yang sudah terhapus. Jika file sebagian sudah ditimpa, PC Tools File Recover berupaya untuk merekonstruksi sebanyak mungkin file dengan isi yang tersisa sehingga memungkinkan untuk menyelamatkan setidaknya sebagian dari file yang masih tersisa untuk mungkin bisa dipakai dan digunakan lagi.File Recover feature highlights:

Recovers files instantly from hard drives, floppy drives and other types of fixed media. If you are a home user or a network administrator, File Recover fills a critical gap in your data protection strategy.
Rapid scan engine – a typical hard drive can be scanned for recoverable files within minutes.
Scan all files and directories on selected hard drives.
Search for a recoverable file using part or all of its file name.
Utilizing a non-destructive, read-only file recovery approach. File Recover will not write or make changes to the section of the drive from which it is recovering data.
Batch file recovery (recovers multiple files in one action).
Works around bad-sector disk areas. Recovers data where other programs fail.
Supports standard IDE/ATA/SCSI hard drives, including drives larger than 8 GB.
Supports hard drives formatted with Windows FAT16, FAT32 and NTFS file systems.

PC Tools File Recover

System Requirements:

• Windows® 2000 SP4 / XP (Home and Pro) SP2 / Vista
• Windows® 2000 and XP: 300mhz CPU + 128MB RAM
1. Windows® Vista Home Basic: 800mhz CPU + 512MB RAM
2. All other versions of Vista: 1ghz CPU + 1GB RAM
• 16 MB of free hard disk space, 8X CD-ROM drive or faster
• Super VGA 800 x 600 video adapter
• Internet access is required to register product and receive product updates.

How to install:
- Unzip the rar file
- Disconnect the internet connection
- Run the setup
- Register with given serial.

SoftOrbits Flash Drive Recovery 1.3 + Serial Key

SoftOrbits Flash Drive Recovery aplikasi untuk mengembalikan atau memulihkan file hilang atau terhapus dari media penyimpanan portable. Aplikasi ini dapat memulihkan atau mengembalikan data dari semua jenis media penyimpanan seperti music sticks, digital cameras, flash drives, USB drives, PC cards dll.

Flash Drive Recovery mempunyai kelebihan untuk mengembalikan jenis file seperti foto, dokumen, mp3 dan file lainnya yang sudah terhapus bahkan jika kartu memori sudah diformat ulang.SoftOrbits Flash Drive Recovery tidak perlu lagi melakukan pengaturan pemulihan kerena seluruh proses dilakukan secara otomatis dengan wizard pemulihan built-in informasi.

SoftOrbits Flash Drive RecoverySoftOrbits Flash Drive Recovery
SoftOrbits Flash Drive Recovery allows you to:

Restore files from various storage media including: Sony Memory Stick,Zip Disk,xD Picture Card,Secure Digital Cards,Digital camera,Compact Flash card,MicroDrive,Smart Media Card,Floppy disk,Flash Card, USB disks and many others.
Preview and recover JPG,PNG,TIFF,BMP,GIF,JPEG, TGA and other images.
Preview and restore RAW images (CR2,CRW,PEF,RAF,NEF, RAW and other formats).
Works under Microsoft Windows 2003 Server, Vista,XP,2000,7.

Total Video Converter HD v3.71 with Serial

Total Video ConverterE.M. Total Video Converter is a piece of extremely powerful and full-featured converter software that supports almost all video and audio formats. The software is designed to convert video for your mobile video player as 3gp,mp4, PSP, PS3, iPod, iPhone etc and also VCD or DVD player, XBOX360.
New Total Video Converter 3.7 lets you experience Unparalleled High-Definition movie. It is the best and unique software today with incomparable support for converting and burning video to AVCHD disc which can work on PS3 and Blu-ray player. Meanwhile, it supports for converting and burning video to HD formats like H.264 TS, Mpeg-2 TS, WMV-HD, MKV-HD, DivX-HD, Divx-HD, MOV-HD, FLV-HD and MP4-HD.

E.M. Total Video Converter V3.71 New Features (update version):

Integrate into Windows Explorer with context menu.
Add a brand new Skin.
Fully support Windows 7.
Main Features of Total Video Converter:

* Convert all kinds of videos to mobile videos or audios (mp4, 3gp, xvid, divx mpeg4 avi, amr audio) which are used by cell-phone, PDA, PSP, iPod, iPhone, Xbox360, PS3 etc.;
* Photos slide show combines multi-photos and musics with more than 300 photos fantasy transition effect;
* High compatibility and high efficiency for Importing RMVB or RM video/audio;
* Convert various videos to MPEG videos compatible with standard DVD/SVCD/VCD;
* Burn the converted videos to DVD/SVCD/VCD;
* Rip DVD to popular videos of all sorts;
* Extract audio from various of videos and convert which to all kinds of audios (mp3, ac3, ogg, wav, aac);
* RIP CD to audios of all sorts directly;
* Support using with command line;
* Combine several video and audio files to one video file;
* Demultiplex or extract video and audio;
* Multiplex video and audio to one file;
* Flv Nelly Mosser audio extract and decode.

Total Video Converter supports reading the following file formats:

Video Formats:
Convert from Real Video Rmvb (.rm,.rmvb)
Convert from MPEG4 (.mp4)
Convert from 3gp (.3gp, 3g2)
Convert from Game Psp (.psp)
Convert from MPEG1 (.mpg, mpeg)
Convert from MPEG2 PS (.mpg, mpeg, vob)
Convert from MPEG2 TS (DVB Transport Stream)
Convert from DIVX (.divx)
Convert from Ms ASF (.asf, .wmv)
Convert from Ms ASF (.asf, .wmv)
Convert from Ms AVI (.avi)
Convert from Macromedia Flash video FLV (.flv)
Convert from Apple Quicktime (.mov)
Convert from FLIC format (.fli, .flc)
Convert from Gif Animation (.gif)
Convert from DV (.dv)
Convert from Matroska (.mkv)
Convert from ogm (.ogm)
Convert from Video Formats Dx9 Directshow can open

Audio Formats:
Convert from CD audio (.cda)
Convert from MPEG audio (.mp3, mp2)
Convert from Ms WAV (.wav)
Convert from Ms WMA (.wma)
Convert from Real Audio (.ra)
Convert from OGG (.ogg)
Convert from Amr audio (.amr)
Convert from AC3 (.ac3)
Convert from SUN AU format (.au)
Convert from Macromedia Flash embedded audio (.swf)
Convert from Audio Formats Dx9 Directshow can open

Game Video Formats:
Technologies format, used in some games(.4xm)
Playstation STR
Id RoQ used in Quake III, Jedi Knight 2, other computer games
Format used in various Interplay computer games,Interplay MVE
Multimedia format used in Origin’s Wing Commander III computer game,WC3 Movie
Used in many Sega Saturn console games, Sega FILM/CPK
Multimedia formats used in Westwood Studios games, Westwood Studios VQA/AUD
Used in Quake II, Id Cinematic (.cin)
Used in Sierra CD-ROM games, Sierra VMD
Used in Sierra Online games, .sol files
Electronic Arts Multimedia, Matroska
Used in various EA games; files have extensions like WVE and UV2
Nullsoft Video (NSV) format

Total Video Converter supports generating the following file formats:

Video Formats:
Convert to MPEG4(.mp4)
Convert to 3gp(.3gp, 3g2)
Convert to Game Psp (.psp)
Convert to MPEG1 (.mpg, mpeg)
Convert to NTSC, PAL DVD mpeg and Burn to DVD disc
Convert to NTSC, PAL SVCD mpeg and Burn to SVCD disc
Convert to NTSC, PAL VCD mpeg and Burn to VCD disc
Convert to Ms Mpeg4 AVI (.avi)
Convert to Divx AVI (.avi)
Convert to Xvid AVI (.avi)
Convert to H264 AVI (.avi)
Convert to Mjpeg AVI (.avi)
Convert to HuffYUV AVI (.avi)
Convert to Swf Video (.swf)
Convert to Flv Video (.flv)
Convert to Gif Animation (.gif)
Convert to Mpeg4 Mov (.mov)
Convert to Apple Quicktime (.mov)
Convert to DV (.dv)
Convert to WMV (.wmv)
Convert to HD Mpeg TS (.ts)
Convert to ASF (.asf)

Audio Formats:
Convert to MPEG audio(.mp3, mp2)
Convert to Ms WAV (.wav)
Convert to Ms WMA (.wma)
Convert to OGG (.ogg)
Convert to Amr audio (.amr)
Convert to AC3 (.ac3)
Convert to SUN AU format (.au)
Convert to m4a (mp4 audio)
Convert to aac (aac audio)
Convert to mmf (mmf audio)
Convert to Flac (flac audio)

Total Video Converter

Installation Instructions:

- When Downloaded Use WinRar or a Similar Program to Extract Files.
- Double Click & Run The Setup File “tvc.exe”.
- Follow on Screen Prompts.
- Finally Run the Program & Register this Version by using ‘Registration Codes’ which is given in the “Serial Keys.txt” text file in the Downloded Folder. (For Futher Informations please read ‘Readme.txt’ text file)
- You are now successfully registered !
- Enjoy.

Pages

next page