Print TImage
[code lang=”delphi”]procedure TForm1.PrintBitmap(TheImage : TImage); var SourceRect, PrintRect: TRect; Info: PBitmapInfo; InfoSize: Integer; Image: Pointer; ImageSize: LongInt; Bits: HBitmap; DIBWidth, DIBHeight: LongInt; PrintWidth,…
Rainbow Gradient Hintergrund
Wilhelm Steinbuß wrote in message 37724E4C.5A37E97C@fh-trier.de… > Hi, > > I will made a rainborrow with two or more colors. > > A…
Screen capture
How to capture the desktop screen [code lang=”delphi”]procedure TForm1.GetDesktopBitmap; Var DeskHWnd : Hwnd; dc: HDC; ScreenWidth, ScreenHeight: Integer; TheBmp : TBitmap; FName :…
TEXTURE MAPPING (Walls only)
TEXTURE MAPPING (Walls only) I have been testing and trying to do texture mapping and I finaly found out the basics and got…
Triangle algorithm
Lars Gollub a écrit dans l’article <6up816$k8u36@forums.borland.com >… > >Can you use the fillpoly routine or something like that? > > Well, no.…
Align Form To Workspace
[code lang=”delphi”]procedure TForm1.FormCreate(Sender: TObject); var NewRect: Trect; begin // See SystemParametersInfo in the Win32.hlp file for other options SystemParametersInfo(SPI_GETWORKAREA, 0, Pointer(@NewRect), 0); Top…
Bitmap on Background
Michel TORREILLES wrote: > Hello ! > > I want to have a picture in the background of a parent MDI Form. >…
Convert DFM-Files to Text
DFM-Files in Text konvertieren: [code lang=”delphi”]var fStream : TFileStream; outStream : TMemoryStream; begin if FileListBox1.FileName = ” then Exit; fStream := TFileStream.Create(FileListBox1.FileName,fmOpenRead or…
Dragging a form with no titlebar
[code lang=”delphi”]// Declare the procedure procedure WMCHitTest(var msg : TMessage); message WM_NCHITTEST; procedure TForm1.WMCHitTest(var msg : TMessage); begin inherited; // If the client…
Draw in Caption bar
Konstantin Knips wrote in message 371B12D9.7DCB8FDB@reze-1.rz.rwth-aachen.de >… > > >Neil White schrieb: > >> In realplayer there is an icon that is overlapping…