글 목록
임의의 두점간의 각도 구하기.
델파이로 두점간의 각도를 알아내는 방법입니다. Image를 가지고 이미지내에 기준점을 그리고 그점에서 파생된 여러 점들의 각도를 이용하여 최고 상위각과 하위각을 알아내야 하는 일을 처리하기위해 만들었습니다. 인터넷에서…
DevExpress 6.xx 버젼의 Skinres 파일 사용하기
DevExpress 6.50 부터는 스킨 파일(*.Skinres)을 별도로 제공합니다. 이전에도 SkinEditor를 사용해서 별도로 저장해서 사용하기도 했지만, 제공해주니 편하네요. 퀀텀의 스킨은 스킨이 Uses문에 추가되어 실행화일의 크기가 증가합니다. 따라서, 많은…
Delphi 5에서 DLL 디버깅 하기..
Delphi 2007( 2005,2006은 사용해 본적이 없어서…) 부터는 DLL의 디버깅이 아주 잘됩니다. 그냥 Break를 걸면 걸립니다. 하지만, 그 이하 버젼( 2005,2006은 모릅니다.)에서는 DLL의 디버깅이 조금 불편합니다….
cxGrid에서 원하는 위치에 Focus를 옮기기…
cxGrid에서 원하는 위치에 또는 검색된 위치에 Focus를 옮기고 Editong모드로 만들고자 할때 사용합니다. 아래 예제는 그룹 또는 소트가 되어도 컬럼이 어디에 있던 원하는 위치로 이동해 줍니다. 요기서 중요한것은…
어버이날을 즈음하여 나에게 생일의 의미란?
어릴적 생일은 나만을 위한 날로 생각했고 주위 어른들이나 친구들도 그렇게 부추겨 주었었다. 하지만, 철이들고 나서 생각이 바뀌었다. 생일이란 내가 태어난 날이기도 하지만 부모님께서는 나를 낳아주신 날이기도…
cxGrid 에서 Ctrl+C 한 내용을 Clipboard에 넣고 붙이기….
cxGrid 에서 Ctrl+C 한 내용을 Clipboard에 넣고 붙이기 방법 입니다. 말이 좀 어렵긴 하지만.. 그리드가 2개라 가정합니다. A 라는 그리드에서 Ctrl-C한 내용을 B의 그리드에 넣으려면,…
Delphi로 IP 알아오기
전에 도메인 명으로 IP를 알아오기와 비슷한 내용입니다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Uses WinSock; ... function My_LocalIP : String; var wData: WSADATA; HostName: String; pHostInfo: pHostEnt; begin WSAStartup(MAKEWORD(2, 2), wData); GetHostName(PAnsiChar(HostName), 512); pHostInfo := GetHostByName(PAnsiChar(Hos tName)); if Assigned(pHostInfo) then Result := IntToStr(ord(pHostInfo.h_addr_list^[0])) + '.' + IntToStr(ord(pHostInfo.h_addr_list^[1])) + '.' + IntToStr (ord(pHostInfo.h_addr_list^[2])) + '.' + IntToStr (ord(pHostInfo.h_addr_list^[3])) else Result := ''; WSACleanup; end; |
HostName에 값이 없는 경우 로컬IP의 내용이 나타납니다. Uses 문에 Winsock을 추가해 주어야 합니다. 실제 IP를 읽어 오는…
Delphi 2010 Copy문에 대해…
안녕하세요. 오랜만에 글을 쓰게 됩니다. Delphi 2010에서 String으로 선언하면, 보통은 UnicodeString으로 선언됩니다. 그래서 var S : String … S := ‘가나다12345’; Label1.Caption := Copy( S, 1,…
Devexpress(퀀텀) Skin에서 현재 활성화된 모든 Skin의 이름을 가져오기…
Runtime에서 현재 퀀텀의 Skin이 뭐뭐 떠있는지 알아 내는 방법입니다. 2가지방법이 있습니다. 각자 선택을 하시면 될듯 합니다. 1번 가장 심플한 방식입니다.
|
1 2 |
for I := 0 to GetExtendedStylePainters.Count - 1 do ListBox1.Items.Add( GetExtendedStylePainters.Items[i].Name ); |
2번째는
|
1 2 3 4 5 6 7 8 9 10 |
var i : Integer; AResNameList, ASkinNameList : TStringList; begin AResNameList := TStringList.Create; ASkinNameList := TStringList.Create; dxSkinsPopulateSkinResources(HInstance, AResNameList, ASkinNameList); for I := 0 to ASkinNameList.Count - 1 do ListBox1.Items.Add( ASkinNameList[i] + ' - ' + AResNameList[I] ); |
입니다.
ClearType 설정하기
맑은 고딕과 같은 Font는 글자가 ClearType을 설정하지 않으면, 글자가 흐리게 보입니다. 따라서 , 디스플레이 등록정보 –> 화면 배색 –> 효과 –> ClearType을 설정해야 합니다. 그런데,…
최신 댓글