STEP BY STEP How To Make Death Pixel Easier Check Using Delphi

To make the application, enter the components as follows in to Form 1

No	Component	Properties	Value
1	Form1	Caption	Laptop Death Pixel Checker
2	GroupBox1	Caption	Choose Color
3	Shape1	Brush-Color	ClWhite
4	Shape2	Brush-Color	ClBlack
5	Shape3	Brush-Color	ClRed
6	Shape4	Brush-Color	ClLime
7	Shape5	Brush-Color	ClBlue
8	Shape6	Brush-Color	ClYellow
9	Shape7	Brush-Color	ClWhite
10	Label1	Caption	White
11	Label2	Caption	Black
12	Label3	Caption	Red
13	Label4	Caption	Green
14	Label5	Caption	Blue
15	Label6	Caption	Choose Color
16	Label7	Caption	Auto Change
17	Button1	Caption	...
18	Timer1	Enabled	False
19	ColorDialog1	-	-

 

Arrange the component like the picture below:

Before type the source code , please declare a global  variable call  i which its an Integer.

Then type the source code below. Each source code is accidentally written very simple to make it easier for the beginners in understanding the program that is written.

Component Name	Event	SOURCE CODE
Form1	FormCreate	form1.Height:=  400; form1.Width:= 275; form1.Position := poDesktopCenter;
Form1	OnMouseDown	form1.Height:=  400; form1.Width:= 275; form1.Position := poDesktopCenter; form1.Color:=clBtnFace; form1.BorderStyle:=  bsSizeable; groupbox1.Show; timer1.Enabled:=false; i:=0;
Shape1	OnMouseDown	form1.Height:=monitor.Height; form1.Width:=monitor.Width; form1.Position := poDesktopCenter; form1.BorderStyle:=bsNone; groupbox1.Hide; form1.Color:=ClWhite;
Shape2	Shape1MouseDown	form1.Height:=monitor.Height; form1.Width:=monitor.Width; form1.Position := poDesktopCenter; form1.BorderStyle:=bsNone; groupbox1.Hide; form1.Color:=ClBlack;
Shape3	Shape1MouseDown	form1.Height:=monitor.Height; form1.Width:=monitor.Width; form1.Position := poDesktopCenter; form1.BorderStyle:=bsNone; groupbox1.Hide; form1.Color:=ClRed;
Shape4	Shape1MouseDown	form1.Height:=monitor.Height; form1.Width:=monitor.Width; form1.Position := poDesktopCenter; form1.BorderStyle:=bsNone; groupbox1.Hide; form1.Color:=ClLime;
Shape5	Shape1MouseDown	form1.Height:=monitor.Height; form1.Width:=monitor.Width; form1.Position := poDesktopCenter; form1.BorderStyle:=bsNone; groupbox1.Hide; form1.Color:=ClBlue;
Shape6	Shape1MouseDown	form1.Height:=monitor.Height; form1.Width:=monitor.Width; form1.Position := poDesktopCenter; form1.BorderStyle:=bsNone; groupbox1.Hide; form1.Color:=shape6.Brush.Color;
Shape7	Shape1MouseDown	i:=0; form1.Height:=monitor.Height; form1.Width:=monitor.Width; form1.Position := poDesktopCenter; form1.BorderStyle:=bsNone; groupbox1.Hide; timer1.Enabled:=true;
Timer1	OnTimer	var secon:integer; begin secon:=strtoint(edit1.Text); timer1.Interval:=   secon*1000; i:=i+1; if i=1 then form1.Color:=ClWhite; if i=2 then form1.Color:=ClBlack; if i=3 then form1.Color:=ClRed; if i=4 then form1.Color:=ClLime; if i=5 then form1.Color:=ClBlue; end;
Button1	OnClick	if  ColorDialog1.Execute then begin Shape6.Brush.Color:=ColorDialog1.Color; end; end; procedure TForm1.Shape3MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin form1.Height:=monitor.Height; form1.Width:=monitor.Width; form1.Position := poDesktopCenter; form1.BorderStyle:=bsNone; groupbox1.Hide; form1.Color:=ClRed;

This is the application preview

Add caption

I hope this article can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing 

Share this on Facebook

Tweet this

or just press like button under this posting

Death Pixel Check Easier Using Delphi

Death Pixel Easier Check is a simple application for checking the death pixel in Laptop /Notebook/Net book Monitor. This application has function for seller and buyer who want to buy new or secondhand laptop. This application can be used to help checking the Death Pixel in the LCD monitor. Usually, the shop that sell new laptop give tolerance, maximal there are 5 death pixel in LCD monitor. So it can be said that the monitor is in a good enough condition. The positive side for buyer if there is Death Pixel Checker can give ease so they do not buy monitor that has plenty death pixel. 

The real procedure of the application that will be made by appearing same color in the monitor in the form of color those make it easier for checking. For example, there are 10 death pixels in monitor, if desktop background which is appeared in a monitor is in white color, so the death pixel is hard to be recognized by eyes. However, if we exploit Death Pixel Easier Checker application, hopefully can make the observation easier because later on, the application will appear same color in a monitor page. 

When the black color is clicked so the monitor will be full of black colo.

I hope this article can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing 

Share this on Facebook

Tweet this

or just press like button under this posting