Виртуальная библиотека Delphi

В составе Crystal Reports Professional имеется VCL-компонент для Delphi, элемент управления ActiveX, модуль CRPE32.PAS, котором объявлены все функции и структуры Print Engine API, и описание опубликованных методов Crystal Reports как сервера автоматизации. Соответственно есть следующие возможности подключения Crystal Reports к Delphi:

1. Использование функций Report Engine API из библиотеки CRPE32 DLL. В этом случае следует добавить в проект модуль CRPE32.PAS и сослаться на этот модуль в предложении uses. Ниже приведен пример соответствующего кода:

procedure TForm1.Button1Click(Sender: TObject);

VAR RepNam:PChar;

begin

if OpenDialog1.Execute then

begin

If PEOpenEngine then

begin RepNam := StrAlloc(80);

StrPCopy(RepNam, OpenDialog1.Filename);

JN := PEOpenPrintJob(RepNam);

if JN = 0 then

ShowMessage('Ошибка открытия отчета');

StrDispose(RepNam);

end

else

ShowMessage('Ошибка открытия отчета');

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

PEClosePrintJob(JN);

PECloseEngine;

Close;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

PEOutputToWindow(jn,'Пример использования Crystal Reports Print

Engine',30,30,600,400,0,0) ;

if PEStartPrintJob(JN, True) = False then

ShowMessage('Ошибка вывода отчета');

end;

end.

Следует помнить, что строковые параметры, передаваемые в функции Print Engine API, представляют собой тип данных PChar, а не стандартные строки, используемые в Pascal, поэтому для передачи таких параметров, как, например, имя отчета, следует осуществить преобразование типов с помощью функции StrPCopy. Для успешной компиляции подобных приложений файл CRPE32.PAS должен находиться в том же каталоге, что и разрабатываемое приложение, либо в каталоге Delphi\Lib.

2. Использование VCL-компонента и комплекта поставки (для этого следует установить его в палитру компонентов Delphi). Естественно, этот компонент инкапсулирует те же самые функции Print Engine API. Существуют также аналогичные компоненты третьих фирм (например, компонент от SupraSoft Ltd., http://www.suprasoft.com).

3. Использование элемента управления Crystal Reports ActiveX. Этот элемент управления может быть установлен в палитру компонентов Delphi. Он обладает набором свойств и методов, более или менее сходным с соответствующим VCL-компонентом из комплекта поставки Crystal Reports Professional.

5. Использование Crystal Reports как сервера автоматизации. В справочной системе Crystal Reports имеется подробное описание иерархии вложенных объектов и их методов (и внушительный набор примеров для Visual Basic, аналоги которых несложно создать и на Pascal). Ниже приведен пример соответствующего кода:

procedure TForm1.Button1Click(Sender: TObject);

var r,rep: Variant;

begin

rep:=CreateOleObject('Crystal.CRPE.Application');

r:=rep.OpenReport('d:\Report2.rpt');

r.RecordSelectionFormula := '{items.ItemNo} = '+Edit1.Text;

r.Preview;

r:=Unassigned;

rep:=Unassigned;

end;

6. Можно также сделать отчет в виде исполняемого файла и вызвать его из приложения. Но в этом случае в отчет не удастся передать параметры.

Вопрос:

Как разместить прозрачную надпись на TBitmap?

Пример:

procedure TForm1.Button1Click(Sender: TObject);

var

OldBkMode : integer;

begin

Image1.Picture.Bitmap.Canvas.Font.Color := clBlue;

OldBkMode := SetBkMode(Image1.Picture.Bitmap.Canvas.Handle,TRANSPARENT);

Image1.Picture.Bitmap.Canvas.TextOut(10, 10, 'Hello');

SetBkMode(Image1.Picture.Bitmap.Canvas.Handle,OldBkMode);

end;

Вопрос:

Можно ли обратиться к колонке или строке grid'а по заголовку?

Ответ:

В следующем примере приведены две функции: GetGridColumnByName() и GetGridRowByName(), которые возвращают колонку или строку, имеющую заданный заголовок (caption).

Пример:

procedure TForm1.FormCreate(Sender: TObject);

begin

StringGrid1.Rows[1].Strings[0] := 'This Row';

StringGrid1.Cols[1].Strings[0] := 'This Column';

end;

function GetGridColumnByName(Grid : TStringGrid; ColName : string): integer;

var

i : integer;

begin

for i := 0 to Grid.ColCount - 1 do if Grid.Rows[0].Strings[i] = ColName then begin

Result := i;

exit;

end;

Result := -1;

end;

function GetGridRowByName(Grid : TStringGrid; RowName : string): integer;

var

i : integer;

begin

for i := 0 to Grid.RowCount - 1 do if Grid.Cols[0].Strings[i] = RowName then begin

Result := i;

exit;

end;

Result := -1;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

Column : integer;

Row : integer;

begin

Column := GetGridColumnByName(StringGrid1, 'This Column');

if Column = -1 then ShowMessage('Column not found')

else ShowMessage('Column found at ' + IntToStr(Column));

Row := GetGridRowByName(StringGrid1, 'This Row');

if Row = -1 then ShowMessage('Row not found')

else ShowMessage('Row found at ' + IntToStr(Row));

end;

Вопрос:

Как использовать клавишу-акселератор в TTabsheets? Я добавляю клавишу-акселератор в заголовок каждого Tabsheet моего PageControl, но при попытке переключать страницы этой клавишей программа пикает и ничего не происходит.

Ответ: Можно перехватить сообщение CM_DIALOGCHAR.

Пример:

type TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

private {Private declarations}

procedure CMDialogChar(var Msg:TCMDialogChar); message CM_DIALOGCHAR;

public

{Public declarations}

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CMDialogChar(var Msg:TCMDialogChar);

var

i : integer;

begin

with PageControl1 do begin

if Enabled then for i := 0 to PageControl1.PageCount - 1 do if ((IsAccel(Msg.CharCode, Pages[i].Caption)) and (Pages[i].TabVisible)) then begin

Msg.Result:=1;

ActivePage := Pages[i];

exit;

end;

end;

inherited;

end;

Вопрос:

При использованиии компонента TRegistry под NT пользователь с права доступа ниже чем "администратор" не может получить доступа к информации реестра в ключе HKEY_LOCAL_MACHINE. Как это обойти?

Ответ:

Проблема вызвана тем, что TRegistry всегда открывает реестр с параметром KEY_ALL_ACCESS (полный доступ), даже если необходим доступ KEY_READ (только чтение). Избежать этого можно используя функции API для работы с реестром (RegOpenKey и т.п.), или создать новый класс из компонента TRegestry, и изменить его так чтобы можно было задавать режим открытия реестра.

Вопрос:

Можно ли изменить число колонок и их ширину в компоненте TFileListBox?

Ответ:

В приведенном примере FileListBox приводится к типу TDirectoryListBox — таким образом можно добавиь дополнительные колонки.

Пример:

with TDirectoryListBox(FileListBox1) do begin

Columns := 2;

SendMessage(Handle, LB_SETCOLUMNWIDTH, Canvas.TextWidth('WWWWWWWW.WWW'),0);

end;

Вопрос:

Как настроить табуляцию в компоненте TMemo?

Ответ:

Пошлите в Memo сообщение EM_SETTABSTOPS. Например установим первую позицию табуляции на 20-й пиксел.

Пример:

procedure TForm1.FormCreate(Sender: TObject);

var

DialogUnitsX : LongInt;

PixelsX : LongInt;

i : integer;

TabArray : array[0..4] of integer;