Программа "Построение графиков" Delphi

[zefir1594]

Есть исходник программы "Построение графиков"(программа не моя), препод задал по ней курсач! И в задании сказал что нужно добавит в прогу:
1. Печать Графика
2. Сохранение в картинку

Проблема в чем, в том что это все есть в программе, но является не активным!
Помогите пожалуйста решить проблемку!!!!

исходник и компоненты программы ниже!!!

Буду очень благодарен!!!

[ОДИНОЧЕСТВО В СЕТИ]

2. Сохранение в картинку

imgGraphic.Picture.SaveToFile('rf.bmp');

для выбора имени файла юзайте SaveDialog!

1 Печать Графика

uses  
  printers;  

procedure DrawImage(Canvas: TCanvas; DestRect: TRect; ABitmap: TBitmap);  
var  
  Header, Bits: Pointer;  
  HeaderSize: DWORD;  
  BitsSize: DWORD;  
begin  
  GetDIBSizes(ABitmap.Handle, HeaderSize, BitsSize);  
  Header := AllocMem(HeaderSize);  
  Bits := AllocMem(BitsSize);  
  try  
    GetDIB(ABitmap.Handle, ABitmap.Palette, Header^, Bits^);  
    StretchDIBits(Canvas.Handle, DestRect.Left, DestRect.Top,  
      DestRect.Right, DestRect.Bottom,  
      0, 0, ABitmap.Width, ABitmap.Height, Bits, TBitmapInfo(Header^),  
      DIB_RGB_COLORS, SRCCOPY);  
  finally  
    FreeMem(Header, HeaderSize);  
    FreeMem(Bits, BitsSize);  
  end;  
end;  

procedure PrintImage(Image: TImage; ZoomPercent: Integer);  
  // if ZoomPercent=100, Image will be printed across the whole page  
var   
  relHeight, relWidth: integer;  
begin  
  Screen.Cursor := crHourglass;  
  Printer.BeginDoc;  
  with Image.Picture.Bitmap do   
  begin  
    if ((Width / Height) > (Printer.PageWidth / Printer.PageHeight)) then  
    begin  
      // Stretch Bitmap to width of PrinterPage  
      relWidth := Printer.PageWidth;  
      relHeight := MulDiv(Height, Printer.PageWidth, Width);  
    end   
    else  
    begin  
      // Stretch Bitmap to height of PrinterPage  
      relWidth  := MulDiv(Width, Printer.PageHeight, Height);  
      relHeight := Printer.PageHeight;  
    end;  
    relWidth := Round(relWidth * ZoomPercent / 100);  
    relHeight := Round(relHeight * ZoomPercent / 100);  
    DrawImage(Printer.Canvas, Rect(0, 0, relWidth, relHeight), Image.Picture.Bitmap);  
  end;  
  Printer.EndDoc;  
  Screen.cursor := crDefault;  
end;  

// Example Call:  

procedure TForm1.Button1Click(Sender: TObject);  
begin  
  // Print image at 40% zoom:  
  PrintImage(Image1, 40);  
end;

осталось прикрутить к проге!

Что значит "не активным" ?

кнопки есть а ButtonClick - отсутствует!

[Вавел из ГМТУ]

Заумная программка.... Что значит "не активным" ?

[IT-man]

Помогите пожалуйста решить проблемку!!!!

стучи помогу контакты ниже!

[zefir1594]

код для Печати можно прям туда вбухать???

И на счет ButtonClick что делать???