[프로그래밍] 자작 그래픽 에디터 V1.0 (소스포함) - 델파이

소개글

안녕하세요.

컴퓨터 그래픽스 시간에 배운 것들을
프로그램으로 구현한 것입니다.

회전, 확대/축소, 이동 등등...
델파이를 이용해서 짰지만, 모든 알고리즘은
똑같기에 다른 툴로 짜셔도 비슷하게 적용
시키시면 될 겁니다.

당연히 프로그램이라 소스코드 첨부되어 있으며
프로그램에 주석도 많이 달아놔서 소스 이해하기가 쉬울 겁니다.

툴은 Object Pascal 인 Delphi 6.0 을 사용했습니다.
그럼~~~

컴파일 실행환경

없음

본문내용

unit GraphicsConversionsLibrary;

interface

USES
Graphics;

FUNCTION LoadGraphicsFile(CONST Filename: STRING): TBitmap;

implementation

USES
{$IFDEF GIF}
GIFImage, // TGIFImage
{$ENDIF}
JPEG, // TJPEGImage
SysUtils; // FileExists


// Create TBitmap from BMP, JPG, WMF, EMF or GIF disk file.
// Could be easily extended to other image types.
FUNCTION LoadGraphicsFile(CONST Filename: STRING): TBitmap;
VAR
Extension: STRING;
{$IFDEF GIF}
GIFImage : TGIFImage;
{$ENDIF}
Icon : TIcon;
JPEGImage: TJPEGImage;
Metafile : TMetafile;
BEGIN
RESULT := NIL; // In case anything goes wrong

IF FileExists(Filename)
THEN BEGIN
Extension := UpperCase( COPY(Filename, LENGTH(Filename)-2, 3) );

// Quick and dirty check that file type is OK
ASSERT( (Extension = 'BMP') OR
(Extension = 'EMF') OR
{$IFDEF GIF}
(Extension = 'GIF') OR
{$ENDIF}

압축파일 내 파일목록

GraphicsConversionsLibrary.pas
ImageLib.dcu
ImageLib.pas
MyFace.jpg
MyProject1.cfg
MyProject1.dof
MyProject1.dpr
MyProject1.exe
MyProject1.res
present01.JPG
present02.JPG
present03.JPG
present04.JPG
present05.JPG
present06.JPG
present07.JPG
present08.JPG
present09.JPG
present10.JPG
대구대logo.bmp
About.dcu
About.ddp
About.dfm
About.pas
Gblur2.dcu
Gblur2.pas
GraphicEditorMain.dcu
GraphicEditorMain.ddp
GraphicEditorMain.dfm
GraphicEditorMain.pas
GraphicsConversionsLibrary.dcu

전체 목록 보기

참고 자료

없음