mirror of
https://github.com/alliedmodders/metamod-source.git
synced 2025-02-26 19:54:14 +01:00
87b42d68e8
--HG-- branch : sourcemm-1.4.3 extra : convert_revision : svn%3Ac2935e3e-5518-0410-8daf-afa5dab7d4e3/branches/sourcemm-1.4.3%40623
36 lines
805 B
ObjectPascal
36 lines
805 B
ObjectPascal
unit UnitSelectModPath;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
|
StdCtrls, ExtCtrls, Forms, FileCtrl, ComCtrls, ShellCtrls,
|
|
TFlatComboBoxUnit, TFlatButtonUnit, TFlatCheckBoxUnit;
|
|
|
|
type
|
|
TfrmSelectModPath = class(TForm)
|
|
pnlDesign: TPanel;
|
|
lblInfo: TLabel;
|
|
trvDirectory: TShellTreeView;
|
|
cmdOK: TFlatButton;
|
|
cmdCancel: TFlatButton;
|
|
chkUsesOrangebox: TFlatCheckBox;
|
|
procedure trvDirectoryClick(Sender: TObject);
|
|
end;
|
|
|
|
var
|
|
frmSelectModPath: TfrmSelectModPath;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TfrmSelectModPath.trvDirectoryClick(Sender: TObject);
|
|
begin
|
|
// !! OrangeBox Check !!
|
|
if (trvDirectory.Selected <> nil) then
|
|
chkUsesOrangebox.Checked := (chkUsesOrangebox.Checked) or (trvDirectory.Selected.Text = 'tf');
|
|
end;
|
|
|
|
end.
|