Discussion :

[JP.NUAGE]

à tous.

Encore un composant CLX à passer en VCL, puis c'est terminé ! Promis !

Ce dernier, en CLX, est un descendant de TEdif et utilise la propriété Bitmat pour faire un "papier peint" dans le champ de saisie. Le propriété est juste déclarée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
published
  property  bitmap;

rien de plus

Mais en VCL, cette propriété n'existe pas (j'ai aussi essayé avec un JvclEdit).

Par quelle propriété ou quelle fonction puis-je la remplacer ? J'ai tenté de recréer la propriété Bitmap, mais autant réécrire le source du VCL !

[Kaféine]

Ceci peut t'aider je penses:

http://stackoverflow.com/questions/4...or-edit-delphi

[ShaiLeTroll]

Même Technique que pour TScrollBar

Code c++ :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
  TWndMethod EditWithBitmapBrushOldWindowProc;
  TBrush *FEditColoredBrush;
  void __fastcall EditColoredParentNewWindowProc(Messages::TMessage &Message);

Code c++ :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
//---------------------------------------------------------------------------
/*constructor*/__fastcall TVCLManipForm::TVCLManipForm(TComponent* Owner)
  : TForm(Owner)
{
... 
  EditWithBitmapBrushOldWindowProc = EditWithBitmapBrush->Parent->WindowProc;
  EditWithBitmapBrush->Parent->WindowProc = EditColoredParentNewWindowProc;

Code c++ :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
//---------------------------------------------------------------------------
/*destructor*/__fastcall TVCLManipForm::~TVCLManipForm()
{
  delete FEditColoredBrush;
  FEditColoredBrush = NULL;

Code c++ :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//---------------------------------------------------------------------------
void __fastcall TVCLManipForm::EditColoredParentNewWindowProc(Messages::TMessage &Message)
{
  if (((Message.Msg == WM_CTLCOLOREDIT) || (Message.Msg == WM_CTLCOLORSTATIC)) && (Message.LParam == (int)EditWithBitmapBrush->Handle))
  {
    if ( ! FEditColoredBrush)
      FEditColoredBrush = new TBrush();
 
    if ( ! FEditColoredBrush->Bitmap)
      FEditColoredBrush->Bitmap = ImageBMP->Picture->Bitmap;
 
    SetBkMode((HDC)Message.WParam, TRANSPARENT);
    Message.Result = (int)FEditColoredBrush->Handle;
  }
  else
    EditWithBitmapBrushOldWindowProc(Message);
}

[JP.NUAGE]

j'ai essayé d'adapter la solution de Kaféine, hélas, je plante. Da

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  inherited Create(AOwner);
  FBitmap := TBitmap.Create;
  FBitmap.LoadFromFile('C:\FCI\GERLOC\img\CB.bmp');
  FBrush := 0;
  FBrush := CreatePatternBrush(FBitmap.Handle);

[JP.NUAGE]

je n'ai peut être pas tout compris dans le solution de Kaféine, mais il me semble qu'elle doit être mise en place dans chaque forme où je veux du papier peint. Car j'ai essayé de l'adapter au seul TEdit (mon composant) et ça plante, vu que je n'ai pas la possibilité (sauf erreur de ma part) d'utiliser un TEdit.EditCreate (comme le TForm.FormCreate proposé)

J'oublie le C++ : c'est pire que du Chinois pour moi !

[Kaféine]

l'edit envois le message WM_CTLCOLOREDIT à son parent ici la form.

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx