1:

procedure TQipPlugin.DrawSpecContact(PlugMsg: TPluginMessage);                    

1:
2:
3:
4:

procedure TfrmMain.MultilineButton1Click(Sender: TObject);
begin
plug.DrawSpecContact();
end;                    

1:
2:
3:

var msg : TPluginMessage;
...
plug.DrawSpecContact(msg);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:

procedure TQipPlugin.DrawSpecContact(PlugMsg: TPluginMessage);
var ContactId : DWord;
    //Data      : Pointer;
    Cnv       : TCanvas;
    R         : PRect;
    wStr      : WideString;
    R1        : TRect;
    TestIcon  : HICON;
//   TestIcon  : TICON;
begin
  if not Assigned(FfrmMain) then Exit;
  //get unique contact id from msg
  ContactId := PlugMsg.WParam;

  //actually all incoming ContactIDs will be only of your plugin, but here i made condition just for example
  if (ContactId <> FfrmMain.UniqContactId) then Exit;

  //get your Data pointer which you added when sent PM_PLUGIN_SPEC_ADD_CNT.
  //IMPORTANT!!! Do NOT make here any heavy loading actions, like cycles FOR, WHILE etc.
  //That's why you have to add Data pointer to PM_PLUGIN_SPEC_ADD_CNT, to get quick access to your data.
  //Data not used here in this example because plugin added only one contact
  //Data      := Pointer(PlugMsg.LParam);

  //create temporary canvas to draw the contact
  Cnv       := TCanvas.Create;
  try

  //get canvas handle from msg
  Cnv.Handle := PlugMsg.NParam;

  //get drawing rectangle pointer from msg
  R := PRect(PlugMsg.Result);

  //this needed to draw text over contact list backgroud
  SetBkMode(Cnv.Handle, TRANSPARENT);

  //get test icon to draw
  TestIcon := LoadImage(0, IDI_INFORMATION, IMAGE_ICON, 16, 16, LR_DEFAULTCOLOR or LR_SHARED or LR_LOADTRANSPARENT);
  //draw icon
  DrawIconEx(Cnv.Handle, 8, 2, TestIcon, 16, 16, 0, 0, DI_NORMAL);
  //dont forget to destroy your icon
  DestroyIcon(TestIcon);

  //text of your contact
  wStr := FfrmMain.user + ' ' + FfrmMain.Edit2.Text;

  //Use Tahoma to draw your text, because its unicode font
  Cnv.Font.Name  := 'Tahoma';
  Cnv.Font.Color := clNavy;
  Cnv.Font.Size  := 8;
  Cnv.Font.Style := [fsBold];

  R1 := Rect(R^.Left + 26 + FSpecLeft, R^.Top + 1 + FSpecTop, R^.Right, R^.Bottom);

  //text drawing
  //IMPORTANT! If your text may have non ascii symbols, then use unicode drawing.
  DrawTextW(Cnv.Handle, PWideChar(wStr), Length(wStr), R1, DT_LEFT);

  finally
  //free canvas
  Cnv.Free;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TfrmMain.MultilineButton1Click(Sender: TObject);
begin
Timer2.Enabled:=True;
Timer3.Enabled:=True;
//---------------------
text:=GetHTML(Edit1.Text);

user:=copy(text,22,1000);

datuhr:=copy(text,1,20);
datum:=copy(datuhr,1,11);
uhr:=copy(datuhr,12,20);

Label1.Caption:=user + ' ' + Edit2.Text;
Label4.Caption:='Datum: '+ datum;
Label5.Caption:='Uhrzeit: ' + uhr + ' Uhr' ;
//----------------------
if Label1.Caption='' then Label1.Caption:='0' + Edit2.Text;
Label2.Caption:='*';
end;                    

1:
2:
3:

[...]
if FfrmMain.MultilineButton1.Cklick=True then
[...]                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TfrmMain.MultilineButton1Click(Sender: TObject);
var
  msg: TPluginMessage;
begin
  // bisheriger Code aus Form
...

  // Msg-Daten fuellen: welche Properties, mußt Du selbst nachschauen
  msg := TPluginMessage.Create;  // falls eine Klasse, bei reinem Record-Typ nicht
  msg.property1 := ...;
  msg.property2 := ...;

  // und and Plugin senden
  plug.DrawSpecContact(Msg);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TfrmMain.ckAddContactClick(Sender: TObject);
begin
   if not ckAddContact.Checked then
   begin
      if (UniqContactId = 0) then Exit;
      PlugMsg1.Msg    := PM_PLUGIN_SPEC_DEL_CNT;
      PlugMsg1.WParam := UniqContactId;
      PlugMsg1.DllHandle := FDllHandle;
      FPluginSvc.OnPluginMessage(PlugMsg1);
      UniqContactId := 0;
   end
   else
   if (UniqContactId=0) then
   begin
      PlugMsg1.Msg    := PM_PLUGIN_SPEC_ADD_CNT;
      PlugMsg1.WParam := 19;
      PlugMsg1.LParam := 0;
      PlugMsg1.DllHandle := FDllHandle;
      FPluginSvc.OnPluginMessage(PlugMsg1);

      if (PlugMsg1.Result <> 0) then UniqContactId := PlugMsg1.Result;
   end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

   if (UniqContactId=0) then
   begin
      PlugMsg1.Msg    := PM_PLUGIN_SPEC_ADD_CNT;
      PlugMsg1.WParam := 19;
      PlugMsg1.LParam := 0;
      PlugMsg1.DllHandle := FDllHandle;
      FPluginSvc.OnPluginMessage(PlugMsg1);

      if (PlugMsg1.Result <> 0) then UniqContactId := PlugMsg1.Result;
   end;                    

1:

   if (UniqContactId=0) then                    

1:
2:
3:
4:

   begin
      FPluginSvc.OnPluginMessage(PlugMsg1);
      UniqContactId := UniqContactId;
   end;                    

1:

PM_PLUGIN_SPEC_REDRAW     = 50; //plugin -> qip, plugin can redraw own special contact when needed. WParam is unique dword id of contact.                    

1:
2:
3:
4:
5:

// PM_PLUGIN_SPEC_REDRAW     = 50; //plugin -> qip, plugin can redraw own special contact when needed. WParam is unique dword id of contact.
PlugMsg1.Msg    := PM_PLUGIN_SPEC_REDRAW; 
PlugMsg1.WParam := UniqContactId; // Hier die ID des Contacts rein, den Du neu zeichnen willst
PlugMsg1.DllHandle := FDllHandle; 
FPluginSvc.OnPluginMessage(PlugMsg1);                    

1:
2:
3:
4:

PlugMsg1.Msg    := PM_PLUGIN_SPEC_REDRAW;
PlugMsg1.WParam := UniqContactId;
PlugMsg1.DllHandle := FDllHandle;
FPluginSvc.OnPluginMessage(PlugMsg1);