Couleur Dégradé sur TMemo

Question

Je ne trouve rien sur le sujet.
Comment faire un dégrader de couleur dans un TMemo.

Il ny' a apparement n'y canvas n'y paint. 

est-ce possible ?

JulioDelphi · Answer

"Bonjour" ?

RURUInc · Answer

Décidémént en forme le Julio.

Et moi sa me fais 2 messages sans bonjour...

Aïe Aïe Aïe ....

Bonjour.

JulioDelphi · Answer

Regarde du coté du CANVAS du mémo, tu devras le peindre toi meme.
Je n'en sais pas plus sur le canvas, désolé.

cincap · Answer

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: mailto:]

Couleur Dégradé sur TMemo

4 réponses

Votre réponse

Discussions similaires