Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. halfyawn

    How to copy bitmap to canvas ?

    var vbmp:TBitmap; vrect:TRect; begin vbmp:=TBitmap.Create; vbmp.Width:=500; vbmp.Height:=300; vrect:=RECT(0,0,vbmp.Width,vbmp.Height); vbmp.Canvas.CopyRect(vrect, Canvas,vrect); // ~~~~~~Source Canvas
  2. halfyawn

    TJpegImage and compression

    //-------------------------------------------- uses jpeg; procedure TForm1.GoClick(Sender: TObject); const path = 'c:\'; var jpeg: TJpegImage; bmp: TBitmap; begin jpeg := TJpegImage.Create; bmp := TBitmap.Create; try jpeg.LoadFromFile( path + 'Old.jpg'); bmp.Assign(jpeg)...
  3. halfyawn

    Saving Icons to Stream

    procedure TThings.WriteToStream(Fs : TFileStream ); begin Fs.WriteBuffer(XPos, Sizeof(Xpos)); Fs.WriteBuffer(YPos, Sizeof(Ypos)); ObjectIco.SaveToStream(fs); end;

Part and Inventory Search

Back
Top