반응형

style 5

[AutoCAD P&ID] Multi Line Type을 이용한 Line Type 적용

*.lin을 이용하여 Line Type을 만들 수있으나, Multi Line은 해결책을 찾지 못하여 엄청난 고생을 하였다. 그에 따라 다음에 까먹을 까봐 이렇게 메뉴얼화 해놓으며, 다른 사용자 분들도 필요하면 사용하여 보기시 바랍니다. Plant에서 Tracing Line을 그릴려고 하는데 기본 AutoCAD P&ID의 Line Type에서는 Tracing Line Type을 지원해 주지 않습니다. 그러면 추가하는 법을 아래에 서술하오니 참고하시기 바랍니다.기술지원을 해준 투아이티씨솔루션(http://www.iitcsolution.com)의 김도겸씨에게 감사의 인사를 전합니다. 이만 ~ AutoCAD P&ID 실행 AutoCAD P&ID의 일반 도면 “Open”을 이용 Open Dialog Box에서 반..

S.W./Autodesk 2013.04.08

[C#]Window Form에 적용할 DevExpress Skin 관련 소스

참조 : http://documentation.devexpress.com/#WindowsForms/clsDevExpressSkinsSkinManagertopic using System; using System.Collections.Generic; using System.Linq; using System.Windows.Forms; namespace UserPark { static class Program { /// /// 해당 응용 프로그램의 주 진입점입니다. /// [STAThread] static void Main() { //DevExpress 보너스 스킨 등록(활성화) DevExpress.UserSkins.BonusSkins.Register(); //DevExpress.XtraEditors.XtraF..

[Delphi] Form Style이 fsStayOnTop 일 경우 다이얼로그(Dialog) 박스가 뒤로 숨는 문제

폼 소스 부분은 생략하고 처리부분만 기술한다. Form Style : fsStayOnTop 해당 폼을 TObject 형태로 구현 함수로 넘긴다 (경우에 따라서 TForm으로 넘기던지 상속클래스 만들어서 넘기던지...그건 알아서...단, 구현부분 파라메터 타입과 구현부분도 거기에 맞추어서 ^^) 구현 부분 procedure ShowSaveDialogBox(Sender : TObject = nil) var saveDlg : TSaveDialog; SenderFormStyle : TFormStyle; isSenderFormStyleChange : Boolean; begin isSenderFormStyleChange := False; if (Sender nil) and Assigned(Sender) and (S..

[Delphi] Form Style이 fsStayOnTop일 경우 메세지 박스가 뒤로 숨는 문제

Showmessage 박스 Owner가 Application으로 되어져 있는 현상 때문에 Form이 StayOnTop일 경우 아래에 숨어버리는 현상 발생 해결 방법은 아래 소스.... Screen.ActiveForm을 이용한 방법 TForm1 = class(TForm) {...생략...} procedure OnScreenActiveFormChange(Sender: TObject); private {...생략...} protected {...생략...} public {...생략...} end; procedure TForm1.FormCreate(Sender: TObject); begin Screen.OnActiveControlChange := OnScreenActiveFormChange; end; proce..

[Delphi] Form Style이 fsStayOnTop일 경우 메세지 박스가 뒤로 숨는 문제

Showmessage 박스 Owner가 Application으로 되어져 있는 현상 때문에 Form이 StayOnTop일 경우 아래에 숨어버리는 현상 발생 해결 방법은 아래 소스.... Screen.ActiveForm을 이용한 방법 TForm1 = class(TForm) {...생략...} procedure OnScreenActiveFormChange(Sender: TObject); private {...생략...} protected {...생략...} public {...생략...} end; procedure TForm1.FormCreate(Sender: TObject); begin Screen.OnActiveControlChange := OnScreenActiveFormChange; end; proce..

반응형