Jak narysować ramkę na obrze?żach formy

0

Jak narysować ramkę na formie o szerokości i wysokości równej formie dodam, że kod zamieszczony poniżej nie działa prawidłowo.

MainForm.Canvas.Pen.Width := 1;
MainForm.Canvas.Pen.Color := clRed;
MainForm.Canvas.Pen.Style := psDash;
MainForm.Canvas.Rectangle(0, 0, MainForm.Width, MainForm.Height);

MainForm.Canvas.Pen.Width := 1;
MainForm.Canvas.Pen.Color := clRed;
MainForm.Canvas.Pen.Style := psSolid;
GetWindowRect(MainForm.Handle, R);
MainForm.Canvas.Rectangle(0, 0, R.Right, R.Bottom);

0

Jak działa nieprawidłowo. W ogóle nie rysuje??

0

nie działa prawidłowo - tzn. nie widać prawej i dolnej linii?
jak tak to należy trochę poprawić Twój kodzik:

MainForm1.Canvas.Pen.Width := 1;
MainForm1.Canvas.Pen.Color := clRed;
MainForm1.Canvas.Pen.Style := psDash;
MainForm1.Canvas.Rectangle(0, 0, <font color="red">MainForm1.ClientWidth</span>,<font color="red"> MainForm1.ClientHeight</span>);

0

Dzięki za odpowiedz :-)

1 użytkowników online, w tym zalogowanych: 0, gości: 1