Delphi Tutorial

Providing easy and intuitive navigation options within an application is the goal of every software developer. The ExpressNavBar Suite gives you everything you need to create easy to use applications with incredible sophistication and elegance. Via its advanced design time editor, you can quickly setup and create the look and feel of choice without writing a single line of code - and deliver applications that will blow away your competition. ExpressNavBar even allows you to include shortcuts and other visual controls within it.

Continue Reading »

Standard action menu bar, created with TActionMainMenuBar is glitchy and awkward. Nobody can cosider using it in a serious development project. And this is where TActionMenuBar2000 comes in. Simply replace TActionMainMenuBar with TActionMenuBar2000 and enjoy powerful functions of actions and professional look and feel of Animated Menus. No additional coding is needed, all replacements will be done automatically at runtime. TActionMenuBar2000 will correctly render all changes you’re mading to your actions.

Continue Reading »

function GetDesktopScreenShot:TBitmap;
var
Desktop:HDC;
begin
Result:= TBitmap.Create;
Desktop:= GetDC(0);
try
try
Result.PixelFormat := pf32bit;
Result.Width := Screen.Width;
Result.Height := Screen.Height;
BitBlt(Result.Canvas.Handle,0,0, Result.Width, Result.Height, Desktop,0,0,SRCCOPY);
Result.Modified := True;
finally
ReleaseDC(0,Desktop);
end;
except
Result.Free;
Result:=nil;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Bitmap := GetDesktopScreenShot;
end;

Here Borland Database Engine (BDE) error list:

Continue Reading »