Hi:

Can anyone help me with the following?

I want to save whatever is painted on a TCanvas to a graphics-file
(BMP, PCX maybe). My hitherto attempts to translate Pascal BGI-to-PCX
routines have failed altogether.

Does anyone have a clue (Replies both to the news.group and to private
eMail hartkamp@uni-duesseldorf are welcome).

Regards, N. Hartkamp

Cheers.
E.

---------------------------------
Eckhard Gartz
UNIBase Development
gart...@telkom.co.za

On Tue, 11 Mar 1997 15:21:42 +0200, Eckhard Gartz

On Tue, 11 Mar 1997 15:21:42 +0200, Eckhard Gartz

                Bits.Canvas.CopyMode := cmSrcCopy;
                Bits.Canvas.CopyRect(ClientRect, Canvas, ClientRect);

                Bits.SaveToFile(wpfile);
        end;
        bits.free;
        {save it}
        i:=tinifile.create('Win.ini');
        i.WriteString('Desktop','WallPaper',wpfile);
        i.WriteInteger('Desktop','TileWallPaper',Tiled);
        i.free;

        l:=SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, NIL,
SPIF_SENDWININICHANGE);

end;

--
-----------------------------------------
Software Services - Making Windows Scream
http://www.invsn.com/softserv/
bry...@thevision.net
-----------------------------------------

try sth like that:

//***************************
procedure TForm3.SaveasBitmap1Click(Sender: TObject);
var
  Bitmap1  : TBitmap;
  x,y      : longint;
  Filename : string;
begin
  Bitmap1 := TBitmap.Create;
  x:=Form3.clientwidth;
  y:=Form3.clientheight;
  Bitmap1.width:=x;
  Bitmap1.height:=y;
//******here comes the important part************
  Bitmap1.Canvas.CopyRect(Rect(0,0,x,y), Canvas, Rect(0,0,x,y));
//***********************************************
  SaveDialog1.Filter := 'Bitmaps|*.bmp';
  SaveDialog1.Execute;
  if Savedialog1.Filename='' then Filename:='noname.bmp'
  else begin
    Filename:=SaveDialog1.Filename;
    Filename:=Filename+'.bmp';
  end;
  Bitmap1.savetoFile(Filename);
  Bitmap1.Free;
end;
//**************************

good luck,

guenter

--------------------------

does anybody know where to get FFT and other math-routines for
pascal/delphi?

thanx a lot,

guenter

In article
<Pine.HPP.3.92.970311194849.28166E-100...@wpax22.physik.uni-wuerzburg.de>,
   Guenter Guttroff <g...@Cip.Physik.Uni-Wuerzburg.DE> wrote:
]-does anybody know where to get FFT and other math-routines for
]-pascal/delphi?
]-

Try this...

        Some Sources of Numerical Analysis Code in Pascal

          =>   ftp://cloudlab.larc.nasa.gov/pnumsrc.htm

there are several links to libraries containing FFT code.

Mark Vaughan

Guenter,
        This is extremely useful.  I am looking for saving to GIF, so using
this method all I really need if just top convert now from BMP to GIF.  

Is anyone aware of such as beast that would allow me to do it in memory
rather than saving to disk and using utilities?

Thanks, Gus

In article <5g7or4$...@reznor.larc.nasa.gov>,
   m.a.vaug...@larc.nasa.gov (Mark Vaughan) wrote:
]-In article
]-<Pine.HPP.3.92.970311194849.28166E-100...@wpax22.physik.uni-wuerzburg.de>,
]-   Guenter Guttroff <g...@Cip.Physik.Uni-Wuerzburg.DE> wrote:
]-]-does anybody know where to get FFT and other math-routines for
]-]-pascal/delphi?
]-]-
]-
]-
]-Try this...
]-
]-        Some Sources of Numerical Analysis Code in Pascal
]-
]-          =>   ftp://cloudlab.larc.nasa.gov/pnumsrc.htm
]-
]-there are several links to libraries containing FFT code.
]-
]-
]-Mark Vaughan

and if it's just FFT stuff you want, then search recent posts to
this group using DejaNews...there was a fairly lengthy exchange
by David Ullrich et. al. with LOTS of code included.

Mark Vaughan

        If you find a post containg an embarassed explanation
of how the wrong wrong wrong version could slip through the
cracks the way it did you may be safe - I believe the version
there is correct.

--
David Ullrich

?his ?s ?avid ?llrich's ?ig ?ile
(Someone undeleted it for me...)

Check the MATH section

The Graphical Gome      (r...@ktibv.nl)

Senior Software Engineer

--------------------------------------------------------------------------------------------------------------
Delphi developers FAQ at http://www.gnomehome.demon.nl/uddf/index.htm
Non frame version     at  http://www.gnomehome.demon.nl/uddf/indexnf.htm

--
David Ullrich

?his ?s ?avid ?llrich's ?ig ?ile
(Someone undeleted it for me...)

In
Article<Pine.HPP.3.92.970311194849.28166E-100...@wpax22.physik.uni-wuerzburg.de

         arnon

Thanks,

Michael