Вопрос, По Memo.

[volod3000]

Здравствуйте.

Поместил в Memo картинку вместо фона, но теперь поменять цвет
шрифта не могу. Вот код :

var
 SplashImage: TImage;
 
begin
       SplashImage := TImage.Create(Memo1);
       SplashImage.Stretch := true;
       SplashImage.Align := alClient;

       SplashImage.Parent := Memo1;

       SplashImage.Picture.LoadFromFile('C:\3.bmp');
       SplashImage.Width:= Memo1.Width;
       SplashImage.Height:= Memo1.Height;
       SplashImage.Stretch:= True;

       Memo1.Brush.Bitmap:= SplashImage.Canvas.Brush.Bitmap;
end;

Как поменять цвет шрифта Memo ?

[SERG1980]

последней строкой допишите

 memo1.Font.Color:=clred

[Ntlegend]

SERG1980, тото код что он пишет рисует картинку на областе Meme таким образом закрывая текст.. если начать изменять текст - то построчно пропадает картинка..

volod3000, посмотри эту тему http://www.programmersforum.ru/showthread.php?t=21960

или создай свой компонент.. кстать если делать его на GDI+ то он оч симпотно выглядид )..

я бы сделал ручную отрисовку текста на чем угодно (пеинтбокс например).. где слой текста располагается поверху слоя картинки..

[Ulagay700]

Правильно. Мемо - текстовый, на нем приходится извращаться.

[Stilet]

Делал когда-то подобное для ЛистБокса, может пригодится:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ImageList1: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var b:TBitmap;i:integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
b:=TBitmap.Create;
ListBox1.Style:=lbOwnerDrawFixed;
ListBox1.Items.Add('123435');
ListBox1.Items.Add('123435');ListBox1.Items.Add('123435');ListBox1.Items.Add('123435');
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);

begin
//ImageList1.Draw(ListBox1.Canvas,rect.left,rect.top,index);
if (index>ImageList1.Count)or(index=0) then i:=0 else inc(i);
ImageList1.GetBitmap(i,b);
StretchBlt(ListBox1.Canvas.Handle,rect.Left,rect.Top,rect.Right-rect.Left,
 rect.Bottom-rect.Top,b.Canvas.Handle,0,0,b.Width,b.Height,SRCCOPY);
SetBkMode(ListBox1.Canvas.Handle, TRANSPARENT);
ListBox1.Canvas.TextOut(rect.Left,rect.Top,listbox1.Items[index]);
end;

end.

[volod3000]

Можно написать и через BitMap,
тогта картинка не закрывает текст, но цвет шрифта не меняется

var
bm:TBitmap;
begin
bm:=TBitmap.Create;
bm.LoadFromFile('c:\3.bmp');
end;

Какбы добраться к свойству canvas компонента Memo ?

[DeKot]

Memo не имеет свойства Canvas.

[volod3000]

Вот решение проблемы,
может еще кому пригодится !

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

var
  Form1   : TForm1;
  LogFont : TLogFont;
  hdc1    :cardinal;
  dc      :HDC;

implementation

{$R *.dfm}


procedure TForm1.WMCTLCOLOREDIT(var msg:TMessage);
begin

hdc1:=msg.wParam;
SetTextColor(hdc1,clRed);

FillChar(LogFont, SizeOf(LogFont), 0);
  with LogFont do
  begin
    lfHeight := 25; // Высота буквы
    lfWidth := 0; // Ширина буквы
    lfEscapement := 0; // Угол наклона в десятых градуса
    lfWeight := 1000;  // Жирность 0..1000, 0 - по умолчанию
    lfItalic := 0;  // Курсив
    lfUnderline := 0;  // Подчеркнут
    lfStrikeOut := 0; // Зачеркнут
    lfCharSet := RUSSIAN_CharSet;  // CharSet
    StrCopy(lfFaceName, 'Georgia');  // Название шрифта
  end;

  Memo1.Font.Handle:=  CreateFontIndirect(LogFont);

      dc:=HDC(msg.WParam);
      SetBkMode(dc,TRANSPARENT);

   msg.Result:=0;


end;


procedure TForm1.FormCreate(Sender: TObject);
var
b:TBitMap;

begin
         Form1.DoubleBuffered:= True;
         b:= TBitMap.Create;
         b.LoadFromFile('c:\3.bmp');
         Memo1.Brush.Bitmap:= b;

end;

Тема закрыта