demo.pas

来自「infopower 4000 for delphi 2006」· PAS 代码 · 共 726 行 · 第 1/2 页

begin
   Screen.cursor:= crHourGlass;
   with TRecordViewDemoForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.RadioGroup1Click(Sender: TObject);
begin
   if (Sender as TRadioGroup).ItemIndex=0 then
      wwIntl1.CheckBoxInGridStyle := cbStyleCheckmark
   else
      wwIntl1.CheckBoxInGridStyle := cbStyleXmark;
   wwIntl1.Connected := false;
   wwIntl1.Connected := true;
end;

procedure TMainDemo.CheckBox2Click(Sender: TObject);
begin
   if (Sender as TCheckBox).checked then
      wwIntl1.DialogFontStyle := wwIntl1.DialogFontStyle + [fsBold]
   else
      wwIntl1.DialogFontStyle := wwIntl1.DialogFontStyle - [fsBold];
   wwIntl1.Connected := false;
   wwIntl1.Connected := true;

end;

procedure TMainDemo.CheckBox1Click(Sender: TObject);
begin
   wwIntl1.OKCancelBitmapped := (Sender as TCheckBox).checked;
   wwIntl1.Connected := false;
   wwIntl1.Connected := true;
end;




procedure TMainDemo.Button20Click(Sender: TObject);
begin
   wwDBRichEditDemo.execute;
end;

procedure TMainDemo.FormShow(Sender: TObject);
begin
  ShortDAteFormat:= 'mm/dd/yyyy';
//  wwdbdatetimepicker1.options:= [];
//  wwdbdatetimepicker2.options:= [];
end;

procedure TMainDemo.Button21Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TRecordPanelDemo.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end

end;

procedure TMainDemo.SpeedButton1Click(Sender: TObject);
begin
   with TwwRichEditForm(GetParentForm(Sender as TControl)).richedit1 do begin
      sellength:= 0;
      selText:= DateToStr(Date);
   end

          //   AddictSpell1.CheckCustomRichedit(
//      TwwRichEditForm(GetParentForm(Sender as TControl)).richedit1)
end;

procedure TMainDemo.Button22Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TDateTimePickerForm.create(self) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end;
end;

procedure TMainDemo.Button23Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TMonthCalendarForm.create(self) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end;
end;

procedure TMainDemo.Button24Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TNavigatorForm1.create(self) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end;
end;

procedure TMainDemo.Button25Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TCombinedForm.create(self) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end;
end;

procedure TMainDemo.Button12Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TRecordViewPanelForm2.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button26Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TCustomFramingForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button27Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TRecordViewPanelForm2.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button28Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TDataInspectorDemo.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button29Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TGridHintIniDemo.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button31Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TMasterDetailGridForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button32Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TMultiInspectorForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button33Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TExportForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end

end;

procedure TMainDemo.Button34Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TRecordViewCustomForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end

end;

procedure TMainDemo.Button35Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TCheckBoxDemo.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button36Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TComboDemoForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button37Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TRadioDemoForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button38Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TFormatForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.RichLabelDemoButtonClick(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TRichLabelDemo.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button30Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TGridControlsForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button39Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TGridExpandForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button40Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TCustomComboForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end

end;

procedure TMainDemo.Button41Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TDataGroupForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button42Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TLargeGridEditForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end

end;

procedure TMainDemo.Button43Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TMasterDetailPanelForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end

end;

procedure TMainDemo.Button44Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TRTFImportExportForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

procedure TMainDemo.Button45Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TPrintHeaderForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end

end;

procedure TMainDemo.Button46Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TRichEditMerge.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end

end;

procedure TMainDemo.Button47Click(Sender: TObject);
begin
   Screen.cursor:= crHourGlass;
   with TDittoForm.create(Application) do begin
      Screen.cursor:= crDefault;
      ShowModal;
      Free;
   end
end;

end.