如何把用CreateWindowEx创建窗口的程序段改写成RC文件？(50分)

firstrose · 2004-02-11

我的意思是：我用CreateWindowEx创建了一个窗口，但现在我想把这个窗口放到RES文件里去。 但我把使用CreateWindowEx时的参数搬到RC文件里时，却发现建立的窗口和原先的窗口有很大 差别。谁可以给我一个解释，还有解决方法？ 下面是我用的代码：    hWindow := CreateWindowEx(WS_EX_WINDOWEDGE,             'Test',             nil,             WS_VISIBLE or WS_MINIMIZEBOX or WS_SYSMENU,             193,150,354,307,0, 0, Inst, nil); RC: KeyGenMain DIALOGEX 193, 150, 354, 307 style WS_VISIBLE | WS_MINIMIZEBOX | WS_EX_WINDOWEDGE | WS_SYSMENU CAPTION "Test" FONT 9, "Arial" BEGIN END

amli · 2004-02-23

用VC做RES文件就可以了.

wind28 · 2004-02-23

可以这样弄吗！！

firstrose · 2004-02-24

问题是参数的对应关系！

amli · 2004-02-24

KeyGenMain DIALOGEX 193, 150, 354, 307 style WS_VISIBLE | WS_MINIMIZEBOX | WS_EX_WINDOWEDGE | WS_SYSMENU CAPTION "Test" FONT 9, "Arial" BEGIN END 這樣定義還少一些默認的參數,用VC建RES文件比完整.

firstrose · 2004-02-25

to amli: 看来你比较懂一点，但你试试看就知道我为什么问了。

amli · 2004-02-26

因為兩種創建方式的參數不同,所以結果不同 一個原因有所使用的語言,另一個有字體,用WM_GETFONT獲取字體的句構后再用TFont.Handle 再查看字體的所有信息,是不是一樣,主要的是字集.

firstrose · 2004-02-26

hmm...实际是这样的：两个对话框的大小不一样。查了资料说是dialog unit和device unit的差别。资料里也给了转换公式。可我怎么也无法验证出正确结果。下面是我的实验代码。amli你可以帮我看看吗？ Var   Rule:Longword;   baseunitX,baseunitY:Word;   s:String;   dialogunitX,dialogunitY:Word;   pixelX,pixelY:Word;   Code:Integer; function DialogUnitsToPixelsX(DlgUnits: Word): Word; begin   Result := (DlgUnits * LoWord(GetDialogBaseUnits)) div 4; end; function DialogUnitsToPixelsY(DlgUnits: Word): Word; begin   Result := (DlgUnits * HiWord(GetDialogBaseUnits)) div 8; end; function PixelsToDialogUnitsX(PixUnits: Word): Word; begin   Result := PixUnits * 4 div LoWord(GetDialogBaseUnits); end; function PixelsToDialogUnitsY(PixUnits: Word): Word; begin   Result := PixUnits * 8 div HiWord(GetDialogBaseUnits); end; procedure TMainForm.SBd2pClick(Sender: TObject); begin   s:=EDlgUnitX.Text;   Val(s,dialogunitX,Code);   pixelX:=DialogUnitsToPixelsX(dialogunitX);   Str(pixelX,s);   EPixelX.Text:=s;   s:=EDlgUnitY.Text;   Val(s,dialogunitY,Code);   pixelY:=DialogUnitsToPixelsY(dialogunitY);   Str(pixelY,s);   EPixelY.Text:=s; end; procedure TMainForm.SBp2dClick(Sender: TObject); begin   s:=EPixelX.Text;   Val(s,pixelX,Code);   dialogunitX:=(pixelX*4) Div baseunitX;   Str(dialogunitX,s);   EDlgUnitX.Text:=s;   s:=EPixelY.Text;   Val(s,pixelY,Code);   dialogunitY:=(pixelY*8) Div baseunitY;   Str(dialogunitY,s);   EDlgUnitY.Text:=s; end; Initialization   Rule:=GetDialogBaseUnits;   baseunitX:=Rule AND $FFFF;   baseunitY:=Rule SHR 16; end.

amli · 2004-02-26

//VC++裡是這樣轉的我試過是可以的把這段代碼轉成Delphi就可以. void CDlg::ConvertDialogUnitsToPixels(LPCTSTR pszFontFace, WORD wFontSize, int cxDlg, int cyDlg, SIZE* pSizePixel) { // Attempt to create the font to be used in the dialog box UINT cxSysChar, cySysChar; LOGFONT lf; HDC hDC = ::GetDC(NULL); memset(&lf, 0, sizeof(LOGFONT)); lf.lfHeight = -MulDiv(wFontSize, GetDeviceCaps(hDC, LOGPIXELSY), 72); lf.lfWeight = FW_NORMAL; lf.lfCharSet = DEFAULT_CHARSET; lstrcpy(lf.lfFaceName, pszFontFace); HFONT hNewFont = CreateFontIndirect(&lf); if (hNewFont != NULL) { HFONT hFontOld = (HFONT)SelectObject(hDC, hNewFont); TEXTMETRIC tm; GetTextMetrics(hDC, &tm); cySysChar = tm.tmHeight + tm.tmExternalLeading; SIZE size; ::GetTextExtentPoint32(hDC, _T("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"), 52, &size); cxSysChar = (size.cx + 26) / 52; SelectObject(hDC, hFontOld); DeleteObject(hNewFont); } else { // Could not create the font so just use the system's values cxSysChar = LOWORD(GetDialogBaseUnits()); cySysChar = HIWORD(GetDialogBaseUnits()); } ::ReleaseDC(NULL, hDC); // Translate dialog units to pixels pSizePixel->cx = MulDiv(cxDlg, cxSysChar, 4); pSizePixel->cy = MulDiv(cyDlg, cySysChar, 8); } //Delphi procedure ConvertDialogUnitsToPixels(FontFace : PChar; wFontSize : WORD; cxDlg, cyDlg : Integer; var SizePixel : TSize); var   cxSysChar, cySysChar : UINT;   lf : LOGFONT;   hFontOld, hNewFont, hDC : THandle;   tm : TTextMetric;   size : TSize; begin hDC := GetDC(0); FillChar(lf, sizeof(LOGFONT), 0); lf.lfHeight := -MulDiv(wFontSize, GetDeviceCaps(hDC, LOGPIXELSY), 72); lf.lfWeight := FW_NORMAL; lf.lfCharSet:= DEFAULT_CHARSET; lstrcpy(lf.lfFaceName, FontFace); hNewFont := CreateFontIndirect(lf); if hNewFont <> 0 then begin hFontOld := SelectObject(hDC, hNewFont); GetTextMetrics(hDC, tm); cySysChar := tm.tmHeight + tm.tmExternalLeading; GetTextExtentPoint32(hDC, 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz', 52, size); cxSysChar := (size.cx + 26) div 52; SelectObject(hDC, hFontOld); DeleteObject(hNewFont); end else begin cxSysChar := LOWORD(GetDialogBaseUnits()); cySysChar := HIWORD(GetDialogBaseUnits()); end; ReleaseDC(0, hDC); SizePixel.cx := MulDiv(cxDlg, cxSysChar, 4); SizePixel.cy := MulDiv(cyDlg, cySysChar, 8); end;

firstrose · 2004-02-27

我按照你的方法试了，比我的代码好，但还是有差别。我用ResEd建立了RC文件，然后和CreateWindowEx的参数比较，结果如下： RC: MainForm DIALOGEX 6,6,230,168 FONT 8,"MS Sans Serif" STYLE 0x10CF0000 EXSTYLE 0x00000000   with WinClass do   begin     style              := CS_CLASSDC or CS_PARENTDC;     lpfnWndProc        := @WindowProc;     hInstance          := Inst;     hbrBackground      := color_btnface +1;     lpszClassname      := 'OCG';     hIcon              := 0;//     hCursor            := LoadCursor(0, IDC_ARROW);   end; { with }   WinClass.hIcon:=LoadIcon(Inst, 'MAINICON');   RegisterClass(WinClass);   hFont1:=CreateFont(-11,0,0,0,0,0,0,0,DEFAULT_CHARSET,0,0,0,0,'MS Sans Serif');   SelectObject(PaintDC,hFont1);   // Create Main Window =========    hWindow := CreateWindowEx(WS_EX_WINDOWEDGE,             'OCG',             'KeyGen for XXXXX v1.0',             WS_VISIBLE or WS_MINIMIZEBOX or WS_SYSMENU,             193,150,354,307,0, 0, Inst, nil); 用你给的代码转换结果是： pixelX:460 pixelY:336 这好象挺奇怪的。

amli · 2004-02-27

我用GetClientRect試過 Width = Rect.Right - Rect.Left Height = Rect.Bottom-Rect.Top 結果是完全一樣 用GetWindowRect就要差邊框.

amli · 2004-02-27

//我的測試源程序 http://home.pchome.com.tw/club/amlionline/win.exe

firstrose · 2004-03-03

你的程序真的起作用。虽然我自己没有试出来。分先给了。如果你有CSDN的帐号，去 http://expert.csdn.net/Expert/TopicView1.asp?id=2732609 留个名，那里的分数也给你。如果还有问题，希望你指教。

如何把用CreateWindowEx创建窗口的程序段改写成RC文件？(50分)

firstrose

Unregistered / Unconfirmed

amli

Unregistered / Unconfirmed

wind28

Unregistered / Unconfirmed

firstrose

Unregistered / Unconfirmed

amli

Unregistered / Unconfirmed

firstrose

Unregistered / Unconfirmed

amli

Unregistered / Unconfirmed

firstrose

Unregistered / Unconfirmed

amli

Unregistered / Unconfirmed

firstrose

Unregistered / Unconfirmed

amli

Unregistered / Unconfirmed

amli

Unregistered / Unconfirmed

firstrose

Unregistered / Unconfirmed

Similar threads