DP Tool Club 17/CD_ASCQ_17_101194.iso/vrac/dyndlgp.zip/DDLGDEM.PAS

Pascal/Delphi Source File | 1994-07-31 | 2KB | 85 lines

{ Program:   Mulite-Page dialog window demo }
Program ddlgDem;

{$R dyndlg.Res}
Uses
  WinProcs,
  oWindows,
  oDialogs,
  WinTypes,
  odyndlg,
  ids;

type
  ptestWindow = ^testWindow;
  testWindow = Object(tDlgWindow)
    selector:plistbox;
    dlgchange:pdynamicdialogcontrols;
    Constructor Init (aParent: pWindowsObject; Name: pChar);
    destructor done;virtual;
    Procedure SetupWindow; Virtual;
    procedure idcproperty(var msg:tmessage);virtual id_first +idc_property;
  End;

Constructor testWindow.Init (aParent: pWindowsObject; Name: pChar);
Begin
  Inherited Init(aParent, Name);
  selector:=new(plistbox,initresource(@self,idc_property));
  dlgchange:=new(pdynamicdialogcontrols,init(false,1));
End;

destructor testwindow.done;
begin
dispose(selector,done);
dispose(dlgchange,done);
inherited done;
end;

Procedure testWindow.SetupWindow;
Begin
  Inherited SetupWindow;
selector^.addstring('font');
selector^.addstring('text');
selector^.addstring('patterns');
dlgchange^.setup( IDC_FRAME_DIALOGBOX  ,hwindow);
dlgchange^.addset(IDC_FONT_FIRST,IDC_FONT_LAST,idc_frame_font);
dlgchange^.addset(IDC_text_FIRST,IDC_text_LAST,idc_frame_text);
dlgchange^.addset(IDC_patterns_FIRST,IDC_patterns_LAST,idc_frame_patterns);
selector^.setselindex(0);
End;

procedure testwindow.idcproperty(var msg:tmessage);
begin
   case Msg.LParamHi of
    lbn_selchange:
    begin
    dlgchange^.activate(selector^.getselindex+1);
    end;
end;
end;

{-------------------- the Application part }
Const
  ProgName = 'Muilt-page dialog';
Type
  tProgApp = Object(tApplication)
    Procedure InitMainWindow; Virtual;
  End;

Procedure tProgApp.InitMainWindow;
Begin
  MainWindow:= New(ptestWindow, Init(Nil, pchar(1)));

End;

Var
  App: tProgApp;
Begin
  With App Do Begin
    Init(ProgName);
    Run;
    Done
  End
End.