novi sam

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

neznam baš pravila moželimi ko pomoči oko ovog
de pomagajte imam znači tabelu sa edit kontrolama kako da to snimim da mi tabela bude snimljena,ja sam več 10 dana lomim pišem kodove ništa nevalja imali ko dami pomogne probo sam sve što je umoj moči,gledo na internetu ima za memu uglavnom meni treba ili tabela da se snimi a ta tabela je sastavljena iz edit a tako dabi najbolje bilo kad bi snimio cijelu foru ko kod printa form1.print tako nešto samo da snimim čitavu formu moželimi ko objasniti ili uputiti započeti samo gledo sam i u helpu sve ima za memu i ostale nigdje nisam našo za edit komponente da snimim,pomagajte ako možete.
molio bi puno

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

ako bi ti to mogao malo razgovetnije da objasnis ja bih ti bio zahvalan.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Napisano: 04 Avg 2012 21:16

evo postaviču svoju aplikaciju to što vidiš sliku to bi trebo snimiti komplet formu kako se vidi
znači pokušavo sam jednostavno da snimim kompletnu ovu fornu kojaje na slici stavio sam main meni open dialog sve što sam ja mislio da treba i nisam znao bio biti zahvalan dami objasniš kako da snimim ovu formu

Dopuna: 04 Avg 2012 21:18

dali sam ti uspijo objasnuti tu sam pa ako treba šta još objasniti samo reci,mučim se danima sam sve što sam uspijo da snim je prazno piše ovo C:\Users\BORISMIHAILO\Desktop\SaveDialog\SaveDialog1 znači ništa nisam snimio živ bio pomagaj razbiču komp

Dopuna: 04 Avg 2012 21:20

formu mislim vidim da mi fali gore slovo stavio sam n umjesto m formu trebam kako se vidi da snimim

Dopuna: 04 Avg 2012 21:37

valjda sam ti uspio objasniti hvala unapred

• 1Ovo se svidja korisniku: Kenny742
  
  Registruj se da bi pohvalio/la poruku!

unit Unit1; {$mode objfpc}{$H+} interface uses   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,   Grids, ExtCtrls; type   { TForm1 }   TForm1 = class(TForm)     Button1: TButton;     Image1: TImage;     Label1: TLabel;     SaveDialog1: TSaveDialog;     StringGrid1: TStringGrid;     procedure Button1Click(Sender: TObject);   private     { private declarations }   public     { public declarations }   end; var   Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure copyImage(form : TForm; destination : TBitmap); //procedure that assigns the screenshot of "form" to "destination" var tmp : TBitmap; w,h : integer; r : TRect; begin   w := form1.Width;   h:= form1.Height;   r:= Rect(0,0,w,h);   tmp:=TBitmap.Create;   tmp.Width:=w;   tmp.Height:=h;   tmp.Canvas.CopyRect(r, form1.Canvas, r);   destination.Assign(tmp); end; procedure TForm1.Button1Click(Sender: TObject); begin copyImage(form1, image1.Picture.Bitmap);   image1.Picture.SaveToFile('D:\img001.bmp'); end; end.

http://www.lazarus.freepascal.org/index.php/topic,4211.msg19714.html#msg19714

Ovako je u Lazarusu, ne bi trebalo da bude problema u Delphi.
Rezultat mog testa:

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

a sunceti božije ja mislio treba kod dva,hvala prijatelju,imam ja da učim i učim koliko hočeš još