سورس دلفی

[lord_viper]

استفاده از fast report در دلفی

کد:

procedure MyForm.HowToUseFastReport;
begin
  try
    frxReport1.PrepareReport(true); //Prepare the report
    frxReport1.ShowPreparedReport; //Show the prepared report.
    frxReport1.PrintOptions.ShowDialog := False; //Do not show print dialog
    frxReport1.PrintOptions.Printer := YourPrinterName; //Assign Printer Name
    frxReport1.SelectPrinter; //Select this printer
    frxReport1.PrintOptions.Copies := NoOfCopies; //Assign number of copies to be printed
    frxReport1.Print; //Finally print
  except
    on E : Exception do
    begin
      ShowMessage('Error occured in function HowToUseFastReport: ' + E.Message);
    end;
  end;
end;

به جای YourPrinterName نام پرینتر خود را بگذارید
استفاده از این تابع

کد:

frxReport1.ShowPreparedReport; //Show the prepared report.

---

گوش گرد کردن کنترلها در دلفی

کد:

procedure TMyForm.RoundTheCorners;
begin
  MakeRounded(Panel1);
  MakeRounded(Panel2);
  MakeRounded(Panel3);
  MakeRounded(Panel4);
end;

procedure TMyForm.MakeRounded(Control: TWinControl);
var
  R: TRect;
  Rgn: HRGN;
begin
  with Control do
  begin
    R := ClientRect;
    rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20);
    Perform(EM_GETRECT, 0, lParam(@r));
    InflateRect(r, - 5, - 5);
    Perform(EM_SETRECTNP, 0, lParam(@r));
    SetWindowRgn(Handle, rgn, True);
    Invalidate;
  end;
end;