FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour TFolderEX into Resource Dialog Problem
richard-service
Posts: 866
Joined: Tue Oct 16, 2007 08:57 AM
TFolderEX into Resource Dialog Problem
Posted: Thu Jul 31, 2025 09:20 AM
Dear Antonio,

I have a TFolderEX in the lower right position of the First Resource Dialog.


When I press First Dialog button and Action another Resource Dialog.
Originally TFolderEX was in the lower right position of the first Dialog, but suddenly it moved to the upper left position.


Sometimes it works fine, sometimes it has problems. So I removed WS_CHILD from the RC file and it worked fine again. But the good times didn't last long, and now the problem has appeared again. See the picture above.
CONTROL "", 103, "TFOLDEREX", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER, 210, 131, 196, 138
CONTROL "", 103, "TFOLDEREX", 0 | WS_VISIBLE | WS_BORDER, 210, 131, 196, 138
I found it very unstable. Remove WS_CHILD or not. Same as problem.

Any idea or solution?
Best Regards,



Richard



Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: TFolderEX into Resource Dialog Problem
Posted: Thu Jul 31, 2025 10:17 AM

Dear Richard,

Is it an MDI environment ?

How are you building that child window ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
richard-service
Posts: 866
Joined: Tue Oct 16, 2007 08:57 AM
Re: TFolderEX into Resource Dialog Problem
Posted: Thu Jul 31, 2025 12:59 PM
Antonio Linares wrote: Dear Richard,

Is it an MDI environment ?

How are you building that child window ?
Dear Antonio,

It's not MDI. It's SDI
Best Regards,



Richard



Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: TFolderEX into Resource Dialog Problem
Posted: Thu Jul 31, 2025 02:15 PM

Dear Richard,

Could you provide a small and self contained PRG example ? thanks

regards, saludos

Antonio Linares
www.fivetechsoft.com
richard-service
Posts: 866
Joined: Tue Oct 16, 2007 08:57 AM
Re: TFolderEX into Resource Dialog Problem
Posted: Fri Aug 01, 2025 02:13 AM
Antonio Linares wrote: Dear Richard,

Could you provide a small and self contained PRG example ? thanks
Dear Antonio,

My program is very large, so I may not be able to do a small sample test myself at the moment.
I want to know what causes REDEFINE FOLDEREX to run to the above position by itself.
Best Regards,



Richard



Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: TFolderEX into Resource Dialog Problem
Posted: Fri Aug 01, 2025 04:54 AM

Dear Richard,

At least, could you copy here the dialog RC that you are using ? thanks

regards, saludos

Antonio Linares
www.fivetechsoft.com
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: TFolderEX into Resource Dialog Problem
Posted: Fri Aug 01, 2025 12:08 PM

Good morning. My folderex does this and I think it's absolutely normal. For better identification, I number them from 01 to 20 so there's no confusion.

Buenos días. Mi FolderEx hace esto y creo que es completamente normal. Para una mejor identificación, los numeré del 01 al 20 para evitar confusiones.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: TFolderEX into Resource Dialog Problem
Posted: Fri Aug 01, 2025 12:18 PM
Example, ejemplo:
Code: Select all Collapse
   DEFINE FONT oFont   NAME "Ms Sans Serif" SIZE 00, -14 BOLD
   DEFINE FONT oFnt    NAME "Ms Sans Serif" SIZE 00, -12 BOLD
   DEFINE FONT oFntGrd NAME "Tahoma"        SIZE 00, -26 BOLD

   IF( XRESOLUCAO     = "R1024_768" ) // EM: 23/06/2021 - Mudei Resolucao.

      DEFINE WINDOW oWndChild MDICHILD FROM 00, 00 TO 38.0, 127.9               ;
         COLOR CLR_CYAN, CLR_WHITE TITLE cTitle MDI BORDER NONE NOMAXIMIZE // NOMINIMIZE // prevent resizing

      oWndChild:bGotFocus = { || oDlg:SetFocus() }

      DEFINE DIALOG oDlg RESOURCE "FOLDER_RECOMP_JARDIM_NEW_1024_768" OF oWndChild GRADIENT aGrad

      REDEFINE FOLDEREX oFld ID 101 OF oDlg UPDATE               ;
         PROMPTS OemToAnsi( "µrea 01" ), OemToAnsi( "µrea 02" ), ;
                 OemToAnsi( "µrea 03" ), OemToAnsi( "µrea 04" ), ;
                 OemToAnsi( "µrea 05" ), OemToAnsi( "µrea 06" ), ;
                 OemToAnsi( "µrea 07" ), OemToAnsi( "µrea 08" ), ;
                 OemToAnsi( "µrea 09" ), OemToAnsi( "µrea 10" ), ;
                 OemToAnsi( "µrea 11" ), OemToAnsi( "µrea 12" ), ;
                 OemToAnsi( "µrea 13" ), OemToAnsi( "µrea 14" ), ;
                 OemToAnsi( "µrea 15" ), OemToAnsi( "µrea 16" ), ;
                 OemToAnsi( "µrea 17" ), OemToAnsi( "µrea 18" ), ;
                 OemToAnsi( "µrea 19" ), OemToAnsi( "µrea 20" )  ;
         BITMAPS "ESTOQUE01", "ESTOQUE02", "ESTOQUE03", "ESTOQUE04", "ESTOQUE05",;
                 "ESTOQUE06", "ESTOQUE07", "ESTOQUE08", "ESTOQUE09", "ESTOQUE10",;
                 "ESTOQUE11", "ESTOQUE12", "ESTOQUE13", "ESTOQUE14", "ESTOQUE15",;
                 "ESTOQUE16", "ESTOQUE17", "ESTOQUE18", "ESTOQUE19", "ESTOQUE20" ;
         DIALOGS "FLD_REC_JARD_AREA01_1024_768", "FLD_REC_JARD_AREA02_1024_768", ;
                 "FLD_REC_JARD_AREA03_1024_768", "FLD_REC_JARD_AREA04_1024_768", ;
                 "FLD_REC_JARD_AREA05_1024_768", "FLD_REC_JARD_AREA06_1024_768", ;
                 "FLD_REC_JARD_AREA07_1024_768", "FLD_REC_JARD_AREA08_1024_768", ;
                 "FLD_REC_JARD_AREA09_1024_768", "FLD_REC_JARD_AREA10_1024_768", ;
                 "FLD_REC_JARD_AREA11_1024_768", "FLD_REC_JARD_AREA12_1024_768", ;
                 "FLD_REC_JARD_AREA13_1024_768", "FLD_REC_JARD_AREA14_1024_768", ;
                 "FLD_REC_JARD_AREA15_1024_768", "FLD_REC_JARD_AREA16_1024_768", ;
                 "FLD_REC_JARD_AREA17_1024_768", "FLD_REC_JARD_AREA18_1024_768", ;
                 "FLD_REC_JARD_AREA19_1024_768", "FLD_REC_JARD_AREA20_1024_768"  ;
         TAB HEIGHT 30 OPTION 1 ROUND 5 FONT oFont COLOR CLR_WHITE TOP ALIGN

   ELSEIF( XRESOLUCAO = "R1280_768" )

      DEFINE WINDOW oWndChild MDICHILD FROM 00, 00 TO 38.0, 160.3               ;
         COLOR CLR_CYAN, CLR_WHITE TITLE cTitle MDI BORDER NONE NOMAXIMIZE // NOMINIMIZE // prevent resizing

      oWndChild:bGotFocus = { || oDlg:SetFocus() }

      DEFINE DIALOG oDlg RESOURCE "FOLDER_RECOMP_JARDIM_NEW_1280_768" OF oWndChild GRADIENT aGrad

      REDEFINE FOLDEREX oFld ID 101 OF oDlg UPDATE               ;
         PROMPTS OemToAnsi( "µrea 01" ), OemToAnsi( "µrea 02" ), ;
                 OemToAnsi( "µrea 03" ), OemToAnsi( "µrea 04" ), ;
                 OemToAnsi( "µrea 05" ), OemToAnsi( "µrea 06" ), ;
                 OemToAnsi( "µrea 07" ), OemToAnsi( "µrea 08" ), ;
                 OemToAnsi( "µrea 09" ), OemToAnsi( "µrea 10" ), ;
                 OemToAnsi( "µrea 11" ), OemToAnsi( "µrea 12" ), ;
                 OemToAnsi( "µrea 13" ), OemToAnsi( "µrea 14" ), ;
                 OemToAnsi( "µrea 15" ), OemToAnsi( "µrea 16" ), ;
                 OemToAnsi( "µrea 17" ), OemToAnsi( "µrea 18" ), ;
                 OemToAnsi( "µrea 19" ), OemToAnsi( "µrea 20" )  ;
         BITMAPS "ESTOQUE01", "ESTOQUE02", "ESTOQUE03", "ESTOQUE04", "ESTOQUE05",;
                 "ESTOQUE06", "ESTOQUE07", "ESTOQUE08", "ESTOQUE09", "ESTOQUE10",;
                 "ESTOQUE11", "ESTOQUE12", "ESTOQUE13", "ESTOQUE14", "ESTOQUE15",;
                 "ESTOQUE16", "ESTOQUE17", "ESTOQUE18", "ESTOQUE19", "ESTOQUE20" ;
         DIALOGS "FLD_REC_JARD_AREA01_1280_768", "FLD_REC_JARD_AREA02_1280_768", ;
                 "FLD_REC_JARD_AREA03_1280_768", "FLD_REC_JARD_AREA04_1280_768", ;
                 "FLD_REC_JARD_AREA05_1280_768", "FLD_REC_JARD_AREA06_1280_768", ;
                 "FLD_REC_JARD_AREA07_1280_768", "FLD_REC_JARD_AREA08_1280_768", ;
                 "FLD_REC_JARD_AREA09_1280_768", "FLD_REC_JARD_AREA10_1280_768", ;
                 "FLD_REC_JARD_AREA11_1280_768", "FLD_REC_JARD_AREA12_1280_768", ;
                 "FLD_REC_JARD_AREA13_1280_768", "FLD_REC_JARD_AREA14_1280_768", ;
                 "FLD_REC_JARD_AREA15_1280_768", "FLD_REC_JARD_AREA16_1280_768", ;
                 "FLD_REC_JARD_AREA17_1280_768", "FLD_REC_JARD_AREA18_1280_768", ;
                 "FLD_REC_JARD_AREA19_1280_768", "FLD_REC_JARD_AREA20_1280_768"  ;
         TAB HEIGHT 30 OPTION 1 ROUND 5 FONT oFont COLOR CLR_WHITE TOP ALIGN

   ENDIF

   oDlg:lHelpIcon := .F.

   oFld:cToolTip := { || MyToolTip( oFld:nOver ) } // funciona

   /*
   // oFld:SetOption( 1 )
   oFld:aEnable = { .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .F. }
   // oFld:Show()
   // oFld:nFolderHeight := 25
   oFld:nSeparator := 5
   oFld:bClrText   := { | o, n | 16711680 }  // 128 - RED // 16711680  CYAN
   oFld:oFont      := oFont
   */

   WITH OBJECT oFld

      :lTransparent := .T.
      :aGradSel   := { { 1.0, 3926784, 16777215 }, { 0.1, 3926784, 16777215 } } // Green
      :aGradUnSel := { { 1.0, 16744448, 16777215 }, { 0.1, 16744448, 16777215 } } // Blue
      // :aGradOver  := { { 1.0, 255, 16777215 }, { 0.1, 255, 16777215 } } // Red
      :aGradOver      := { { 1, METRO_STEEL, METRO_STEEL } }
      :aGradOverUnSel := { { 1.0, 12824535, 16777215 }, { 0.1, 12824535, 16777215 } } // Purple
      :aGradDis := { { 1.0, 15790320, 16777215 }, { 0.1, 15790320, 167772 } }

      /* // No me gusta.
      :aGradSel       := { { 1, METRO_GRIS2, METRO_GRIS2 } }
      :aGradUnSel     := { { 1, CLR_WHITE, CLR_WHITE } }
      :aGradOver      := { { 1, METRO_STEEL, METRO_STEEL } } //
      :aGradOverUnSel := :aGradOver
      :aGradDis       := { { 1, CLR_WHITE, METRO_STEEL } }
      */
      :bClrText       := { | o, n | If( o:aEnable[ n ] .and. o:aVisible[ n ], ;
                          ( if( n = o:nOption, CLR_WHITE, ;
                             if( n = o:nOver, CLR_BLUE, METRO_ORANGE ) ) ), ;
                                GetSysColor( CLR_BLACK ) ) }
      :nSeparator     := 0
      ATail( :aDialogs ):SetColor( CLR_BLUE, CLR_WHITE )
      //
      // :SetOption( 1 )
      :aEnable = { .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .T., .F. }
      :Show()
      // :DisableTab( 3 )  // idem a :aEnable
      :oCursor := oHand

   END

   // SAYS DO FOLDER 1
   For IDCor = 401 To 416 // Os ID's dos TEXTOS na DIALOG.
      REDEFINE SAY ID IDCor OF oFld:aDialogs[ 1 ] COLORS CLR_CYAN, CLR_WHITE UPDATE FONT oFont TRANSPARENT
   Next IDCor

   ...

RETURN NIL

// FIN / END
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: TFolderEX into Resource Dialog Problem
Posted: Fri Aug 01, 2025 12:23 PM

See if removing TOP ALIGN makes the program respond as you would like.

Vea si al eliminar TOP ALIGN el programa responde como desea.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
richard-service
Posts: 866
Joined: Tue Oct 16, 2007 08:57 AM
Re: TFolderEX into Resource Dialog Problem
Posted: Sun Aug 03, 2025 04:27 AM
Antonio Linares wrote: Dear Richard,

At least, could you copy here the dialog RC that you are using ? thanks
Dear Antonio,

First Dialog below:
Code: Select all Collapse
DIALOG_51 DIALOG -97, -113, 410, 275
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME
CAPTION "IC卡就醫類別"
FONT 16, "新細明體"
{
 PUSHBUTTON "西醫門診", 200, 7, 3, 50, 14
 PUSHBUTTON "西醫急診", 202, 7, 18, 50, 14
 PUSHBUTTON "牙醫門診", 201, 7, 32, 50, 14
 PUSHBUTTON "透析門診", 102, 7, 47, 50, 14
 PUSHBUTTON "他院轉入", 203, 7, 61, 50, 14
 PUSHBUTTON "手術後回診", 204, 7, 75, 50, 14
 PUSHBUTTON "出院後回診", 205, 7, 90, 50, 14
 PUSHBUTTON "職業傷害", 215, 7, 104, 50, 14
 PUSHBUTTON "戒煙門診", 220, 7, 119, 50, 14
 PUSHBUTTON "預開復健", 236, 7, 134, 50, 14
 PUSHBUTTON "手術7日回診", 237, 7, 148, 50, 14
 PUSHBUTTON "出院7日回診", 238, 7, 163, 50, 14
 PUSHBUTTON "不須累計序號", 218, 7, 178, 50, 14
 PUSHBUTTON "復建同療", 206, 57, 3, 50, 14
 PUSHBUTTON "外傷同療", 208, 57, 18, 50, 14
 PUSHBUTTON "透析同療", 207, 57, 32, 50, 14
 PUSHBUTTON "精神科社區復健同療", 232, 57, 47, 50, 28
 PUSHBUTTON "其他同療", 223, 57, 75, 50, 14
 PUSHBUTTON "手術後換藥", 233, 57, 90, 50, 14
 PUSHBUTTON "排程檢查", 209, 57, 104, 50, 14
 PUSHBUTTON "同日同醫師", 216, 57, 119, 50, 14
 PUSHBUTTON "第二次居家", 217, 57, 134, 50, 14
 PUSHBUTTON "慢性處方籤", 214, 57, 148, 50, 14
 PUSHBUTTON "成人健檢", 210, 107, 3, 50, 14
 PUSHBUTTON "成健看報告", 221, 107, 18, 50, 14
 PUSHBUTTON "BC肝檢查", 242, 107, 32, 50, 14
 PUSHBUTTON "成健BC肝查詢", 1000, 107, 46, 50, 14
 PUSHBUTTON "產前檢查", 212, 107, 61, 50, 14
 PUSHBUTTON "兒童健檢", 219, 107, 75, 50, 14
 PUSHBUTTON "性病愛滋檢", 222, 107, 90, 50, 14
 PUSHBUTTON "聽力篩檢", 231, 107, 104, 50, 14
 PUSHBUTTON "H1N1", 224, 107, 119, 50, 14
 PUSHBUTTON "Pre-ESRD", 230, 107, 134, 50, 14
 PUSHBUTTON "登革熱", 239, 107, 148, 50, 14
 PUSHBUTTON "大腸癌篩檢", 225, 157, 3, 50, 14
 PUSHBUTTON "口腔癌檢查", 226, 157, 18, 50, 14
 PUSHBUTTON "原住民口篩", 234, 157, 32, 50, 14
 PUSHBUTTON "子宮頸抹片", 211, 157, 46, 50, 14
 PUSHBUTTON "產後檢查", 235, 157, 61, 50, 14
 PUSHBUTTON "乳攝>=40歲", 227, 157, 75, 50, 14
 PUSHBUTTON "流感疫苗", 213, 207, 3, 50, 14
 PUSHBUTTON "兒童常規疫苗", 240, 207, 18, 50, 14
 PUSHBUTTON "肺炎通報隔離", 105, 207, 32, 50, 14
 PUSHBUTTON "猴痘疫苗", 2000, 207, 47, 50, 14
 PUSHBUTTON "PCR核酸檢驗", 2001, 207, 61, 50, 14
 PUSHBUTTON "查詢疫苗注射", 243, 207, 104, 50, 14
 PUSHBUTTON "自購流感疫苗", 241, 207, 90, 50, 14
 PUSHBUTTON "COVID-19疫苗", 1001, 207, 75, 50, 14
 EDITTEXT 101, 261, 15, 143, 99, ES_MULTILINE | ES_WANTRETURN | WS_BORDER | WS_VSCROLL | WS_TABSTOP
 CONTROL "", -1, "static", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP, 3, 2, 406, 272
 CONTROL "", 103, "TFOLDEREX", 0 | WS_VISIBLE | WS_BORDER, 210, 131, 196, 138
 GROUPBOX "IC卡基本資料", -1, 259, 4, 148, 113, BS_GROUPBOX
 GROUPBOX "成健/疫苗/癌篩資料", -1, 208, 119, 200, 153, BS_GROUPBOX
 CONTROL "", 104, "TWBROWSE", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL, 6, 194, 200, 77
 PUSHBUTTON "", 5000, 57, 163, 50, 14
 PUSHBUTTON "", 5001, 57, 178, 50, 14
 PUSHBUTTON "取消BC肝註記", 5002, 107, 163, 50, 14
 PUSHBUTTON "兒童發展篩檢", 5003, 107, 178, 50, 14
 PUSHBUTTON "流感快篩", 5004, 157, 90, 50, 14
 PUSHBUTTON "子宮頸病理", 5005, 157, 104, 50, 14
 PUSHBUTTON "四大癌篩追蹤", 5006, 157, 119, 50, 14
 PUSHBUTTON "抗原快速檢驗", 5007, 157, 134, 50, 14
 PUSHBUTTON "人類乳突病毒", 5008, 157, 148, 50, 14
 PUSHBUTTON "", 5009, 157, 163, 50, 14
 PUSHBUTTON "", 5010, 157, 178, 50, 14
}

Press Btnbmp and Action Second Dialog below:
Code: Select all Collapse
WINQHPA DIALOG 116, 92, 261, 151
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION ""
FONT 14, "標楷體"
{
 EDITTEXT 101, 50, 8, 52, 12
 EDITTEXT 102, 166, 8, 52, 12
 EDITTEXT 103, 50, 22, 52, 12
 EDITTEXT 104, 166, 22, 52, 12
 EDITTEXT 105, 50, 35, 195, 12
 EDITTEXT 106, 81, 49, 164, 12
 EDITTEXT 107, 81, 62, 164, 12
 EDITTEXT 110, 5, 82, 248, 34, ES_MULTILINE | ES_WANTRETURN | WS_BORDER | WS_TABSTOP
 PUSHBUTTON "確認檢查BC肝", 200, 19, 123, 67, 16
 PUSHBUTTON "放棄", 202, 177, 124, 70, 15
 CONTROL "", -1, "static", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP, 5, 119, 248, 24
 CONTROL "", -1, "static", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP, 5, 3, 248, 77
 LTEXT "身分證號:", -1, 10, 10, 38, 10
 LTEXT "姓    名:", -1, 127, 9, 38, 10
 LTEXT "出生日期:", -1, 10, 24, 38, 10
 LTEXT "身    份:", -1, 127, 23, 38, 10
 LTEXT "Token   : ", -1, 10, 37, 38, 10
 LTEXT "BC肝資格查詢結果:", -1, 10, 50, 68, 10
 LTEXT "成健資格查詢結果:", -1, 10, 64, 68, 10
 PUSHBUTTON "確認檢查成健", 201, 97, 123, 67, 16
}
Best Regards,



Richard



Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: TFolderEX into Resource Dialog Problem
Posted: Sun Aug 03, 2025 05:09 PM
Dear Richard,

This seems to be a simple example using your resources and its working fine:

richard.prg
Code: Select all Collapse
#include "FiveWin.ch"

function Main()

   local oDlg, oFld, oBrw

   FW_SetUnicode( .T. )

   USE Customer

   DEFINE DIALOG oDlg RESOURCE "Test"

   REDEFINE BUTTON ID 200 ACTION Another()

   REDEFINE FOLDEREX oFld ID 103 OF oDlg PROMPTS "One", "Two" ;
      DIALOGS "one", "two"

   REDEFINE LISTBOX oBrw FIELDS field->First, field->Last ID 104 OF oDlg

   ACTIVATE DIALOG oDlg CENTERED 

return nil

function Another()

   local oDlg

   DEFINE DIALOG oDlg RESOURCE "WINQHPA"

   ACTIVATE DIALOG oDlg CENTERED

return nil
richard.rc
Code: Select all Collapse
#ifndef __64__
   1 24 "./WinXP/WindowsXP.Manifest"
#endif

#ifdef __64__
   1 24 "WinXP/WindowsXP.Manifest64"
#endif 

test DIALOG -97, -113, 410, 275
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME
CAPTION "IC卡就醫類別"
FONT 16, "新細明體"
{
 PUSHBUTTON "西醫門診", 200, 7, 3, 50, 14
 PUSHBUTTON "西醫急診", 202, 7, 18, 50, 14
 PUSHBUTTON "牙醫門診", 201, 7, 32, 50, 14
 PUSHBUTTON "透析門診", 102, 7, 47, 50, 14
 PUSHBUTTON "他院轉入", 203, 7, 61, 50, 14
 PUSHBUTTON "手術後回診", 204, 7, 75, 50, 14
 PUSHBUTTON "出院後回診", 205, 7, 90, 50, 14
 PUSHBUTTON "職業傷害", 215, 7, 104, 50, 14
 PUSHBUTTON "戒煙門診", 220, 7, 119, 50, 14
 PUSHBUTTON "預開復健", 236, 7, 134, 50, 14
 PUSHBUTTON "手術7日回診", 237, 7, 148, 50, 14
 PUSHBUTTON "出院7日回診", 238, 7, 163, 50, 14
 PUSHBUTTON "不須累計序號", 218, 7, 178, 50, 14
 PUSHBUTTON "復建同療", 206, 57, 3, 50, 14
 PUSHBUTTON "外傷同療", 208, 57, 18, 50, 14
 PUSHBUTTON "透析同療", 207, 57, 32, 50, 14
 PUSHBUTTON "精神科社區復健同療", 232, 57, 47, 50, 28
 PUSHBUTTON "其他同療", 223, 57, 75, 50, 14
 PUSHBUTTON "手術後換藥", 233, 57, 90, 50, 14
 PUSHBUTTON "排程檢查", 209, 57, 104, 50, 14
 PUSHBUTTON "同日同醫師", 216, 57, 119, 50, 14
 PUSHBUTTON "第二次居家", 217, 57, 134, 50, 14
 PUSHBUTTON "慢性處方籤", 214, 57, 148, 50, 14
 PUSHBUTTON "成人健檢", 210, 107, 3, 50, 14
 PUSHBUTTON "成健看報告", 221, 107, 18, 50, 14
 PUSHBUTTON "BC肝檢查", 242, 107, 32, 50, 14
 PUSHBUTTON "成健BC肝查詢", 1000, 107, 46, 50, 14
 PUSHBUTTON "產前檢查", 212, 107, 61, 50, 14
 PUSHBUTTON "兒童健檢", 219, 107, 75, 50, 14
 PUSHBUTTON "性病愛滋檢", 222, 107, 90, 50, 14
 PUSHBUTTON "聽力篩檢", 231, 107, 104, 50, 14
 PUSHBUTTON "H1N1", 224, 107, 119, 50, 14
 PUSHBUTTON "Pre-ESRD", 230, 107, 134, 50, 14
 PUSHBUTTON "登革熱", 239, 107, 148, 50, 14
 PUSHBUTTON "大腸癌篩檢", 225, 157, 3, 50, 14
 PUSHBUTTON "口腔癌檢查", 226, 157, 18, 50, 14
 PUSHBUTTON "原住民口篩", 234, 157, 32, 50, 14
 PUSHBUTTON "子宮頸抹片", 211, 157, 46, 50, 14
 PUSHBUTTON "產後檢查", 235, 157, 61, 50, 14
 PUSHBUTTON "乳攝>=40歲", 227, 157, 75, 50, 14
 PUSHBUTTON "流感疫苗", 213, 207, 3, 50, 14
 PUSHBUTTON "兒童常規疫苗", 240, 207, 18, 50, 14
 PUSHBUTTON "肺炎通報隔離", 105, 207, 32, 50, 14
 PUSHBUTTON "猴痘疫苗", 2000, 207, 47, 50, 14
 PUSHBUTTON "PCR核酸檢驗", 2001, 207, 61, 50, 14
 PUSHBUTTON "查詢疫苗注射", 243, 207, 104, 50, 14
 PUSHBUTTON "自購流感疫苗", 241, 207, 90, 50, 14
 PUSHBUTTON "COVID-19疫苗", 1001, 207, 75, 50, 14
 EDITTEXT 101, 261, 15, 143, 99, ES_MULTILINE | ES_WANTRETURN | WS_BORDER | WS_VSCROLL | WS_TABSTOP
 CONTROL "", -1, "static", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP, 3, 2, 406, 272
 CONTROL "", 103, "TFOLDEREX", 0 | WS_VISIBLE | WS_BORDER, 210, 131, 196, 138
 GROUPBOX "IC卡基本資料", -1, 259, 4, 148, 113, BS_GROUPBOX
 GROUPBOX "成健/疫苗/癌篩資料", -1, 208, 119, 200, 153, BS_GROUPBOX
 CONTROL "", 104, "TWBROWSE", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL, 6, 194, 200, 77
 PUSHBUTTON "", 5000, 57, 163, 50, 14
 PUSHBUTTON "", 5001, 57, 178, 50, 14
 PUSHBUTTON "取消BC肝註記", 5002, 107, 163, 50, 14
 PUSHBUTTON "兒童發展篩檢", 5003, 107, 178, 50, 14
 PUSHBUTTON "流感快篩", 5004, 157, 90, 50, 14
 PUSHBUTTON "子宮頸病理", 5005, 157, 104, 50, 14
 PUSHBUTTON "四大癌篩追蹤", 5006, 157, 119, 50, 14
 PUSHBUTTON "抗原快速檢驗", 5007, 157, 134, 50, 14
 PUSHBUTTON "人類乳突病毒", 5008, 157, 148, 50, 14
 PUSHBUTTON "", 5009, 157, 163, 50, 14
 PUSHBUTTON "", 5010, 157, 178, 50, 14
}

one DIALOG DISCARDABLE 18, 18, 142, 67
STYLE WS_CHILD|DS_3DLOOK
{
  CONTROL "Text", 110, "Button", BS_AUTORADIOBUTTON|WS_GROUP|WS_TABSTOP, 37, 30, 28, 12
  CONTROL "Text", 120, "Button", BS_AUTORADIOBUTTON|WS_TABSTOP, 37, 41, 28, 12
  CONTROL "Text", 130, "Button", BS_AUTORADIOBUTTON|WS_TABSTOP, 37, 52, 28, 12
  CONTROL "&Second", 104, "Button", WS_TABSTOP, 93, 26, 32, 12
}

two DIALOG DISCARDABLE 18, 18, 142, 67
STYLE WS_CHILD|DS_3DLOOK
{
  CONTROL "Text", 110, "Button", BS_AUTORADIOBUTTON|WS_GROUP|WS_TABSTOP, 37, 30, 28, 12
  CONTROL "Text", 120, "Button", BS_AUTORADIOBUTTON|WS_TABSTOP, 37, 41, 28, 12
  CONTROL "Text", 130, "Button", BS_AUTORADIOBUTTON|WS_TABSTOP, 37, 52, 28, 12
  CONTROL "&Second", 104, "Button", WS_TABSTOP, 93, 26, 32, 12
}

WINQHPA DIALOG 116, 92, 261, 151
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION ""
FONT 14, "標楷體"
{
 EDITTEXT 101, 50, 8, 52, 12
 EDITTEXT 102, 166, 8, 52, 12
 EDITTEXT 103, 50, 22, 52, 12
 EDITTEXT 104, 166, 22, 52, 12
 EDITTEXT 105, 50, 35, 195, 12
 EDITTEXT 106, 81, 49, 164, 12
 EDITTEXT 107, 81, 62, 164, 12
 EDITTEXT 110, 5, 82, 248, 34, ES_MULTILINE | ES_WANTRETURN | WS_BORDER | WS_TABSTOP
 PUSHBUTTON "確認檢查BC肝", 200, 19, 123, 67, 16
 PUSHBUTTON "放棄", 202, 177, 124, 70, 15
 CONTROL "", -1, "static", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP, 5, 119, 248, 24
 CONTROL "", -1, "static", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP, 5, 3, 248, 77
 LTEXT "身分證號:", -1, 10, 10, 38, 10
 LTEXT "姓    名:", -1, 127, 9, 38, 10
 LTEXT "出生日期:", -1, 10, 24, 38, 10
 LTEXT "身    份:", -1, 127, 23, 38, 10
 LTEXT "Token   : ", -1, 10, 37, 38, 10
 LTEXT "BC肝資格查詢結果:", -1, 10, 50, 68, 10
 LTEXT "成健資格查詢結果:", -1, 10, 64, 68, 10
 PUSHBUTTON "確認檢查成健", 201, 97, 123, 67, 16
}
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive · New replies & topics via GitHub Discussions