본문 바로가기

분류 전체보기590

파일 용량 알자 var FHandle, intSize : Integer; begin OpenDialog1.Filter:= 'Image files (*.jpg;*.jepg;*.gif)|*.jpg;*.jepg;*.gif'; if OpenDialog1.Execute then begin // 안되면 2번째 인자를 바꿔보면 될듯 // GetFileSize는 Win32API 임 FHandle := FileOpen(OpenDialog1.FileName, fmOpenRead+fmShareDenyNone); intSize := GetFileSize(FHandle, nil); FileClose(FHandle); end; 2008. 8. 13.
리소스 파일 만들기와 사용법 리소스 파일 만들기... 리소스 파일은 바이너리 형태의 데이터로서 RCDATA라 부른다. 리소스 파일은 Res라는 확장자를 가지게 되는데 이 Res 파일을 만들기 위한 과정을 살펴 보자... Res 파일을 만들기 위해서는 Text로 작성된 RC 파일이 있어야 한다. 이 RC 파일은 Res 파일에 포함하고자 하는 데이터 이름과 데이터 식별자, 그리고 데이터로 구성된 Text 파일이다. RC 파일의 예를 보자... - RC 파일의 예 WAVEFILE WAVE c:\WaveSound.wav 이렇게 작성된 것이 RC 파일이다. 여기서 'WAVEFILE'은 리소스를 호출할 때 쓰일 이름이며 'WAVE'는 이 리소스가 WAVE 파일임을 명시하는 것이며 맨 뒷부분은 실제로 리소스에 적재될 파일의 경로와 파일명으로 구.. 2008. 8. 13.
이미지에 텍스트 배경 투명 처리 with Image1 do begin Canvas.Brush.Style := bsClear; Canvas.Font.Color := clWhite; Canvas.Font.Size:=12; Canvas.Font.Style :=[fsBold]; Canvas.TextOut(10, 10,'fdafstest'); end; // with 2008. 8. 13.
TEdit 정렬 변경하기 일단,에디트에는 다음과 같은 윈도우 스타일을 사용 할 수 있습니다. Windows.pas 유닛에 가보면 다음과 같이 스타일이 선언되어 있죠. { Control Manager Structures and Definitions } { Edit Control Styles } {$EXTERNALSYM ES_LEFT} ES_LEFT = 0; {$EXTERNALSYM ES_CENTER} ES_CENTER = 1; {$EXTERNALSYM ES_RIGHT} ES_RIGHT = 2; {$EXTERNALSYM ES_MULTILINE} ES_MULTILINE = 4; {$EXTERNALSYM ES_UPPERCASE} ES_UPPERCASE = 8; {$EXTERNALSYM ES_LOWERCASE} ES_LOWERCASE =.. 2008. 8. 13.

티스토리툴바