SHARE
TWEET

Untitled

a guest Jan 22nd, 2018 87 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var
  2.     Change: Integer;
  3.  
  4. procedure CustomizeChange;
  5. begin
  6.     if not ..... then
  7.     begin
  8.         ..........;
  9.         Change := CustomizePage_ChangeCombo.ItemIndex;
  10.         ..........;
  11.     end;
  12. end;
  13.  
  14. function GetChange(Param : String) : String;
  15. var
  16.     i, k: Integer;
  17. begin
  18.     k := 2;
  19.     Result := '';
  20.     case Change of
  21.     begin
  22.         1 : Result := '.....';
  23.         ..........;
  24.         for i := 1 to ..... do
  25.         begin
  26.             ..........;
  27.             if ..... then
  28.             begin
  29.                 if ..... then
  30.                     k : Result := .....;
  31.                     k := k+1;
  32.             end;
  33.         end;
  34.     end;
  35. end;
  36.  
  37. procedure CreateTheWizardPages;
  38. var
  39.     ChangeCombo: TNewComboBox;
  40.     i: Integer;
  41. begin
  42.     CustomizePage := CreateCustomPage(wpSelectDir, 'Страница', 'Страница');
  43.     ChangeCombo := TNewComboBox.Create(CustomizePage);
  44.     ChangeCombo.Top := ScaleY(3);
  45.     ChangeCombo.Left :=  ScaleX(50);
  46.     ChangeCombo.Width := ScaleX(200);
  47.     ChangeCombo.Style := csDropDownList;
  48.     ChangeCombo.Parent := CustomizePage.Surface;
  49.     ChangeCombo.Items.Add('.....');
  50.     begin
  51.         ..........;
  52.         ..........;
  53.         for i := 1 to ..... do
  54.         begin
  55.             ..........;
  56.             if ..... then
  57.             begin
  58.                 if ..... then
  59.                     ChangeCombo.Items.Add(.....)
  60.             end;
  61.         end;
  62.     end;
  63.     ChangeCombo.ItemIndex := 0;
  64.     CustomizePage_ChangeCombo := ChangeCombo;
  65. end;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top