[카테고리:] 델파이 사용법
그리드에서 일요일에 색을 표시하기
cxGrid 및 cxPivotGrid에서 일요일에 색을 다르게 표시하기
|
1 2 3 4 5 6 7 8 9 10 11 |
var ADate: TDateTime; begin inherited; if ACell.DataField = 그리드_검진계획DBPv예약인원 then begin ADate := EncodeDate(스핀_년도.Value, 스핀_월.Value, StrToIntDef(Copy(ACell.Column.GetDisplayText, 1, 2), 0)); if DayOfWeek(ADate) = 1 then AStyle := DM.그리드_TOTAL; end; end; |
Oracle In 명령 사용시 Delphi Unidac에서 사용 방법
동적으로 Query문장의 In 문을 이용하여 데이타를 검색하려면 Oracle에서 SQL문에서 Parameter를 사용하면 문자값으로 적용되기 때문에 Macro를 사용해야 합니다. 아래 소스를 참조해 주세용 with UniQuery do…
richedit의 마지막으로 이동하기..
RichEdit1.SelLength := 0; RichEdit1.SelStart := RichEdit1.GetTextLen; RichEdit1. Perform( EM_SCROLL, SB_LINEDOWN, 0); 설명이 필요 없지요?
개발중 또는 개발후에도 NexusDB에서 nxEnterpriseManager를 사용하는 방법.
안녕하세요. NexusDB를 소개하고 많은 시간이 흘렀습니다. 게으름에 사용 방법을 올려야 하는데, 저도 이게 정석인지 아닌지 몰라 고민하다가 그냥 공개를 합니다. ( 이글은 초보용이 아닙니다. 약간의…
WebBrowser에 HTML 내용 바꾸기 ( Delphi & C++ Builder )
TWebBrowser의 HTML을 변경하려면 우선..WebBrowser1.Navigator(‘About:Blank’)로 초기화를 한뒤에 아래와 같이 작업하시면 됩니다. 델파이와는 다르게 C++ Builder에서는 variant형의 지원때문에 조금 길어 보입니다. 내용은 100% 동일합니다. Delphi
|
1 2 |
WebBrowser1.OleObject.Document.Body.innerhtml := WebBrowser1.OleObject.Document.Body.innerhtml + '<FONT color=#3058d2><SPAN style="FONT-FAMILY: Gulim"><SPAN style="FONT-SIZE: 10pt"><STRONG> 이름 : </STRONG> </SPAN> </SPAN> <SPAN style="FONT-FAMILY: Arial"> <SPAN style="FONT-SIZE: 10pt"> <FONT color=#000000>' + Edit1.Text + '</FONT> </SPAN> </SPAN> <br /> </FONT>'; |
…
화면의 컬러(Color) Bit수를 알아 내기…
원격 관리 프로그램을 만드는중에 시스템의 현재 컬러의 Bit값을 알아내야 했다.. 이리 저리 알아 보다가 DC를 얻어내서 GetDeviceCaps로 알아 낼수 있는 방법을 찾아 냈다.
|
1 2 3 4 5 6 7 8 |
function GetScreenColorBit : Integer; var DC : HDC; begin DC := GetDC( GetDesktopWindow ); Result := GetDeviceCaps( DC, BITSPIXEL ); ReleaseDC( GetDesktopWindow, DC ) end; |
잊어 먹지…
Delphi 몇가지 Tip( 시작할때 메인폼 나타나지 않기, 부팅후 한번만 실행하기, Tray아이콘으로 현재 아이콘 가져가기 )
며칠전 아는 사람의 몇가지 질문을 보고 적은 내용입니다. 시작할때 메인폼을 화면에 나타내지 않기.
|
1 2 3 4 5 6 |
begin Application.Initialize; Application.ShowMainForm:=False; Application.CreateForm(TForm1, Form1); Application.Run; end. |
부팅 오직 한번만 프로그램을 실행하기…. 도대체 무엇 때문에 이런용도를 쓰는지 알수…
임의의 두점간의 각도 구하기.
델파이로 두점간의 각도를 알아내는 방법입니다. Image를 가지고 이미지내에 기준점을 그리고 그점에서 파생된 여러 점들의 각도를 이용하여 최고 상위각과 하위각을 알아내야 하는 일을 처리하기위해 만들었습니다. 인터넷에서…
Delphi 5에서 DLL 디버깅 하기..
Delphi 2007( 2005,2006은 사용해 본적이 없어서…) 부터는 DLL의 디버깅이 아주 잘됩니다. 그냥 Break를 걸면 걸립니다. 하지만, 그 이하 버젼( 2005,2006은 모릅니다.)에서는 DLL의 디버깅이 조금 불편합니다….
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를 읽어 오는…
최신 댓글