كشيدن اشكال هندسي در Memo

سلام
آيا مي شود داخل Memo مستطيل يا اشكال ديگر با رنگ زمينه ي خاكستري يا رنگ ديگه اي كشيد؟
ممنون

نقل قول:

---

نوشته شده توسط amir_dpr

سلام
آيا مي شود داخل Memo مستطيل يا اشكال ديگر با رنگ زمينه ي خاكستري يا رنگ ديگه اي كشيد؟
ممنون

---

سلام

کد:

---

procedure TForm1.DrawFrame(Memo : TMemo ; Rect : TRect);
var
  OldMixMode : integer;
  DC        : hdc;
  Pen        : HPen;
begin
  DC := GetDc(Memo.Handle);
  OldMixMode:=GetROP2(DC);
  SetROP2(DC,R2_XORPEN);
  Pen:=CreatePen(PS_SOLID,0,RGB(255,255,255));
  //  Pen:=CreatePen(PS_Dot,0,RGB(0,0,255));
  SelectObject(DC,Pen);
  MoveToEx(Dc, Rect.Left, Rect.Top, nil);
  LineTo(Dc,  Rect.Top, Rect.Right);
  LineTo(Dc, Rect.Right, Rect.Bottom);
  LineTo(Dc, Rect.Bottom, Rect.Left);
  LineTo(Dc,  Rect.Top, Rect.Left);
  SetROP2(DC,OldMixMode);
  DeleteObject(Pen);
  ReleaseDC(Memo.Handle,DC);
end;

---

فراخواني :

کد:

---

DrawFrame(Memo1,Rect(5,5,100,100));

---