Q&A
- Truetype글꼴등록이 ...?
팁에서 찾아서 Truetype글꼴을 등록하는것을 적용했으나, 설치완료후에
제어판의 글꼴에는 등록이 된것같은데,워드패드에서해당글꼴을 찾을 경우 나오질 않습니다.. 어케하면 조을까요...
procedure SetFontReg;
var
hReg: TRegistry;
hBool : bool;
strPath : String;
strRegPath : String;
begin
if IsNT then begin
strRegPath := 'Windows NT';
strPath := 'c:WINNTfonts';
end
else begin
strRegPath := 'Windows';
strPath := 'c:Windowsfonts';
end;
try
hReg := TRegistry.Create;
hReg.RootKey := HKEY_LOCAL_MACHINE;
hReg.LazyWrite := false;
hReg.OpenKey('SoftwareMicrosoft'+ strRegPath + 'CurrentVersionFonts',
false);
if hReg.ReadString('휴먼각진옛체 (TrueType)') <> '' then Exit;
hReg.WriteString('휴먼각진옛체 (TrueType)','HMKMCOLD.TTF');
finally
hReg.CloseKey;
hReg.free;
end;
//Add the font resource
AddFontResource(PChar(strPath + 'HMKMCOLD.TTF'));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
//Remove the resource lock
RemoveFontResource(PChar(strPath + 'HMKMCOLD.TTF'));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;
제어판의 글꼴에는 등록이 된것같은데,워드패드에서해당글꼴을 찾을 경우 나오질 않습니다.. 어케하면 조을까요...
procedure SetFontReg;
var
hReg: TRegistry;
hBool : bool;
strPath : String;
strRegPath : String;
begin
if IsNT then begin
strRegPath := 'Windows NT';
strPath := 'c:WINNTfonts';
end
else begin
strRegPath := 'Windows';
strPath := 'c:Windowsfonts';
end;
try
hReg := TRegistry.Create;
hReg.RootKey := HKEY_LOCAL_MACHINE;
hReg.LazyWrite := false;
hReg.OpenKey('SoftwareMicrosoft'+ strRegPath + 'CurrentVersionFonts',
false);
if hReg.ReadString('휴먼각진옛체 (TrueType)') <> '' then Exit;
hReg.WriteString('휴먼각진옛체 (TrueType)','HMKMCOLD.TTF');
finally
hReg.CloseKey;
hReg.free;
end;
//Add the font resource
AddFontResource(PChar(strPath + 'HMKMCOLD.TTF'));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
//Remove the resource lock
RemoveFontResource(PChar(strPath + 'HMKMCOLD.TTF'));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 소나무
- 2001.12.03 21:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 사발우성™
- •
- 2001.12.03 21:21
- 1 COMMENTS
- /
- 0 LIKES
-
사발우성™•2001.12.03 21:54사발우성™ wrote: > 하이 고수님들.. > ole컨테이너에서 엑셀을 불러들였는데엽... close시 excel proces...
-
- 궁금이
- 2001.12.03 21:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보초보
- 2001.12.03 21:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.12.03 20:13
- 1 COMMENTS
- /
- 0 LIKES
-
사발우성™•2001.12.04 04:44^^ 허접 사발임돠... DataSource1.DataSet := nil; 이렇게 하면 내용이 지워짐당..^^ ^^ 그럼 즐프엽 ...
-
- 하눌이
- •
- 2001.12.03 20:05
- 1 COMMENTS
- /
- 0 LIKES
팁에서 찾아서 Truetype글꼴을 등록하는것을 적용했으나, 설치완료후에 제어판의 글꼴에는 등록이 된것같은데,워드패드에서해당글꼴을 찾을 경우 나오질 않습니다.. 어케하면 조을까요... procedure SetFontReg; var hReg: TRegistry; hBo...-
하눌이•2001.12.04 06:34하눌이 wrote: > 팁에서 찾아서 Truetype글꼴을 등록하는것을 적용했으나, 설치완료후에 > 제어판의 글...
-
- prosit
- •
- 2001.12.03 18:41
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.03 21:00안녕하세요. 최용일입니다. 아래와 같이 해보세요... type TMySortCompare = function (Items: TS...
-
prosit•2001.12.03 22:02전에도 몇 번 도움을 주시더니, 오늘도 도와주시는 군요. 최 용일님께 도움을 받는 분들이 많은 것으로 ...
-
- 김장호
- •
- 2001.12.03 14:09
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.12.03 19:38김장호 wrote: > > 델파이 헬프를 보니깐 TScreen에서는 스크린의 해상도와 크기를 알수 있다고 했는데 ...
-
- 이경문
- 2001.12.03 11:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2001.12.03 10:53
- 3 COMMENTS
- /
- 0 LIKES
-
이경문•2001.12.03 11:39자료실 ImageButton으로 검색해 보세요. CM_MOUSEENTER, CM_MOUSELEAVE message를 사용한 겁니다. 왕초...
-
왕초보•2001.12.03 12:25답변 감사합니다만 전 기본적인 언어지식만 있거든여 어떻게 돌아가는지 이해는 가는데여 델파이는 할줄...
-
이경문•2001.12.03 12:35걍 컴포넌트 쓰세요. 그게 가장 쉽자나요. 왕초보 wrote: > 답변 감사합니다만 전 기본적인 언어지식만 ...
-
- 이경문
- •
- 2001.12.03 10:26
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.03 19:33안녕하세요. 최용일입니다. 델파이에도 같은것들이 있습니다... {$ifdef ...} codes...... {$e...
-
이경문•2001.12.03 23:04감사합니다. ^^ 최용일 wrote: > 안녕하세요. 최용일입니다. > > 델파이에도 같은것들이 있습니다.....
-
- 대헌욱
- •
- 2001.12.03 05:47
- 2 COMMENTS
- /
- 0 LIKES
-
씨나락•2001.12.03 06:58다음과 같이 하면 될것 같네요 인터넷에서 찾은 팁입니다.. 어딘지 북마크 해놓을걸 쩝.... ^.^; ...
-
대헌욱•2001.12.03 21:59정말 고맙습니다. 씨나락님^^ 정말 많은 도움이 됐습니다.. 이은혜 어떻게 보답해야될지..^^; 그럼 앞으...
-
- 김대웅
- •
- 2001.12.03 01:51
- 4 COMMENTS
- /
- 0 LIKES
-
srookie•2001.12.03 04:57김대웅 wrote: > 안녕하세요. > > 제가 쓰레드와 타이머를 사용해서 db에 ado로 연결하는 동안 연결 시...
-
동급최강바보•2001.12.03 20:02우선 하나씩 얘기를 할께여. 쓰레드를 생성할때(Create)에서 마지막에 Resume을 했는데 타이머 이벤트에서...
-
srookie•2001.12.04 08:16제가 지난번에 Timer에서 Thread를 Resume한다는 것을 못보고서 답변을 드려서 허접한 답변이 나오고 말았...
-
김대웅•2001.12.05 02:40님 알려주신데로 했는데요.. 그래도 먹통이 되네요. 서버 쪽에 컴퓨터가 꺼져 있으면요 8초정도 프로...
-
- 클마스
- 2001.12.02 22:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 안영진
- •
- 2001.12.02 06:15
- 1 COMMENTS
- /
- 0 LIKES
-
치버•2001.12.02 08:21자신이 쓸려고 하는 클래스를 델파이 에디터에서 씁니다. 가령 TTreeView 라고.. 그리고 그 글자에 커서...
-
- DB2초보
- 2001.12.02 05:02
- 0 COMMENTS
- /
- 0 LIKES
-
- aminay
- •
- 2001.12.02 00:06
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.03 20:09안녕하세요. 최용일입니다. 휴지통으로 파일을 삭제하는거 보니까 SHFileOperation함수를 사용하시는 거...
-
- 남호진
- 2001.12.01 23:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 보라
- 2001.12.01 23:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금이
- 2001.12.01 22:30
- 0 COMMENTS
- /
- 0 LIKES
> 팁에서 찾아서 Truetype글꼴을 등록하는것을 적용했으나, 설치완료후에
> 제어판의 글꼴에는 등록이 된것같은데,워드패드에서해당글꼴을 찾을 경우 나오질 않습니다.. 어케하면 조을까요...
>
> procedure SetFontReg;
> var
> hReg: TRegistry;
> hBool : bool;
> strPath : String;
> strRegPath : String;
> begin
> if IsNT then begin
> strRegPath := 'Windows NT';
> strPath := 'c:WINNTfonts';
> end
> else begin
> strRegPath := 'Windows';
> strPath := 'c:Windowsfonts';
> end;
> try
> hReg := TRegistry.Create;
> hReg.RootKey := HKEY_LOCAL_MACHINE;
> hReg.LazyWrite := false;
> hReg.OpenKey('SoftwareMicrosoft'+ strRegPath + 'CurrentVersionFonts',
> false);
> if hReg.ReadString('휴먼각진옛체 (TrueType)') <> '' then Exit;
> hReg.WriteString('휴먼각진옛체 (TrueType)','HMKMCOLD.TTF');
> finally
> hReg.CloseKey;
> hReg.free;
> end;
> //Add the font resource
> AddFontResource(PChar(strPath + 'HMKMCOLD.TTF'));
> SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
요부분을 주석처리하면 되네요.. 난 바보야...!!!
> // Remove the resource lock
// RemoveFontResource(PChar(strPath + 'HMKMCOLD.TTF'));
// SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
> end;
>