Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Вниз

RichEdit   Найти похожие ветки 

← →
Fostr   (2005-01-17 10:10) [0]

Уважаемые господа!
Есть форма, на форме RichEdit, в котором есть текст. Как изменить масштаб текста, не меняя при этом размеров RichEdit (по аналогии с врдом, где можно менять масштаб)?

---

← →
Fay ©   (2005-01-17 11:24) [1]

SendMessage(MyRichVer3.Handle, EM_SETZOOM, 1, 2);

---

← →
Fay ©   (2005-01-17 12:01) [2]

Не очень изящно, но для иллюстрации пойдёт
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ComCtrls;

type
 TJopaRich = class(TCustomRichEdit)
 protected
   procedure CreateParams(var Params : TCreateParams); override;
 end;

 TForm1 = class(TForm)
   Button1 : TButton;
   procedure Button1Click(Sender : TObject);
 private
   FRich : TJopaRich;
 public
   constructor Create(AOwner : TComponent); override;
 end;

var
 Form1 : TForm1;

implementation

const
 EM_SETZOOM = WM_USER + 225;

{$R *.dfm}

procedure TForm1.Button1Click(Sender : TObject);
begin
 SendMessage(FRich.Handle, EM_SETZOOM, 101, 20);
end;

{ TJopaRich }

procedure TJopaRich.CreateParams(var Params : TCreateParams);
const
 RichEditModuleName = "RICHED32.DLL";
begin
 LoadLibrary(RichEditModuleName);
 inherited CreateParams(Params);
 CreateSubClass(Params, "RichEdit20A");
end;

constructor TForm1.Create(AOwner : TComponent);
begin
 inherited;
 FRich := TJopaRich.Create(Self);
 FRich.Parent := Self;
 FRich.Top := 0;
 FRich.Left := 0;
 FRich.Width := 300;
 FRich.Height := 300;
end;

end.

---

← →
Fostr   (2005-01-17 14:55) [3]

Огроменнейшее спасибо!

---

← →
Fay ©   (2005-01-17 15:03) [4]

OK

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 8.759 c