[-=#PupaJr#=-]

Есть задача - распечатать Image, нашёл пример где есть масштабирование, подключил стандартный диалог печати PrintDialog но в нём нет масштаба, нашёл пример в статьях о диалогах где есть рисование своих элементов управления в PrintDialog - сделал, получилось нарисовать - поставил там Static Text(описание) и TEdit - место ввода величины масштаба. Проверяю его так : If PrintDialog.Execute then begin xxxxxxx end - стандартные рамки работы с диалогом. Так внутр их я НЕМОГУ взять текст с моего внедрённого Edit, пробывал по разному: PrintDialog.ScEdit - по имени данному при создании, пытался получить по хенделу как дочернее окно через FindWindow, FindComponent, getWindowText - но нужен хендл самого Edit - который тоже получить немогу.. у бился короче.. помогите плиз . Печать сама работает на УРА если просто печатаю и железно пишу масштаб в самом коде... а хотелось бы сделать его изменяемым...

[Bars1992]

попробуй запрограмировать событие ввода в мемо. Чтоб при вводе весь текст схозранялся в какуюто глобальную переменную

[-=#PupaJr#=-]

Привет!, мемо я неиспользую, использую TEedit для написания числа масштаба, я думал о перехвате ввода, но ведь этот элемент создаётся динамически и прямо на готовую форму стандартного диалога, и как тут же создать процедуру перехвата сообщений от ввода чисел в этот TEdit... Думал после создания запомнить хеадер в глобальной переменной - невижу её в других юнитах - компилер ругается и немогу найти точку куда вставить момент перехвата - после нажатия кнопки ОК, настройки диалога я ловлю а то что рисовалось исчезает со своими данными...кудато...

[Bars1992]

Сообщение от -=#PupaJr#=-

Привет!, мемо я неиспользую, использую TEedit для написания числа масштаба, я думал о перехвате ввода, но ведь этот элемент создаётся динамически и прямо на готовую форму стандартного диалога, и как тут же создать процедуру перехвата сообщений от ввода чисел в этот TEdit... Думал после создания запомнить хеадер в глобальной переменной - невижу её в других юнитах - компилер ругается и немогу найти точку куда вставить момент перехвата - после нажатия кнопки ОК, настройки диалога я ловлю а то что рисовалось исчезает со своими данными...кудато...

Если это не супер сикретный проект можешь его скинуть??? а то я не совсем тебя понимаю

[-=#PupaJr#=-]

Надо было просто поставить перехват события на закрытие диалога - но как??? нигде ненаписано, пошёл по аналогии с "открытием" формы - DoShow и я поставил ниже событие- просто добавил процедуру DoClose
Вот получившийся код:

Код:

unit exprn;

 interface

 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   ExtDlgs, extctrls, stdctrls, CommDlg, Dlgs,ComCtrls;

 type
   TExtendedPrintDialog = class(TPrintDialog)         //определяем новый класс из родительского
   private
     fExtendedPanel: TPanel;                          // определяем новые компоненты
     flabel,flabel2: TLabel;
     ftedit: TEdit;
   protected
     procedure DoShow; override;
     function GetStaticRect: TRect;
     function TaskModalDialog(DialogFunc: Pointer; var DialogData): Bool;
       override;
   public
     constructor Create(AOwner: TComponent); override;
     function Execute: Boolean; override;
   end;

 implementation

 constructor TExtendedPrintDialog.Create(AOwner: TComponent);     //создаём новые компоненты
 begin
   inherited;                                             //несовсем понял этот оператор :-(
   fExtendedPanel := TPanel.Create(Self);                  //создали панель на которой всё рисуем
   with fExtendedPanel do
   begin
     Name    := 'ExtendedPanel';
     Caption := '';
     SetBounds(0, 0, 169, 200);  // (204, 5, 169, 200);
     BevelOuter  := bvNone;
     BorderWidth := 6;
     TabOrder    := 1;

     flabel     := TLabel.Create(Self);                     //комент к полю ввода
     with flabel do
      begin
        Name    := 'SomeLabel';
        Caption := 'Масштаб ';
        SetBounds(0, 7, 50, 21);
        Parent := fExtendedPanel;
      end;

     flabel2     := TLabel.Create(Self);
     with flabel2 do
      begin
        Name    := 'SomeButt';                             //знак процента в конце
        Caption := '%';
        SetBounds(80, 7, 20, 21);
        Parent := fExtendedPanel;
      end;

     ftedit := TEdit.Create(Self);
     with ftedit do
      begin
        Name    := 'EditProcent';                           //само поле ввода
        Caption := '';
        SetBounds(50, 3, 25, 21);
        Parent := fExtendedPanel;
        Text:='100';
        MaxLength:=3;
      end;
   end
 end;

procedure TExtendedPrintDialog.DoShow;
 var
   PreviewRect, StaticRect: TRect;
 begin
   { Set preview area to entire dialog }
   GetClientRect(Handle, PreviewRect);
   StaticRect := GetStaticRect;
   { Move extended area to right of static area }
   PreviewRect.Left := StaticRect.Left;
   PreviewRect.Top  := StaticRect.Bottom;
   Inc(PreviewRect.Top, 4);
   fExtendedPanel.BoundsRect   := PreviewRect;
   fExtendedPanel.ParentWindow := Handle;
   inherited DoShow;
 end;
//---------------------------------- это добавил я
procedure TExtendedPrintDialog.DoClose;
begin
//переношу данные из этого места в главную форму
 Form1.Edit1.Text:=ftedit.Text; //вот и всё
end;
//------------------------------------

function TExtendedPrintDialog.Execute: Boolean;
 begin
   Template := 'DLGTEMPLATE';// this is in the extdlgs.rc
  Result   := inherited Execute;
 end;

 function TExtendedPrintDialog.GetStaticRect: TRect;
 begin
   if Handle <> 0 then
   begin
     GetWindowRect(GetDlgItem(Handle, grp1), Result); // print range group box 
    MapWindowPoints(0, Handle, Result, 2);
   end
   else
     Result := Rect(0, 0, 0, 0)
 end;

 function TExtendedPrintDialog.TaskModalDialog(DialogFunc: Pointer;
   var DialogData): Bool;
 begin
   TPrintDlg(DialogData).Flags := TPrintDlg(DialogData).Flags or
     PD_ENABLESETUPTEMPLATE;
   TPrintDlg(DialogData).lpSetupTemplateName := Template;
   Result := inherited TaskModalDialog(DialogFunc, DialogData);
 end;

 end.