본문 바로가기
반응형

IT/델파이46

델파이 PNG파일 Image32로드 하기 개요 델파이에서 png 이미지 파일을 Imge32에 로드하기. 잊을만하면 사용하는 것이라 잊어서 적어봤습니다. 설명 델파이 Image32에 png 파일이 바로 로그 되지 습니다. 그래서 한번 더 변경을 해줘야 합니다. uses PngImage, Graphics; .... var png : TPngObject; begin Image321.Bitmap.Clear; if('png' = ExtractFileExt(mmofilepath.Text)) then begin try png := TPNGObject.Create; png.LoadFromFile(mmofilepath.Text); Image321.Bitmap.Assign(png); finally png.Free; end; end else begin Image3.. 2024. 2. 5.
[Delphi] 워터마크 표시와 이미지 줄이기 * 목차 * 1. 개요 2. 상세내용 3. 소스 설명 4. 프로그램실행 시 동작화면 5. 변환된 이미지 모습 1. 개요 델파이를 이용한 이미지 크기조정과 워터마크 표시. 2. 상세내용 글을 올리다 보니 사진을 올리 때가 있다. 그럴 때 이미지 크기도 변경해야 하고 워터마트도 추가해야 했다. Tstory 에서 워터마크 표시 하는 부분이 있는데 맘에 들지 않아 간단하게 만들어 보았다. 3. 소스 설명 Uses 추가 Vcl.GraphUtil, Vcl.ExtCtrls 1. 워터마크 소스안에 설명을 달아 놓았다. 자기가 원하는 데로 수정해서 올리면 된다. Mkxmax := Trunc(Image321.Width / Mklen ) // 이미지 에서 표시라 가로 개수 Mkymax := Trunc(Image321.Hei.. 2023. 11. 10.
투명 PNG 이미지를 투명하지 않은 다른 이미지 포멧으로 저장하기 1. 개요 투명한 PNG 이미지를 투명 배경을 흰색 바탕으로 처리한 다른 이미지로 저장해 보자. 2. 증상 분석 투명 PNG 이미지를 투명부분을 흰색 배경으로 처리한채 다른 이미지포멧(BMP 또는 JPG)로 저장하고자 할 경우에 일반적으로 다음 과 같은 방법을 시도하여 변환을 시도할 것이다. var bmp : TBitmap; jpg : TJpegImage; png : TPngObject; begin try bmp := TBitmap.Create; jpg := TJpegImage.Create; png := TPngObject; png .LoadFromFile(APngFileName); bmp.Assign(png); jpg.Assign(bmp); jpg.SaveToFile(AJpegName); finally.. 2023. 2. 15.
TcxGrid에서 Popup메뉴 열리기 전에 클릭된 컬럼 및 종류 알아내기 TcxGrid에서 오른쪽 마우스 클릭시 설정된 팝업메뉴 오픈 전에 클릭된 컬럼의 종류(헤더, 본문, 풋터) 및 클릭된 컬럼 인덱스를 알아내는 방법 procedure TForm1.cxGridPopupMenu1Popup(ASenderMenu: TComponent; AHitTest: TcxCustomGridHitTest; X, Y: Integer; var AllowPopup: Boolean); var AColumnIndex: integer; begin // only allow column popup when this column is hit AColumnIndex := cxGrid1TableView1Column4.Index; // Cell was hit if AHitTest is TcxGridRecordCel.. 2023. 2. 15.
반응형