'form' 태그의 글 목록

form

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

천일몽 2013. 4. 3. 09:24

2013. 4. 3. 09:24

무지개 참조 : http://documentation.devexpress.com/#WindowsForms/clsDevExpressSkinsSkinManagertopic

using System;
using System.Collections.Generic;
using System.Linq;
using System.Windows.Forms;

namespace UserPark
{
    static class Program
    {
        /// <summary>
        /// 해당 응용 프로그램의 주 진입점입니다.
        /// </summary>
        [STAThread]
        static void Main()
        {
            //DevExpress 보너스 스킨 등록(활성화)
            DevExpress.UserSkins.BonusSkins.Register();
            //DevExpress.XtraEditors.XtraForm(SDI Form) 스킨기능 활성화
            DevExpress.Skins.SkinManager.EnableFormSkins();
            //DevExpress.XtraEditors.XtraForm(MDI Form) 스킨기능 활성화
            DevExpress.Skins.SkinManager.EnableMdiFormSkins();
           
            Application.EnableVisualStyles();
            Application.SetCompatibleTextRenderingDefault(false);
            Application.Run(new TfrmMain());
        }
    }
}

Program.cs 파일에 Line 16~21 코드를 추가한다.

※ 반드시는 아니나…. 추천….

자세한 설명은 생략

Main 폼에 아래 소스 추가하면 스킨갤러리를 사용할 수 있다.
- “DevExpress.XtraBars.RibbonGalleryBarItem” or “DevExpress.XtraBars.Ribbon.GalleryControl” 타입으로 “GalleryItemSkins”명으로 생성(추가) 하였을 경우 아래 코드를 소스에 추가하여 준다.

DevExpress.XtraBars.Helpers.SkinHelper.InitSkinGallery(GalleryItemSkins, true);

스킨 종류 선언

Program.cs에 아래 소수 추가(“DevExpress Dark Style” 사용시)    ※반드시는 아니나…. 추천….

DevExpress.LookAndFeel.UserLookAndFeel.Default.SetSkinStyle("DevExpress Dark Style");

// or

DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = "DevExpress Dark Style";


DevExpress.LookAndFeel.UserLookAndFeel.Default.UseWindowsXPTheme = false;

'Language > C#(CLR,.NET)' 카테고리의 다른 글

[C#/Event] TextBox 등 Control 객체의 키보드 이벤트 샘플(KeyPress, KeyDown) (0)	2021.10.01
[C#] 어셈블리 EnvDTE, EnvDTE80 간접 참조 경고 발생시 (0)	2013.04.04
[C#] LINK(.LNK, 바로가기)파일의 실제 파일명 알아내기 (0)	2013.04.01
[Visual Studio].NET 4.0 프로젝트에서 .NET 2.0로 제작된 참조 DLL(or Library)를 로드 할 수 없는 경우 (0)	2013.03.29
Microsoft .NET Framework 4.5 이용시 SmartClient 실행 안될때 해결 방법 (0)	2013.03.13

[Delphi] Form Style - fsStayOnTop 대체 방법

천일몽 2011. 7. 27. 13:44

2011. 7. 27. 13:44

Form Style - fsStayOnTop 효과

SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE)

<-> SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);

출처 : http://www.delmadang.com/community/bbs_view.asp?bbsNo=17&bbsCat=41&indx=405581&keyword1=fsStayOnTop&keyword2=

이 글은 스프링노트에서 작성되었습니다.

'Language > Delphi(VCL,Pascal)' 카테고리의 다른 글

[Delphi] Form Style이 fsStayOnTop 일 경우 다이얼로그(Dialog) 박스가 뒤로 숨는 문제 (0)	2011.07.27
[Delphi] Form Style이 fsStayOnTop일 경우 메세지 박스가 뒤로 숨는 문제 (0)	2011.07.27
[Delphi] Form Style이 fsStayOnTop일 경우 메세지 박스가 뒤로 숨는 문제 (0)	2011.07.27
[Delphi] 동적 DLL 호출 방법 (0)	2010.04.28
[Delphi] DLL 호출 규칙(Calling Convention) 테스트용 DLL 및 Source (0)	2010.04.27

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

천일몽 2011. 7. 27. 13:43

2011. 7. 27. 13:43

폼 소스 부분은 생략하고 처리부분만 기술한다.

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 (Sender is TForm) then

saveDlg := TSaveDialog.Create(TForm(Sender))

else

saveDlg := TSaveDialog.Create(nil);
saveDlg.Title := '파일 저장';
saveDlg.Filter := 'TEXT 파일|*.txt';
saveDlg.DefaultExt := 'txt';
saveDlg.Options := saveDlg.Options + [ofOverwritePrompt];
saveDlg.FileName := 'ExportText' + '.xls';
if (Sender <> nil) and Assigned(Sender) and (Sender is TForm) and (TForm(Sender).FormStyle = fsStayOnTop) then
begin
//BEGIN 1안. 폼을 아래로 위치 시킨다(사라지는 효과 나타남)
TForm(Sender).SendToBack;
isSenderFormStyleChange = True;
//END 1안.
//BEGIN 2안. 폼을 일반 폼으로 변경함(화면이 심하게 깜빡거리는 단점)
SenderFormStyle := TForm(Sender).FormStyle;
isSenderFormStyleChange := True;
TForm(Sender).FormStyle := fsNormal;
Application.ProcessMessages; //(생략가능 혹시나 해서.....^^;;)
//END 2안.
end;
if saveDlg.Execute then
begin
{처리 코드}
end;
if isSenderFormStyleChange = True then

begin
//1안.
TForm(Sender).BringToFront;
//2안.
TForm(Sender).FormStyle := SenderFormStyle;
Application.ProcessMessages; //(생략가능 혹시나 해서.....^^;;)
end;
end;

출처 : 자작(userpark)

이 글은 스프링노트에서 작성되었습니다.

'Language > Delphi(VCL,Pascal)' 카테고리의 다른 글

[Delphi] Form Style - fsStayOnTop 대체 방법 (0)	2011.07.27
[Delphi] Form Style이 fsStayOnTop일 경우 메세지 박스가 뒤로 숨는 문제 (0)	2011.07.27
[Delphi] Form Style이 fsStayOnTop일 경우 메세지 박스가 뒤로 숨는 문제 (0)	2011.07.27
[Delphi] 동적 DLL 호출 방법 (0)	2010.04.28
[Delphi] DLL 호출 규칙(Calling Convention) 테스트용 DLL 및 Source (0)	2010.04.27

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

천일몽 2011. 7. 27. 13:43

2011. 7. 27. 13:43

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;
procedure TfrmUbBase_S.OnScreenActiveFormChange(Sender: TObject);
begin
if Assigned(Screen.ActiveForm) and ( (UpperCase(Screen.ActiveForm.ClassName) = UpperCase('TMessageForm')) ) then
begin
SetWindowPos(Screen.ActiveForm.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
end;
end;

출처 : 델마당 for Modify By Userpark

이 글은 스프링노트에서 작성되었습니다.

'Language > Delphi(VCL,Pascal)' 카테고리의 다른 글

[Delphi] Form Style - fsStayOnTop 대체 방법 (0)	2011.07.27
[Delphi] Form Style이 fsStayOnTop 일 경우 다이얼로그(Dialog) 박스가 뒤로 숨는 문제 (0)	2011.07.27
[Delphi] Form Style이 fsStayOnTop일 경우 메세지 박스가 뒤로 숨는 문제 (0)	2011.07.27
[Delphi] 동적 DLL 호출 방법 (0)	2010.04.28
[Delphi] DLL 호출 규칙(Calling Convention) 테스트용 DLL 및 Source (0)	2010.04.27

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

천일몽 2011. 7. 27. 13:43

2011. 7. 27. 13:43

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;
procedure TfrmUbBase_S.OnScreenActiveFormChange(Sender: TObject);
begin
if Assigned(Screen.ActiveForm) and ( (UpperCase(Screen.ActiveForm.ClassName) = UpperCase('TMessageForm')) ) then
begin
SetWindowPos(Screen.ActiveForm.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
end;
end;

출처 : 델마당 for Modify By Userpark

이 글은 스프링노트에서 작성되었습니다.

'Language > Delphi(VCL,Pascal)' 카테고리의 다른 글

[Delphi] Form Style - fsStayOnTop 대체 방법 (0)	2011.07.27
[Delphi] Form Style이 fsStayOnTop 일 경우 다이얼로그(Dialog) 박스가 뒤로 숨는 문제 (0)	2011.07.27
[Delphi] Form Style이 fsStayOnTop일 경우 메세지 박스가 뒤로 숨는 문제 (0)	2011.07.27
[Delphi] 동적 DLL 호출 방법 (0)	2010.04.28
[Delphi] DLL 호출 규칙(Calling Convention) 테스트용 DLL 및 Source (0)	2010.04.27

PREV 이전 1 NEXT 다음

千日夢의 Tistory

form

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

'Language > C#(CLR,.NET)' 카테고리의 다른 글

[Delphi] Form Style - fsStayOnTop 대체 방법

'Language > Delphi(VCL,Pascal)' 카테고리의 다른 글

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

'Language > Delphi(VCL,Pascal)' 카테고리의 다른 글

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

'Language > Delphi(VCL,Pascal)' 카테고리의 다른 글

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

'Language > Delphi(VCL,Pascal)' 카테고리의 다른 글

+ Recent posts

티스토리툴바