Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.
On a form, place a TPanel. Set its Left to 50; Set its Top to 50; Set its BorderStyle = bsSingle Set BorderWidth to 1 // (this doesn't actually matter, it can also be 0). //Paint onto the forms canvas by putting a TButton with this OnClick event: procedure TForm1.Button1Click(Sender: TObject); var C : TCanvas; MyHDC : HDC; begin C := TCanvas.Create; with C do try MyHDC := GetWindowDC(self.handle); try Handle := MyHDC; Brush.Style := bsSolid; Pen.Width := 8; Rectangle(Rect(10,10,100,100)); finally ReleaseDC(self.handle, MyHDC); end; finally Free; end; //NOW REPAINT THE PANEL Panel1.Repaint; //NOW REPAINT THE FORM self.repaint; end; //THE SOLUTION: panel1.BorderStyle := bsNone; panel1.BorderStyle := bsSingle;
|Delphi XE10, DigitalPersona Fingerprint reader and MySQL||6||252|
|Dev Express grid collapse||2||44|
|Tembedded WB animatid gifs not animated on some pcs||2||79|
|Sending files from idTcpServer Socket to idTcpClient||2||39|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
9 Experts available now in Live!