본문 바로가기

Developist

Delphi/꿀팁 TcxAlphaBitmap으로 이미지 회전시키기 var AlphaBitmap: TcxAlphaBitmap; begin cxImage1.Picture.LoadFromFile('이미지파일.jpg'); AlphaBitmap := TcxAlphaBitmap.CreateSize(cxImage1.Width, cxImage1.Height); try AlphaBitmap.Canvas.Draw(0, 0, cxImage1.Picture.Graphic); AlphaBitmap.Rotate(raPlus90); //시계방향으로 90도 회전 cxImage1.Picture.Graphic := AlphaBitmap; finally AlphaBitmap.Free; end; end;
Delphi/끄적이기 JSON/XML 코드뷰티 만들기 회사에서 제한된 네트워크 등으로 인해 각종 코드뷰티 사이트들을 이용하지 못하게 될 때가 있는데, 그럴경우 자주 쓰이는 JSON과 XML의 경우 델파이 포멧을 이용하여 간단하게 코드뷰티처럼 사용할 수 있습니다. uses .., System.Json, XMLDoc; procedure TextToJSONBeauty; var sTempJson: TJSONValue; begin sTempJson := TJSONObject.ParseJSONValue(Memo1.Text); Memo1.Text := TJSON.Format(sTempJson); end; procedure TextToXMLBeauty; var sTempXml: IXMLDocument; begin sTempXml := TXMLDocument.Create(..
Delphi/꿀팁 TcxPageControl 때문에 Focus가 먹통일 때 간혹 TcxPageControl을 사용하다보면 TabChange에 의해 Focus가 Tab에 고정되어 마우스 이벤트 등이 먹통되는 현상이 발생하는데, 이때 TabChange 이벤트가 발생할 때 ReleaseCapture 함수를 한번 추가해 주시면 Focus가 TcxPageControl에 고정되는 문제를 해결할 수 있습니다. Ex) .. ReleaseCapture; cxTabPageControl1.TabIndex := 1; ..

티스토리툴바