[vmilyoshin]

Всем привет! Есть форма. На ней несколько десятков Labelов. При клике мыши по Label он меняет цвет. При нажатии Button выделенные Labelы должны поменять позицию. Ну например Label43.Top:= Label43.Top+1; Это всё понятно, ну как узнать из кучи Labelов какие из них поменяли цвет, чтобы именно они передвигались при клике по Button. Вообщем объяснил как смог. Надеюсь на Вашу помощь.

[Amgsys HQ]

Код при нажатии на кнопку:

Код:

procedure TMyForm.ButtonClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TLabel then
      if TLabel(Components[i]).Font.Color = clRed then
      begin
        TLabel(Components[i]).Font.Color := clBlack;
        TLabel(Components[i]).Top := TLabel(Components[i]).Top + 1;
      end;
end;

[vmilyoshin]

Сообщение от Amgsys HQ

Код при нажатии на кнопку:

Код:

procedure TMyForm.ButtonClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TLabel then
      if TLabel(Components[i]).Font.Color = clRed then
      begin
        TLabel(Components[i]).Font.Color := clBlack;
        TLabel(Components[i]).Top := TLabel(Components[i]).Top + 1;
      end;
end;

Спасибо БОЛЬШОЕ. Ещё один вопросик. На форме есть компонент Image отображающий бланк документа формата А4. Я хочу сделать чтобы при выводе на печать Image.Enable:= false; и остались бы одни Labelы. Но при Form.Print; печатается только видимая часть формы. На каком компоненте можно разместить Labelы, чтобы печатался весь документ.

[Amgsys HQ]

vmilyoshin, эксперементировали со свойтсвом формы "PrintScale"? Насколько я знаю, печатается только видимая на экране часть формы (если я неправ - не судите строго).

Из "родной" справки Delphi:

Use PrintScale to get or set the proportions of the printed form. PrintScale can have one of the following TPrintScale values:

poNone - No special scaling occurs; therefore, the printed form and how the form appears onscreen may appear squished or stretched.
poProportional - The form is printed so that the printed image is approximately the same visible size as on the screen (WYSIWYG). The form image is scaled so that the printed image is approximately the same visible size as on the screen.
poPrintToFit - The form is printed using the same screen proportions, but in a size that just fits the printed page.

[vmilyoshin]

Сообщение от Amgsys HQ

vmilyoshin, эксперементировали со свойтсвом формы "PrintScale"? Насколько я знаю, печатается только видимая на экране часть формы (если я неправ - не судите строго).

Из "родной" справки Delphi:

Не помогло. То что не входит в видимую часть формы всёравно остаётся за кадром.

[lmikle]

Придется печатать самому
Собственно, создать битмап и с помощью TextOut вывести на него содержимое всех меток - не так и сложно. Только не забудь, что у принтера разрешение "немножко" больше, чем у монитора, соответсвенно, надо умножить все размеры и координаты на соотв. коэф. (ЗЫ. размер шрифта увеличивать не надо).