Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  07:59[Войти] | [Зарегистрироваться]
Ответ на вопрос № 38999

06-01-2006 01:48
Подскажите пожалуйста, как можно установить рисунок в качестве фона у Memo/RichEdit, т. е. чтоб текст отображался на фоне какого-либо изображения.

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

05-03-2007 02:44
Для TMemo нужно делать по-другому - обрабатывать WM_CTLCOLOREDIT:

TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    bm:TBitmap;
    procedure WMCTLCOLOREDIT(var mes:TMessage);message WM_CTLCOLOREDIT;
  public
    { Public declarations }
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  bm:=TBitmap.Create;
  bm.LoadFromFile('......................');
  Memo1.Brush.Bitmap:=bm;
end;

procedure TForm1.WMCTLCOLOREDIT(var mes: TMessage);
var
  dc:HDC;
begin
  if mes.LParam=Memo1.Handle then
    begin
      dc:=HDC(mes.WParam);
      SetBkMode(dc,TRANSPARENT);
      mes.Result:=0;
    end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  bm.Free;
end;


04-03-2007 13:53
var
  ws:integer;
  bm:TBitmap;
begin
  bm.LoadFromFile('.............');
  RichEdit1.Brush.Bitmap:=bm;
  ws:=GetWindowLong(RichEdit1.Handle, GWL_EXSTYLE);
  ws:=ws or WS_EX_TRANSPARENT;
  SetWindowLong(RichEdit1.Handle,GWL_EXSTYLE,ws);

15-01-2006 08:24
Зайди на http://goldpage.bip.ru/download/delphi_componenty.html и скачай Tms компоненты или CoolControls - там есть почти все улучшенные стандартные компоненты Delphi и есть свойство Background.

08-01-2006 08:27
В разделе Var (который перед словом implementation) добавь строку memo1: TMyMemo;
Да, совсем забыл, в OnPaint для формы напиши

procedure TForm1.FormPaint(Sender: TObject);
Var  MCanvas: TControlCanvas;
            i: integer;
begin
MCanvas:=TControlCanvas.Create;
try
MCanvas.Control:=memo1;
memo1.Repaint;
MCanvas.Brush.Color:=$00F1EEEA;
For i:=0 to memo1.Lines.Count-1 do
MCanvas.TextOut(2, i*14 ,memo1.Lines[i]);
finally MCanvas.Free end;
end;


Вообще я привел не очень удачное решение, весь этот код я наколбасил когда еще только учился программировать, с тех пор ни разу им не пользовался, не исправлял, не улучшал, но в качестве отправной точки думаю пойдет.

07-01-2006 13:57 | Сообщение от автора вопроса
Delog! Спасибо большое за ответ, но не могли бы вы сказать, почему в строчке "Memo1:=TMymemo.Create(Self);" Delphi видит ошибку: "Incompatible types: 'TMemo' and 'TMyMemo'"?

06-01-2006 06:03

type TMyMemo=class(TCustomMemo)
  protected
    procedure WMPaint(var Message: TWMPaint); message WM_Paint;
    procedure PaintImages;
  end;

implementation

procedure TMyMemo.WMPaint(var Message: TWMPaint); 
var 
  MCanvas: TControlCanvas; 
  DrawBounds : TRect; 
Begin 
  inherited
  MCanvas:=TControlCanvas.Create; 
  DrawBounds := ClientRect;
  Try
  MCanvas.Control:=Self;
  With MCanvas do
  Begin
    Brush.Color := $00F1EEEA;
    FrameRect( DrawBounds );
    InflateRect( DrawBounds, 0, 0);
    FrameRect( DrawBounds );
    FillRect ( DrawBounds );
  End;
  PaintImages;
  finally
    MCanvas.Free; 
  End;
end

procedure TMyMemo.PaintImages; 
var
  MCanvas: TControlCanvas;
  DrawBounds : TRect;
  Bitmap1: Graphics.TBitmap;
begin
  Bitmap1:=Graphics.TBitmap.Create;
  Bitmap1.loadfromfile('NB.bmp');
  MCanvas:=TControlCanvas.Create;
  try
  MCanvas.Control:=Self;
  MCanvas.Draw(0, 1, Bitmap1);
  finally
    MCanvas.Free;
  end
end;


В событии OnCreate для формы напиши


Memo1:=TMymemo.Create(Self);
Memo1.Parent:=self;
Memo1.Visible:=true;
Memo1.Height:=198;
Memo1.Width:=262;
Memo1.Left:=10;
Memo1.Top:=10


06-01-2006 02:02
Можно, например, перехватывать сообщениt WM_ERASEBKGND и, если нужно, WM_NCPAINT, WM_PAINT и рисовать фон.

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Два кольца, два конца, посередине гвоздик.
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования