Image1.Canvas.Brush.Style:=bsClear;
Image1.Canvas.TextOut(123,321,'Hello world!');
проблемы с Bitmap
Привет.
Мне надо отображить картинку в TMemo или TRiechedit в фоне.
Для этого присваиваю Memo1.Brush.Bitmap - битам.
Но это отображается не совсем так как я хочу.
Там где текста нет - картинка отображается. А там где есть текст - она перекрывается.
А еще мне надо эту картинку отображать по центру контрола.
пожалуйста помогите.
Мне надо отображить картинку в TMemo или TRiechedit в фоне.
Для этого присваиваю Memo1.Brush.Bitmap - битам.
Но это отображается не совсем так как я хочу.
Там где текста нет - картинка отображается. А там где есть текст - она перекрывается.
А еще мне надо эту картинку отображать по центру контрола.
пожалуйста помогите.
ну. это не то.
мне надо на канве рисовать..
чтоб фоновым рисунком TMEMO был битмап.
мне надо на канве рисовать..
чтоб фоновым рисунком TMEMO был битмап.
Цитата:
Originally posted by Byku
ну. это не то.
мне надо на канве рисовать..
чтоб фоновым рисунком TMEMO был битмап.
ну. это не то.
мне надо на канве рисовать..
чтоб фоновым рисунком TMEMO был битмап.
Цитата:
К сожалению пример не работает.
Ну по крайней мере у меня не получилось ничего..
Компилятор на WMPaint ругается. в чем проблема незнаю. поможите?
Цитата:
Originally posted by Byku
К сожалению пример не работает.
Ну по крайней мере у меня не получилось ничего..
Компилятор на WMPaint ругается. в чем проблема незнаю. поможите?
К сожалению пример не работает.
Ну по крайней мере у меня не получилось ничего..
Компилятор на WMPaint ругается. в чем проблема незнаю. поможите?
Попробуй подключить модуль winuser
Цитата:
Originally posted by Byku
К сожалению пример не работает.
Ну по крайней мере у меня не получилось ничего..
Компилятор на WMPaint ругается. в чем проблема незнаю. поможите?
К сожалению пример не работает.
Ну по крайней мере у меня не получилось ничего..
Компилятор на WMPaint ругается. в чем проблема незнаю. поможите?
Как в классе определяешь WMPaint?
Напиши пример.
Код:
type
TMyMemo = class(TMemo)
protected
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
end;
TMyMemo = class(TMemo)
protected
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
end;
это было в примере том.
Цитата:
Originally posted by Byku
это было в примере том.
это было в примере том.
А совет rostyslava не помогает? Что за ошибка?
при подключении юнита - winuser - ругается тоже. говорит что нет такого dcu.
А на wmpaint ругается, что это незадекларированный идентификатор
А на wmpaint ругается, что это незадекларированный идентификатор
Цитата:
Originally posted by Byku
при подключении юнита - winuser - ругается тоже. говорит что нет такого dcu.
А на wmpaint ругается, что это незадекларированный идентификатор
при подключении юнита - winuser - ругается тоже. говорит что нет такого dcu.
А на wmpaint ругается, что это незадекларированный идентификатор
Bидимо в Buildere winuser, а в Delphi модуль Messages
юнит Messages - подключен.
впрочем, можете сами попробывать , если не трудно. Может вы поймете в чем тут дело.
впрочем, можете сами попробывать , если не трудно. Может вы поймете в чем тут дело.
Цитата:
Originally posted by Byku
юнит Messages - подключен.
впрочем, можете сами попробывать , если не трудно. Может вы поймете в чем тут дело.
юнит Messages - подключен.
впрочем, можете сами попробывать , если не трудно. Может вы поймете в чем тут дело.
Странно все это. У меня компилируется все.
Неплохо бы на исходник взглянуть.
Попробуй заменить начало на
Код:
unit Unit2;
interface
uses Controls, StdCtrls, Messages, Types, Graphics, Windows, Classes,
Forms;
type
TMyMemo = class(TMemo)
protected
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
procedure PaintImages;
end;
implementation
procedure TMyMemo.WMPaint(var Message: TWMPaint);
interface
uses Controls, StdCtrls, Messages, Types, Graphics, Windows, Classes,
Forms;
type
TMyMemo = class(TMemo)
protected
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
procedure PaintImages;
end;
implementation
procedure TMyMemo.WMPaint(var Message: TWMPaint);