Borland Delphi 窗口类核心问题,请大家进入讨论！！！ (200分)

xianjun · 2001-12-14

就是为了把系统菜单设成与标准的一样吗？ 这么简单的事情要不要搞这么多动作啊？　ＦＡＩＮＴ！ 先看看为什么Delphi程序的系统菜单会少两项吧

YB_unique · 2001-12-27

同意xianjun！ 要实现任务栏的菜单和主窗口的系统菜单一样？ 如果是以任务栏的菜单为标准，改主窗口的系统菜单，可以通过getsystemmenu()等函数实现！ 如果是以主窗口的系统菜单为标准，改任务栏的菜单，则通过FindWindow()等找到句柄，可以截获修改或者自绘！

jqw · 2001-12-27

学习

jackz · 2002-01-28

去他吗的－－低手莫入！！！

机机 · 2002-02-14

哈哈，有意思不明白什么高手低手

海哥 · 2002-02-21

应改为高叫低叫才合适

Adnil · 2002-04-10

to bbkxjy： 照做了，但是效果不理想，最小化，最大化都会先到屏幕的左上角去。

bluerain · 2002-04-10

任务条上的menu是Application的,窗口上的是form自己的. 你在Form的OnCreate事件中分别用 HM := GetSystemMenu(Form1.handle,false); AppendMenu(HM,MF_STRING,2000,'mymenuitem'); 和 HM := GetSystemMenu(Application.handle,false); AppendMenu(HM,MF_STRING,2000,'mymenuitem'); 就知道了,如果还不死心,再看看 procedure TApplication.CreateHandle; begin ...     SysMenu := GetSystemMenu(FHandle, False);     DeleteMenu(SysMenu, SC_MAXIMIZE, MF_BYCOMMAND);     DeleteMenu(SysMenu, SC_SIZE, MF_BYCOMMAND);     if NewStyleControls then DeleteMenu(SysMenu, SC_MOVE, MF_BYCOMMAND);    // 正好少了三项 end; 如果再看看 procedure TCustomForm.WMNCCreate(var Message: TWMNCCreate); 就知道为什么Delphi中Dialog和VC,VB中的不同了. 那么为什么用VC,VB中任务条上的系统菜单和Form上是一样的,很简单 BOOL CSsApp::InitInstance() { AfxEnableControlContainer(); // Standard initialization // If you are not using these features and wish to reduce the size //  of your final executable, you should remove from the following //  the specific initialization routines you do not need. #ifdef _AFXDLL Enable3dControls(); // Call this when using MFC in a shared DLL #else Enable3dControlsStatic(); // Call this when linking to MFC statically #endif CSsDlg dlg; [blue] m_pMainWnd = &dlg;[/blue]            int nResponse = dlg.DoModal(); if (nResponse == IDOK) { // TODO: Place code here to handle when the dialog is //  dismissed with OK } else if (nResponse == IDCANCEL) { // TODO: Place code here to handle when the dialog is //  dismissed with Cancel } // Since the dialog has been closed, return FALSE so that we exit the //  application, rather than start the application's message pump. return FALSE; } 蓝色的那一行就是答案.

Adnil · 2002-04-10

TO bluerain：   原理我当然知道，AppendMenu和DeleteMenu以及相应command id有谁不知道？   现在的问题是怎么解决，怎么解决delphi中的TApplication菜单和MainForm菜单 的同步（或者说模拟）！！

pcexplorer · 2002-04-11

{这是一个封装标准Windows窗口的类,其中TAppFrm窗口类} {是具有标准Windows风格主窗口类,TAppFrm窗口类必须和} {TAppChildFrm窗口类一起使用} unit AppWnd; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type   TAppFrm = class(TForm)     procedure CreateParams(var Params:TCreateParams);override;   private     FParentFrm:TForm;     procedure WMSysCommand(var Msg:TWMSysCommand);message WM_SYSCOMMAND;     procedure WMMenuSelect(var Msg:TWMMenuSelect);message WM_MENUSELECT;     procedure CreateAppWnd;     { Private declarations }     //property ParentFrm:TForm read FParentFrm write FParentFrm;   public     { Public declarations }     constructor Create(AOwner: TComponent); override;     destructor Destroy; override;   end; {--------------------------------------------------------------}   TAppChildFrm = class(TForm)     procedure CreateParams(var Params:TCreateParams);override;   private     { Private declarations }   public     { Public declarations }     constructor Create(AOwner: TComponent); override;     destructor Destroy; override;   end;   {--------------------------------------------------------------} implementation { TAppFrm } constructor TAppFrm.Create(AOwner: TComponent); begin   if AOwner is TForm then     FParentFrm:=AOwner as TForm   else     FParentFrm:=nil;   inherited Create(AOwner);   CreateAppWnd; end; procedure TAppFrm.CreateAppWnd; begin   SetWindowLong(Application.Handle,GWL_EXSTYLE,         GetWindowLong(Application.Handle,GWL_EXSTYLE) or WS_EX_TOOLWINDOW); end; procedure TAppFrm.CreateParams(var Params: TCreateParams); begin   inherited CreateParams(Params);   if not Assigned(Application.MainForm) then     Params.ExStyle:=WS_EX_APPWINDOW;   if Assigned(FParentFrm) then     Params.WndParent:=FParentFrm.Handle; end; destructor TAppFrm.Destroy; begin   inherited;   // end; procedure TAppFrm.WMMenuSelect(var Msg: TWMMenuSelect); begin   inherited;   with Application do     case Msg.IDItem of       SC_MINIMIZE :Hint:='将该窗口缩小为图标。';       SC_CLOSE    :Hint:='关闭该窗口。';       SC_MAXIMIZE :Hint:='将该窗口扩大为全屏幕显示。';       SC_SIZE     :Hint:='重新调整该窗口的尺寸。';       SC_MOVE     :Hint:='移动该窗口。';       SC_RESTORE  :Hint:='将该窗口恢复为正常大小。'     else       if Msg.MenuFlag = MF_SYSMENU then         Hint:='';     end; end; procedure TAppFrm.WMSysCommand(var Msg: TWMSysCommand); begin   if Msg.CmdType=SC_MINIMIZE then     WindowState:=wsMinimized   else     inherited; end; {--------------------------------------------------------------} { TAppChildFrm } constructor TAppChildFrm.Create(AOwner: TComponent); begin   inherited;   // end; procedure TAppChildFrm.CreateParams(var Params:TCreateParams); begin   inherited CreateParams(Params);   Params.WndParent:=Application.MainForm.Handle; end; destructor TAppChildFrm.Destroy; begin   inherited;   // end; {--------------------------------------------------------------} end.

bluerain · 2002-04-11

既然大家都是高高高手,原理都知道,menu操作也是有谁不知道的,如何模拟 就更是小菜一碟了,呵呵[

]. 但是我奇怪,为什么原理都知道了,menu操作也是人人都会,为什么还无法模拟. 奇怪.[8D]

Adnil · 2002-04-11

TO BLUERAIN： 你也想得太简单了吧？ 要显示出来当然不是难事了，难在消息的处理，以及要避开TApplication已有的处理。 TApplication的所有代码都假设了只有“还原”，“最小化”，“关闭”这三个消息。 没有人称自己是高手，您有能耐的话，跟pcexplorer和bbkxjy一样把具体方案或者代 码贴出来好了！ 我这里贴一个组件，除了最大化略有bug之外，其他的都能正常运行，希望大家探讨。 unit cmpStandardSystemMenu; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus; const   scxRESTORE  = $fff0;   scxMINIMIZE = $fff2;   scxMAXIMIZE = $fff3;   scxSIZE     = $fff4;   scxMOVE     = $fff5; type   TStandardSystemMenu = class(TComponent)   private     fMenuHandle : HMenu;     fWindowMenuHandle : HMenu;     fObjectInstance : pointer;     fOldOwnerWindowProc : TFNWndProc;     fSysObjectInstance : pointer;     fOldSysWindowProc : TFNWndProc;     fIconic : boolean;     fMaximized : boolean;     procedure CloneSystemMenu;     procedure OwnerWindowProc(var msg: TMessage);     procedure SysOwnerWindowProc(var msg: TMessage);     procedure OnMinimized;     procedure OnMaximized;     procedure OnRestored(resetmax : boolean);     function HookProc(var Msg : TMessage) : boolean;   protected     procedure Loaded; override;     { Protected declarations }   public     procedure SetItemState(itemID, state : Integer);     destructor Destroy; override;     { Public declarations }   published     { Published declarations }   end; procedure Register; implementation procedure Register; begin   RegisterComponents('Samples', [TStandardSystemMenu]) end; { TStandardSystemMenu } procedure TStandardSystemMenu.CloneSystemMenu; var   count : Integer;   item : TMenuItemInfo;   buffer : array [0..256] of char;   i : Integer; begin   count := GetMenuItemCount(fMenuHandle);   while count > 0 do   begin     DeleteMenu(fMenuHandle, 0, MF_BYPOSITION);     Dec(count)   end;   count := GetMenuItemCount(fWindowMenuHandle);   for i := 0 to count - 1 do   begin     FillChar(item, sizeof(item), 0);     if Win32MajorVersion > 4 then       // Ie Win2K or '98     begin       item.cbSize := sizeof(item);       item.fMask := MIIM_STATE or MIIM_BITMAP or MIIM_ID or MIIM_STRING or MIIM_FTYPE;     end     else     begin       item.cbSize := 44;                // Sizeof old-style MENUITEMINFO       item.fMask := MIIM_STATE or MIIM_ID or MIIM_TYPE;     end;     item.cch := sizeof(buffer);     item.dwTypeData := buffer;     if GetMenuItemInfo(fWindowMenuHandle, i, True, item) then     begin       case item.wID of         SC_RESTORE  : item.wID := scxRestore;         SC_MINIMIZE : item.wID := scxMinimize;         SC_MAXIMIZE : item.wID := scxMaximize;         SC_MOVE     : item.wID := scxMove;         SC_SIZE     : item.wID := scxSize;       end;       InsertMenuItem(fMenuHandle, i, True, item)     end     else       RaiseLastOSError   end end; destructor TStandardSystemMenu.Destroy; begin   Classes.FreeObjectInstance(fObjectInstance);   Classes.FreeObjectInstance(fSysObjectInstance);   inherited; end; function TStandardSystemMenu.HookProc(var Msg: TMessage): boolean; var   LocalFlags: word; begin   Result := false;   if Msg.Msg = WM_WindowPosChanging then   begin     with TWMWindowPosMsg(Msg).WindowPos^do     begin       if(hWnd = Application.Handle) and          not IsIconic(hWnd)          and         (cx > 0) and(cy > 0)       then       begin         LocalFlags := flags or SWP_NoZOrder;         if TForm(Owner).BorderStyle = bsSizeable then           LocalFlags := LocalFlags and not SWP_NoSize         else           LocalFlags := LocalFlags or SWP_NoSize;         SetWindowPos(TForm(Owner).Handle, 0, x, y, cx, cy, LocalFlags);         TForm(Owner).Invalidate       end     end   end end; procedure TStandardSystemMenu.Loaded; begin   inherited;   fMenuHandle := GetSystemMenu(Application.Handle, False);   fWindowMenuHandle := GetSystemMenu((Owner as TForm).Handle, False);   CloneSystemMenu;   fObjectInstance := Classes.MakeObjectInstance(OwnerWindowProc);   fOldOwnerWindowProc := TfnWndProc(SetWindowLong(TForm(Owner).Handle, GWL_WNDPROC, Integer(fObjectInstance)));   fSysObjectInstance := Classes.MakeObjectInstance(SysOwnerWindowProc);   fOldSysWindowProc := TfnWndProc(SetWindowLong(Application.Handle, GWL_WNDPROC, Integer(fSysObjectInstance)));   Application.HookMainWindow(HookProc); end; procedure TStandardSystemMenu.OnMaximized; begin   fIconic := False;   fMaximized := True;   SetItemState(scxMinimize, MFS_ENABLED);   SetItemState(scxMaximize, MFS_DISABLED or MFS_GRAYED);   SetItemState(scxMove,     MFS_DISABLED or MFS_GRAYED);   SetItemState(scxSize,     MFS_DISABLED or MFS_GRAYED);   SetItemState(scxRestore,  MFS_ENABLED); end; procedure TStandardSystemMenu.OnMinimized; begin   fIconic := True;   SetItemState(scxMinimize, MFS_DISABLED or MFS_GRAYED);   SetItemState(scxMaximize, MFS_ENABLED);   SetItemState(scxMove,     MFS_DISABLED or MFS_GRAYED);   SetItemState(scxSize,     MFS_DISABLED or MFS_GRAYED);   SetItemState(scxRestore,  MFS_ENABLED); end; procedure TStandardSystemMenu.OnRestored(resetmax : boolean); begin   fIconic := False;   if resetmax then fMaximized := False;   if fMaximized then     OnMaximized   else   begin     SetItemState(scxMinimize, MFS_ENABLED);     SetItemState(scxMaximize, MFS_ENABLED);     SetItemState(scxMove,     MFS_ENABLED);     SetItemState(scxSize,     MFS_ENABLED);     SetItemState(scxRestore,  MFS_DISABLED or MFS_GRAYED)   end end; procedure TStandardSystemMenu.OwnerWindowProc(var msg : TMessage); begin   with msg do   begin     if msg = WM_SIZE then     begin       case wParam of         SIZE_MAXIMIZED : OnMaximized;         SIZE_MINIMIZED : OnMinimized;         SIZE_RESTORED  : OnRestored(true)       end     end     else       if msg = WM_DESTROY then       begin         SetWindowLong(TForm(Owner).Handle, GWL_WNDPROC, Integer(fOldOwnerWindowProc));         SetWindowLong(Application.Handle, GWL_WNDPROC, Integer(fOldSysWindowProc));         Application.UnHookMainWindow(HookProc);       end;     result := CallWindowProc(fOldOwnerWindowProc, TForm(Owner).Handle, msg, wParam, lParam)   end end; procedure TStandardSystemMenu.SetItemState(itemID, state: Integer); var   item : TMenuItemInfo; begin   FillChar(item, SizeOf(item), 0);   item.cbSize := 44;   item.fMask := MIIM_STATE;   if GetMenuItemInfo(fMenuHandle, itemID, False, item) then   begin     item.fState := state;     SetMenuItemInfo(fMenuHandle, itemID, False, item)   end end; procedure TStandardSystemMenu.SysOwnerWindowProc(var msg: TMessage); var   m : Integer; begin   with msg do   begin     if msg = WM_SYSCOMMAND then     begin       m := -1;       case wParam of         scxRestore  :          m := SC_RESTORE;         scxMinimize :          m := SC_MINIMIZE;         scxMaximize : if fMaximized then  // It's also minimized, but it *was* maximized so restore!                         SendMessage(Application.Handle, WM_SYSCOMMAND, SC_RESTORE, lParam)                       else                       begin                         if fIconic then                           SendMessage(Application.Handle, WM_SYSCOMMAND, SC_RESTORE, lParam);                         SendMessage(TForm(owner).Handle, WM_SYSCOMMAND, SC_MAXIMIZE, lParam); { SendMessage(TForm(owner).Handle, WM_SYSCOMMAND, SC_MAXIMIZE, lParam);}                       end;         scxMove     : m := SC_MOVE;         scxSize     : m := SC_SIZE;       end;       if m <> -1 then         if fIconic then           SendMessage(Application.Handle, WM_SYSCOMMAND, m, lParam)         else           SendMessage(TForm(owner).Handle, WM_SYSCOMMAND, m, lParam);     end     else       if msg = WM_SIZE then         case wParam of           SIZE_MAXIMIZED : OnMaximized;           SIZE_MINIMIZED : OnMinimized;           SIZE_RESTORED  : OnRestored(false)         end;     result := CallWindowProc(fOldSysWindowProc, Application.Handle, msg, wParam, lParam);   end end; end.

bluerain · 2002-04-11

这两天忙着项目小结,等星期六回杭州后再写些代码吧,也请pcexplorer别急着把帖子结掉. 我的思路是 1.把application的menuitem全部去掉,然后把form的system menuitem加上去(仅仅加上去文字) 2.定义六个用户自定义消息,对应加上去的menuitem,在自定义消息中对max,min,move等作处理. 不知道这种思路对不对.算了,等周末把代码写出来后再说吧. 不过我主要是想不通为什么要把form和application的系统菜单同步,这样做有什么好处? 费这么多精力,还不如看点别的东西.

Adnil · 2002-04-11

thanks to bluerain！：） 你的思路基本上跟上面的代码一致。 我说的系统菜单同步指的是form最小（大）化的时候application也应该是最小（大）化 的状态，所以通常都需要对form和application同时处理以保证状态一致，否则时不时会 没有状态条，或者状态条出现了两个。 今天我又研究了一下，参考了一个老外的代码，总体思路是隐藏application菜单，显 示form菜单，在form的系统消息响应中同步application状态，零零碎碎总还是有些问题。 越发觉得borland能力不够。。。。。 unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ComCtrls; type   TForm1 = class(TForm)     Button1: TButton;     OpenDialog1: TOpenDialog;     procedure FormShow(Sender: TObject);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   protected     procedure WMACTIVATEAPP(var Msg: TWMACTIVATEAPP); message WM_ACTIVATEAPP;     procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;     procedure CreateParams(var Params: TCreateParams); override;   public     { Public declarations }   end; var   Form1: TForm1; implementation uses commctrl; {$R *.dfm} procedure TForm1.CreateParams(var Params: TCreateParams); begin   inherited;   Params.ExStyle:= Params.ExStyle or WS_EX_APPWINDOW; end; procedure TForm1.FormShow(Sender: TObject); begin   ShowWindow(Application.Handle, SW_HIDE); end; procedure TForm1.WMSysCommand(var Msg: TWMSysCommand); begin   case Msg.CmdType of     SC_MINIMIZE: begin //      ShowWindow(Handle, SW_MINIMIZE); (**)  Application.Minimize; (**)  ShowWindow(Handle, SW_MINIMIZE); (**)  ShowWindow(Application.Handle, SW_HIDE);     end;     SC_RESTORE: begin       if WindowState = wsMinimized then       begin         inherited;         exit;       end; (**)  Application.Restore;       ShowWindow(Handle, SW_RESTORE); (**)  ShowWindow(Application.Handle, SW_HIDE);     end;     else       inherited;   end; end; procedure TForm1.Button1Click(Sender: TObject); begin   OpenDialog1.Execute;  //用来测试模态窗口的情况 end; procedure TForm1.WMACTIVATEAPP(var Msg: TWMACTIVATEAPP); begin   application.Dispatch(msg); end; end.

Adnil · 2002-04-11

to bluerain： 你怎么跟我一样，周末回杭州？

bluerain · 2002-04-11

呵呵,我是因为老婆要生了,所以公司放我两周的假期. 所以这两天要拼命多做点事,争取五一也不回广州. 我现在在广州干活,Adnil不会也在广州吧,呵呵.

CathyEagle · 2002-04-11

borland的大叔们为了大家方便，为每个应用程序封装了一个TApplication类，却忘了 两个重要的东西（其实这也不是一次两次了），与Microsoft的差距也可见一斑。 1、在Delphi 3.0和Delphi 4.0中，程序在最小化和还原的时候，窗口是瞬间消失的， 并没有象用VC或VB等开发工具编制的程序那样有动态的渐变效果（不过，在borland 意识到这个问题之后，Delphi 5.0中已经解决）。 2、Delphi的所有版本编制的程序，都无法和标准的Windows程序正常地排列平铺（这 一点才是最重要的）。 3、像pcexplorer说的“系统菜单和标准的不一样,太丑”。 4、在Windows程序中，Handle十个很重要的东西，而绝大多数Delphi程序，为了方便， 都是用Application的Handle作为ParentWindow，这与Microsoft的程序效果是不同的。 4、1装win2000和winXP的朋友可以试一下，打开资源管理器，在打开文件夹选项，然后 点击资源管理器的空白地方，“文件夹选项”窗口四周会闪动。 而在Delphi程序中，你就会发现，一般来说ShowModal的窗口是不会闪动的，因为Windows 找到的不是把它ShowModal出来的那个窗口的Handle，而是Application的Handle啊！ 所以说VC编程要麻烦一些，到处Handle传过来传过去的。 4、2 Delphi程序中会出现这种情况：在主窗口中用API Messagebox(self.handle...) 显示一个对话框的时候，这个对话框对于主窗口来说是模式的，你不可能选中主窗口， 但在状态栏上却可以把主窗口最小化！是不是很奇怪？看看Windows，没有这种情况， 模式窗口就是模式窗口，不关闭它你不可能使主窗口获得焦点的，要在状态栏上把主 窗口最小化更是不可能。 —————————————————————————————————————— 上面的朋友们给出了许多方法，却没有一个解决了这四个问题的。 其实，既然已经多了一个TApplication，再浪费一个Form又有何妨，就当是一个控件 不就行了？何况是为了追求界面。 —————————————————————————————————————— 2001-7-3我就给出了解决方案，pcexplorer说是占用资源而且还没有解决问题，那是因 为他还使用delphi的传统方法来显示一个模式窗口。解决前三个问题看我的文章 http://eagleboost.myrice.com/issues/Materials/Articles/DelphiWindow.htm 最后一个问题需要用标准的Windows方法来解决，也就是使得ShowModal出来的窗口 的ParentWindowHandle就是把它ShowModal出来的那个窗口的handle，方法如下（假 设主窗口名为MainForm,子窗口名为subForm）： 1、重载subForm的CreateParams方法。 2、在subForm的CreateParams方法中把Params.ParentWnd设置为MainForm.handle（ [red]这个Params很有用，你可以用它来修改类名！注意到了没有？）[/red] 3、在MainForm中建立subForm，再ShowModal，效果就出来了。 占用资源吗？当然！用控件不是一样占用资源吗！ —————————————————————————————————————— 动态效果？没问题！ 正常排列平铺？没问题！ 美观？没问题！ 标准？没问题！ —————————————————————————————————————— 唯一的缺点，这个Params.ParentWnd需要你随时更改，尤其是好几个窗口都要ShowModal 同一个窗口的时候，但是实现没有问题的，想想看吧。

Adnil · 2002-04-11

我杭州人，在上海干活：（

Adnil · 2002-04-11

to CathyEagle： 按您的方法，通用的DIALOG，所有的子form都需要重写的，我觉得过于麻烦。特别是第三 方的东东可能就用不来了；）

bluerain · 2002-04-12

原来是老乡,呵呵. 前面语句有点火(最近正好是做项目的烦躁期,在外地的各位应该都有体会),还请原谅. 我今年估计要留在广州干活了,还好公司对我还不错,可以时不时的溜回杭州过过小日子. 如果有空可以一起去喝喝茶,交流交流. DFW上应该还有不少杭州的,什么时候大家都聚 一下. 我的电话0571-88353477,有空联系. 关于CathyEagle提的Delphi的一些问题,例如2,早就觉得不舒服了,不过既然用的是Delphi, 也就只能将就了. 解决上述的问题的关键,我的感想是改动最好不要伤筋动骨,同时一定要确保稳定性. 如果任何方法不能达到这两点,丑陋一点就丑陋一点了.毕竟现在还是用Delphi做商业 开发的.稳定性和开发的时效性第一. to CathyEagle: 十分感谢上了一课,回去后好好试验一下. 另外想问一下,你的方法有没有在比较大一点的应用程序上应用过,如果应用过了, 运行了多久没有问题.(虽然从感觉上应该没有问题,但是总想确认一下,呵呵).

Borland Delphi 窗口类核心问题,请大家进入讨论！！！ (200分)

xianjun

Unregistered / Unconfirmed

YB_unique

Unregistered / Unconfirmed

jqw

Unregistered / Unconfirmed

jackz

Unregistered / Unconfirmed

机机

Unregistered / Unconfirmed

海哥

Unregistered / Unconfirmed

Adnil

Unregistered / Unconfirmed

bluerain

Unregistered / Unconfirmed

Adnil

Unregistered / Unconfirmed

pcexplorer

Unregistered / Unconfirmed

bluerain

Unregistered / Unconfirmed

Adnil

Unregistered / Unconfirmed

bluerain

Unregistered / Unconfirmed

Adnil

Unregistered / Unconfirmed

Adnil

Unregistered / Unconfirmed

bluerain

Unregistered / Unconfirmed

CathyEagle

Unregistered / Unconfirmed

Adnil

Unregistered / Unconfirmed

Adnil

Unregistered / Unconfirmed

bluerain

Unregistered / Unconfirmed

Similar threads