Couleur Dégradé sur TMemo

Décidémént en forme le Julio.

Et moi sa me fais 2 messages sans bonjour...

Aïe Aïe Aïe ....

Bonjour.

Bonjour à toutes et à tous,

@ RURUinc, voici une ancienne source pour incorporer un Bitmap dans un Tmemo.
.........................
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    OpenPictureDialog1: TOpenPictureDialog;
    Button1: TButton;
    procedure Memo1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure WMCTLCOLOREDIT(var Msg:TWMCtlColorEdit);message WM_CTLCOLOREDIT;
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    ABitmap:TBitmap;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Memo1Change(Sender: TObject);
begin
  Memo1.Invalidate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ABitmap:=TBitmap.Create;
end;

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  ABitmap.LoadFromFile(OpenPictureDialog1.FileName);
  Memo1.Brush.Bitmap:=ABitmap;
  Memo1.Invalidate;
end;

procedure TForm1.WMCTLCOLOREDIT(var Msg: TWMCtlColorEdit);
begin
  inherited;
  SetBkMode(Msg.ChildDC,TRANSPARENT);
  Msg.Result:=Memo1.Brush.Handle;
end;
end.
............................

Cordialement,

@+,

Cincap

mailto: