Quelle OptionClass.pas Sprache: Delphi

unit OptionClass;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
interface
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Utilities, StdCtrls, Buttons, ShellApi, ShlObj, UtilitiesOwn,
  OptionClassGen, StrUtils;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
  const
  em=16000;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
type
  TOptionDialog = class(TOptionDialogGen)
    OKButton: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    ftpuser: TLabel;
    ftppassword: TLabel;
    Edit7: TEdit;
    Label1: TLabel;
    Edit6: TEdit;
    Label2: TLabel;
    Edit8: TEdit;
    Schlag: TLabel;
    Etag1: TEdit;
    Etag2: TEdit;
    Etag3: TEdit;
    Etag4: TEdit;
    Etag5: TEdit;
    Etag6: TEdit;
    Etag7: TEdit;
    Label5: TLabel;
    Tag1: TLabel;
    Tag2: TLabel;
    Tag3: TLabel;
    Tag4: TLabel;
    Tag5: TLabel;
    Tag6: TLabel;
    Etag8: TEdit;
    Etag9: TEdit;
    Tag7: TLabel;
    Tag8: TLabel;
    Reset: TButton;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    Procedure InitOptions(optionsfilename:PChar);
    procedure ResetClick(Sender: TObject);
    procedure OKButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
var
  Opt:TOptionDialog;
  StartFolder:String;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
implementation
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
{$R *.dfm}
{------------------------------------------------------------------}
{-   Procedure getOptions                                         -}
{-   set Options                                                  -}
{------------------------------------------------------------------}
Procedure TOptionDialog.InitOptions(optionsfilename:PChar);
var x:integer;
function m(N:real):String;begin M:=midstr(inttostr(round(n)),2,10); end;
begin
  Opt:=TOptionDialog.create(nil);
  if Not FileExists(optionsfilename) then begin
    defaultoptions(Opt.R);
    Opt.PutOptions(optionsfilename)
  end;
  Opt.getoptions(optionsfilename);
  if Opt.r.inited<>'j' then begin
    DefaultOptions(Opt.R);
  end;
  x:=Opt.OptLen();
  if x>maxoptsize then begin
    Error(911,'wrong size');
    ExitProcess(911);
  end;
end;{GetOptions}
//------------------------------------------------------------------------------
// externalcode from delphi.about.com    -- Windows Code !!
//------------------------------------------------------------------------------
function BrowseDialogCallBack
  (Wnd: HWND; uMsg: UINT; lParam, lpData: LPARAM):
  integer stdcall;
var
  wa, rect : TRect;
  dialogPT : TPoint;
begin
  //center in work area
  if uMsg = BFFM_INITIALIZED then
  begin
    wa := Screen.WorkAreaRect;
    GetWindowRect(Wnd, Rect);
    dialogPT.X := ((wa.Right-wa.Left) div 2) - ((rect.Right-rect.Left) div 2);
    dialogPT.Y := ((wa.Bottom-wa.Top) div 2) - ((rect.Bottom-rect.Top) div 2);
    MoveWindow(Wnd,dialogPT.X,dialogPT.Y,Rect.Right - Rect.Left,
               Rect.Bottom - Rect.Top,True);
    SendMessage(Wnd,BFFM_SETSELECTION, 1, Integer(@StartFolder[1]));
  end;
  Result := 0;
end;
//------------------------------------------------------------------------------
// externalcode from delphi.about.com   -- Windows Code !!
//------------------------------------------------------------------------------
function BrowseDialog(const Title: string; const Flag: integer): string;
var
  lpItemID : PItemIDList;
  BrowseInfo : TBrowseInfo;
  DisplayName : array[0..MAX_PATH] of char;
  TempPath : array[0..MAX_PATH] of char;
begin
  Result:='';
  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
  with BrowseInfo do begin
    hwndOwner := Application.Handle;
    pszDisplayName := @DisplayName;
    lpszTitle := PChar(Title);
    ulFlags := Flag;
    lpfn := BrowseDialogCallBack;
  end;
  lpItemID := SHBrowseForFolder(BrowseInfo);
  if lpItemId <> nil then begin
    SHGetPathFromIDList(lpItemID, TempPath);
    Result := TempPath;
    GlobalFreePtr(lpItemID);
  end;
end;
//----------------------------------------------------------------------------
//     Zurücksetzen
//----------------------------------------------------------------------------
procedure TOptionDialog.ResetClick(Sender: TObject);
begin
  DefaultOptions(Opt.R);
  Opt.putoptions(PChar(OptionsfileName(Title)));
  Showmessage('Bitte starten Sie das Programm erneut.');
  ExitProcess(711);
  end;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
procedure TOptionDialog.OKButtonClick(Sender: TObject);
begin
  //inherited;
  Close();
end;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
procedure TOptionDialog.SpeedButton1Click(Sender: TObject);
var sTitle, sFolder: string;
    iFlag : integer;
begin
  sTitle:='Verzeichnis auswählen';
  iFlag :=  BIF_RETURNONLYFSDIRS;
  if Edit1.text<>'' then StartFolder:=Edit1.text;
  sFolder := BrowseDialog(sTitle, iFlag);
  if sFolder <> '' then
    edit1.text := sFolder+'\';
end;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
procedure TOptionDialog.SpeedButton2Click(Sender: TObject);
var sTitle, sFolder: string;
    iFlag : integer;
begin
  sTitle:='Verzeichnis auswählen';
  iFlag :=  BIF_RETURNONLYFSDIRS;
  if Edit2.text<>'' then StartFolder:=Edit2.text;
  sFolder := BrowseDialog(sTitle, iFlag);
  if sFolder <> '' then
    edit2.text := sFolder+'\';
end;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
procedure TOptionDialog.SpeedButton3Click(Sender: TObject);
var sTitle, sFolder: string;
    iFlag : integer;
begin
  sTitle:='Verzeichnis auswählen';
  iFlag :=  BIF_RETURNONLYFSDIRS;
  if Edit3.text<>'' then StartFolder:=Edit3.text;
  sFolder := BrowseDialog(sTitle, iFlag);
  if sFolder <> '' then
    edit3.text := sFolder+'\';
end;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
procedure TOptionDialog.SpeedButton4Click(Sender: TObject);
var sTitle, sFolder: string;
    iFlag : integer;
begin
  sTitle:='Verzeichnis auswählen';
  iFlag :=  BIF_RETURNONLYFSDIRS;
  sFolder := BrowseDialog(sTitle, iFlag);
end;
{------------------------------------------------------------------}
{-                                                                -}
{-   Ende dieser Quelle                                           -}
{-                                                                -}
{------------------------------------------------------------------}
end.

quality99%

¤ Dauer der Verarbeitung: 0.13 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.