edysoftware.com

How to make gradation form in delphi

procedure TForm1.FormPaint(Sender: TObject);
var
y : longint ;
rect : TRect ;
begin
rect.Left := 0 ;
rect.Right := Width ;
for y := 0 to 255 do
begin
canvas.Brush.Color := TColor(RGB(0,y,y)) ;
rect.top := y * Height div 256 ;
rect.Bottom := (y+10) * height div 256 ;
canvas.FillRect(rect) ;
end;
end;

How to call open dialog file in excel..?

There is a way to read ini files in  windows directory using excel, we can choose file any kind of which wish to be read.  by calling open dialogue file at excel we will try reads contents of the  file line by line.

Application.GetOpenFilename(”ini Files (*.ini) ,*.ini“, 0, “Open As You Like“, “Open“, False)

Continue Reading…

Some time we need a function in visual basic application but we never found that in VBA, so we must create by self that function. For example I have text number “0000100,00″ and I want to take  number “100,00″ only and I don’t need “0000″ in front of “100,00″ .

How to eliminate “0000″ …?

Continue Reading…