| 1 | unit fReportsAdhocSubItem1;
|
|---|
| 2 |
|
|---|
| 3 | interface
|
|---|
| 4 |
|
|---|
| 5 | uses
|
|---|
| 6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|---|
| 7 | StdCtrls, ExtCtrls, ORCtrls, Buttons, ORfn, fAutoSz;
|
|---|
| 8 |
|
|---|
| 9 | type
|
|---|
| 10 | TfrmReportsAdhocSubItem1 = class(TfrmAutoSz)
|
|---|
| 11 | GroupBox1: TGroupBox;
|
|---|
| 12 | Splitter3: TSplitter;
|
|---|
| 13 | pnl7Button: TKeyClickPanel;
|
|---|
| 14 | SpeedButton7: TSpeedButton;
|
|---|
| 15 | pnl8Button: TKeyClickPanel;
|
|---|
| 16 | SpeedButton8: TSpeedButton;
|
|---|
| 17 | ORComboBox2: TORComboBox;
|
|---|
| 18 | ORListBox1: TORListBox;
|
|---|
| 19 | Panel4: TPanel;
|
|---|
| 20 | Label4: TLabel;
|
|---|
| 21 | Label5: TLabel;
|
|---|
| 22 | Panel5: TPanel;
|
|---|
| 23 | btnCancel: TButton;
|
|---|
| 24 | Panel8: TPanel;
|
|---|
| 25 | btnAddSel: TButton;
|
|---|
| 26 | btnRemoveSel: TButton;
|
|---|
| 27 | btnRemoveAllSel: TButton;
|
|---|
| 28 | btnOK: TButton;
|
|---|
| 29 | Timer2: TTimer;
|
|---|
| 30 | Label6: TStaticText;
|
|---|
| 31 | lblLimit: TStaticText;
|
|---|
| 32 | procedure btnCancelClick(Sender: TObject);
|
|---|
| 33 | procedure FormCreate(Sender: TObject);
|
|---|
| 34 | procedure ORListBox1EndDrag(Sender, Target: TObject; X, Y: Integer);
|
|---|
| 35 | procedure ORListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
|
|---|
| 36 | procedure ORListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
|
|---|
| 37 | State: TDragState; var Accept: Boolean);
|
|---|
| 38 | procedure Timer2Timer(Sender: TObject);
|
|---|
| 39 | procedure SpeedButton8Click(Sender: TObject);
|
|---|
| 40 | procedure SpeedButton7Click(Sender: TObject);
|
|---|
| 41 | procedure btnRemoveAllSelClick(Sender: TObject);
|
|---|
| 42 | procedure btnRemoveSelClick(Sender: TObject);
|
|---|
| 43 | procedure btnOKClick(Sender: TObject);
|
|---|
| 44 | procedure btnAddSelClick(Sender: TObject);
|
|---|
| 45 | procedure ORComboBox2KeyUp(Sender: TObject; var Key: Word;
|
|---|
| 46 | Shift: TShiftState);
|
|---|
| 47 | procedure ORComboBox2NeedData(Sender: TObject; const StartFrom: String;
|
|---|
| 48 | Direction, InsertAt: Integer);
|
|---|
| 49 | procedure pnl7ButtonEnter(Sender: TObject);
|
|---|
| 50 | procedure pnl7ButtonExit(Sender: TObject);
|
|---|
| 51 | private
|
|---|
| 52 | { Private declarations }
|
|---|
| 53 | GoingUp: Boolean;
|
|---|
| 54 | OKPressed: Boolean;
|
|---|
| 55 | public
|
|---|
| 56 | { Public declarations }
|
|---|
| 57 | end;
|
|---|
| 58 |
|
|---|
| 59 | var
|
|---|
| 60 | frmReportsAdhocSubItem1: TfrmReportsAdhocSubItem1;
|
|---|
| 61 |
|
|---|
| 62 | function ExecuteForm2: Boolean;
|
|---|
| 63 |
|
|---|
| 64 | implementation
|
|---|
| 65 |
|
|---|
| 66 | uses fReportsAdhocComponent1, rReports;
|
|---|
| 67 |
|
|---|
| 68 | {$R *.DFM}
|
|---|
| 69 |
|
|---|
| 70 | function ExecuteForm2: Boolean;
|
|---|
| 71 | begin
|
|---|
| 72 | Result := False;
|
|---|
| 73 | frmReportsAdhocSubItem1 := TfrmReportsAdhocSubItem1.Create(Application);
|
|---|
| 74 | try
|
|---|
| 75 | ResizeFormToFont(TForm(frmReportsAdhocSubItem1));
|
|---|
| 76 | frmReportsAdhocSubItem1.ShowModal;
|
|---|
| 77 | if frmReportsAdhocSubItem1.OKPressed then
|
|---|
| 78 | Result := True;
|
|---|
| 79 | finally
|
|---|
| 80 | frmReportsAdhocSubItem1.Release;
|
|---|
| 81 | end;
|
|---|
| 82 | end;
|
|---|
| 83 |
|
|---|
| 84 | procedure TfrmReportsAdhocSubItem1.btnCancelClick(Sender: TObject);
|
|---|
| 85 | begin
|
|---|
| 86 | ORComboBox2.Clear;
|
|---|
| 87 | ORListBox1.Clear;
|
|---|
| 88 | close;
|
|---|
| 89 | end;
|
|---|
| 90 |
|
|---|
| 91 | procedure TfrmReportsAdhocSubItem1.FormCreate(Sender: TObject);
|
|---|
| 92 | var
|
|---|
| 93 | i: integer;
|
|---|
| 94 | begin
|
|---|
| 95 | uLimitCount := 1;
|
|---|
| 96 | OKPressed := False;
|
|---|
| 97 | Panel8.Left := Splitter3.Left + Splitter3.Width;
|
|---|
| 98 | Panel8.Align := Splitter3.Align;
|
|---|
| 99 | ORListBox1.Left := Panel8.Left + Panel8.Width;
|
|---|
| 100 | ORListBox1.Align := Panel8.Align;
|
|---|
| 101 | RedrawSuspend(ORComboBox2.Handle);
|
|---|
| 102 | ORComboBox2.InitLongList('');
|
|---|
| 103 | RedrawActivate(ORComboBox2.Handle);
|
|---|
| 104 | If uLimit>0 then
|
|---|
| 105 | lblLimit.Caption := IntToStr(uLimit)
|
|---|
| 106 | else
|
|---|
| 107 | lblLimit.Caption := 'No Limit';
|
|---|
| 108 | ORListBox1.Caption := 'File Entries Selected ( Selections Allowed: ' +
|
|---|
| 109 | lblLimit.Caption + ')';
|
|---|
| 110 | Caption := Piece(frmReportsAdhocComponent1.ORComboBox1.Items
|
|---|
| 111 | [frmReportsAdhocComponent1.ORComboBox1.ItemIndex],'^',2);
|
|---|
| 112 | for i := 0 to uComponents.Count-1 do
|
|---|
| 113 | if piece(uComponents[i],'^',1) = IntToStr(uCurrentComponent) then
|
|---|
| 114 | ORListBox1.Items.Add(Pieces(uComponents[i],'^',3,10));
|
|---|
| 115 | end;
|
|---|
| 116 |
|
|---|
| 117 | procedure TfrmReportsAdhocSubItem1.ORListBox1EndDrag(Sender, Target: TObject; X, Y: Integer);
|
|---|
| 118 | begin
|
|---|
| 119 | if (Sender = ORListBox1) and (Target = ORComboBox2) then
|
|---|
| 120 | btnRemoveSelClick(nil);
|
|---|
| 121 | Timer2.Enabled := False;
|
|---|
| 122 | end;
|
|---|
| 123 |
|
|---|
| 124 | procedure TfrmReportsAdhocSubItem1.ORListBox1DragDrop(Sender, Source: TObject; X,
|
|---|
| 125 | Y: Integer);
|
|---|
| 126 | var
|
|---|
| 127 | NuPos: Integer;
|
|---|
| 128 | begin
|
|---|
| 129 | with Sender as TORListbox do
|
|---|
| 130 | begin
|
|---|
| 131 | NuPos := ItemAtPos(Point(X,Y),False);
|
|---|
| 132 | If NuPos >= Items.Count then Dec(NuPos);
|
|---|
| 133 | Items.Move(ItemIndex, NuPos);
|
|---|
| 134 | ItemIndex := NuPos;
|
|---|
| 135 | end;
|
|---|
| 136 | end;
|
|---|
| 137 |
|
|---|
| 138 | procedure TfrmReportsAdhocSubItem1.ORListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
|
|---|
| 139 | State: TDragState; var Accept: Boolean);
|
|---|
| 140 | begin
|
|---|
| 141 | Accept := (Sender = Source) and (TORListBox(Sender).ItemAtPos(Point(x,y), False) >= 0);
|
|---|
| 142 | if Accept then
|
|---|
| 143 | with Sender as TORListbox do
|
|---|
| 144 | if Y > Height - ItemHeight then
|
|---|
| 145 | begin
|
|---|
| 146 | GoingUp := False;
|
|---|
| 147 | Timer2.Enabled := True;
|
|---|
| 148 | end
|
|---|
| 149 | else if Y < ItemHeight then
|
|---|
| 150 | begin
|
|---|
| 151 | GoingUp := True;
|
|---|
| 152 | Timer2.Enabled := True;
|
|---|
| 153 | end
|
|---|
| 154 | else Timer2.Enabled := False;
|
|---|
| 155 | end;
|
|---|
| 156 |
|
|---|
| 157 | procedure TfrmReportsAdhocSubItem1.Timer2Timer(Sender: TObject);
|
|---|
| 158 | begin
|
|---|
| 159 | with ORListBox1 do
|
|---|
| 160 | if GoingUp then
|
|---|
| 161 | if TopIndex > 0 then TopIndex := TopIndex - 1
|
|---|
| 162 | else Timer2.Enabled := False
|
|---|
| 163 | else
|
|---|
| 164 | if TopIndex < Items.Count - 1 then TopIndex := TopIndex + 1
|
|---|
| 165 | else Timer2.Enabled := False;
|
|---|
| 166 | end;
|
|---|
| 167 |
|
|---|
| 168 | procedure TfrmReportsAdhocSubItem1.SpeedButton8Click(Sender: TObject);
|
|---|
| 169 | var
|
|---|
| 170 | i : Integer;
|
|---|
| 171 | begin
|
|---|
| 172 | with ORListbox1 do
|
|---|
| 173 | if (ItemIndex < Items.Count-1) and
|
|---|
| 174 | (ItemIndex <> -1) then
|
|---|
| 175 | begin
|
|---|
| 176 | i := ItemIndex;
|
|---|
| 177 | Items.Move(i, i+1);
|
|---|
| 178 | ItemIndex := i+1;
|
|---|
| 179 | end;
|
|---|
| 180 | end;
|
|---|
| 181 |
|
|---|
| 182 | procedure TfrmReportsAdhocSubItem1.SpeedButton7Click(Sender: TObject);
|
|---|
| 183 | var
|
|---|
| 184 | i:integer;
|
|---|
| 185 | begin
|
|---|
| 186 | with ORListBox1 do
|
|---|
| 187 | if ItemIndex > 0 then
|
|---|
| 188 | begin
|
|---|
| 189 | i := ItemIndex;
|
|---|
| 190 | Items.Move(i, i-1);
|
|---|
| 191 | ItemIndex := i-1;
|
|---|
| 192 | end;
|
|---|
| 193 | end;
|
|---|
| 194 |
|
|---|
| 195 | procedure TfrmReportsAdhocSubItem1.btnRemoveAllSelClick(Sender: TObject);
|
|---|
| 196 | var
|
|---|
| 197 | i: integer;
|
|---|
| 198 | begin
|
|---|
| 199 | If ORListBox1.Items.Count < 1 then
|
|---|
| 200 | begin
|
|---|
| 201 | InfoBox('There are no items to remove.', 'Information', MB_OK or MB_ICONINFORMATION);
|
|---|
| 202 | Exit;
|
|---|
| 203 | end;
|
|---|
| 204 | if InfoBox('This button will remove all selected items. OK?',
|
|---|
| 205 | 'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then
|
|---|
| 206 | begin
|
|---|
| 207 | With ORListBox1 do
|
|---|
| 208 | begin
|
|---|
| 209 | for i := uComponents.Count-1 downto 0 do
|
|---|
| 210 | uComponents.Delete(i);
|
|---|
| 211 | for i := Items.Count-1 downto 0 do
|
|---|
| 212 | Items.Delete(i);
|
|---|
| 213 | end;
|
|---|
| 214 | uLimitCount := 1;
|
|---|
| 215 | SpeedButton7.Enabled := false;
|
|---|
| 216 | SpeedButton8.Enabled := false;
|
|---|
| 217 | end;
|
|---|
| 218 | end;
|
|---|
| 219 |
|
|---|
| 220 | procedure TfrmReportsAdhocSubItem1.btnRemoveSelClick(Sender: TObject);
|
|---|
| 221 | var
|
|---|
| 222 | i: integer;
|
|---|
| 223 | chk: integer;
|
|---|
| 224 | begin
|
|---|
| 225 | chk := 0;
|
|---|
| 226 | If ORListBox1.Items.Count < 1 then
|
|---|
| 227 | begin
|
|---|
| 228 | InfoBox('There are no items to remove.', 'Information', MB_OK or MB_ICONINFORMATION);
|
|---|
| 229 | Exit;
|
|---|
| 230 | end
|
|---|
| 231 | else
|
|---|
| 232 | for i := 0 to ORListBox1.Items.Count - 1 do
|
|---|
| 233 | if ORListBox1.Selected[i] then
|
|---|
| 234 | chk := 1;
|
|---|
| 235 | if chk = 0 then
|
|---|
| 236 | begin
|
|---|
| 237 | InfoBox('Please select the item you wish to remove', 'Information', MB_OK or MB_ICONINFORMATION);
|
|---|
| 238 | Exit;
|
|---|
| 239 | end;
|
|---|
| 240 | With ORListBox1 do
|
|---|
| 241 | begin
|
|---|
| 242 | for i := uComponents.Count-1 downto 0 do
|
|---|
| 243 | if piece(uComponents[i],'^',2) = Piece(Items[ItemIndex],'^',1) then
|
|---|
| 244 | uComponents.Delete(i);
|
|---|
| 245 | Items.Delete(ItemIndex);
|
|---|
| 246 | uLimitCount := uLimitCount - 1;
|
|---|
| 247 | if Items.Count < 1 then
|
|---|
| 248 | begin
|
|---|
| 249 | SpeedButton7.Enabled := false;
|
|---|
| 250 | SpeedButton8.Enabled := false;
|
|---|
| 251 | end;
|
|---|
| 252 | end;
|
|---|
| 253 | end;
|
|---|
| 254 |
|
|---|
| 255 | procedure TfrmReportsAdhocSubItem1.btnOKClick(Sender: TObject);
|
|---|
| 256 | var
|
|---|
| 257 | i: integer;
|
|---|
| 258 | uTestList: TStringList;
|
|---|
| 259 | begin
|
|---|
| 260 | uTestList := TStringList.Create;
|
|---|
| 261 | uTestList.Clear;
|
|---|
| 262 | for i := 0 to ORListBox1.Items.Count-1 do
|
|---|
| 263 | uTestList.Add(ORListBox1.Items[i]);
|
|---|
| 264 | for i := uComponents.Count-1 downto 0 do
|
|---|
| 265 | if piece(uComponents[i],'^',1)=IntToStr(uCurrentComponent) then
|
|---|
| 266 | uComponents.Delete(i);
|
|---|
| 267 | for i := 0 to uTestList.Count-1 do
|
|---|
| 268 | if (uLimit = 0) or (i < uLimit) then
|
|---|
| 269 | uComponents.Add(IntToStr(uCurrentComponent)
|
|---|
| 270 | + '^' + uFile + '^' + uTestList[i]);
|
|---|
| 271 | OKPressed := True;
|
|---|
| 272 | ORListBox1.Clear;
|
|---|
| 273 | uTestList.Free;
|
|---|
| 274 | Close;
|
|---|
| 275 | end;
|
|---|
| 276 |
|
|---|
| 277 | procedure TfrmReportsAdhocSubItem1.btnAddSelClick(Sender: TObject);
|
|---|
| 278 | var
|
|---|
| 279 | i: integer;
|
|---|
| 280 | uHSSubItems: TStringList;
|
|---|
| 281 | begin
|
|---|
| 282 | If (uLimit <> 0) and (uLimitCount > uLimit) then
|
|---|
| 283 | begin
|
|---|
| 284 | Application.MessageBox(
|
|---|
| 285 | 'Sorry, you have reached the selection limit for this component',
|
|---|
| 286 | 'Selection Error',MB_OK + MB_DEFBUTTON1);
|
|---|
| 287 | Exit;
|
|---|
| 288 | end;
|
|---|
| 289 | If ORComboBox2.ItemIndex < 0 then
|
|---|
| 290 | begin
|
|---|
| 291 | InfoBox('Please select an item to Add.', 'Information', MB_OK or MB_ICONINFORMATION);
|
|---|
| 292 | Exit;
|
|---|
| 293 | end;
|
|---|
| 294 | If uFile = '60' then
|
|---|
| 295 | begin
|
|---|
| 296 | uHSSubItems := TStringList.Create;
|
|---|
| 297 | HSSubItems(uHSSubItems,
|
|---|
| 298 | Piece(ORComboBox2.Items[ORComboBox2.ItemIndex],'^',1));
|
|---|
| 299 | If uHSSubItems.Count > 0 then
|
|---|
| 300 | for i := 0 to uHSSubItems.Count-1 do
|
|---|
| 301 | begin
|
|---|
| 302 | ORListBox1.Items.Add(uHSSubItems[i]);
|
|---|
| 303 | uLimitCount := uLimitCount + 1;
|
|---|
| 304 | end
|
|---|
| 305 | Else
|
|---|
| 306 | begin
|
|---|
| 307 | ORListBox1.Items.Add(ORComboBox2.Items[ORComboBox2.ItemIndex]);
|
|---|
| 308 | uLimitCount := uLimitCount + 1;
|
|---|
| 309 | end;
|
|---|
| 310 | uHSSubItems.Free;
|
|---|
| 311 | end
|
|---|
| 312 | Else
|
|---|
| 313 | begin
|
|---|
| 314 | ORListBox1.Items.Add(ORComboBox2.Items[ORComboBox2.ItemIndex]);
|
|---|
| 315 | uLimitCount := uLimitCount + 1;
|
|---|
| 316 | end;
|
|---|
| 317 | If (uLimit <> 0) and (uLimitCount > (uLimit+1)) then
|
|---|
| 318 | ShowMessage(
|
|---|
| 319 | 'MAXIMUM SELECTION LIMIT EXCEEDED! Only the first '
|
|---|
| 320 | + IntToStr(uLimit) + ' items in the list will be used');
|
|---|
| 321 | If ORListBox1.Items.Count > 0 then
|
|---|
| 322 | begin
|
|---|
| 323 | SpeedButton7.Enabled := true;
|
|---|
| 324 | SpeedButton8.Enabled := true;
|
|---|
| 325 | end;
|
|---|
| 326 | btnOK.SetFocus;
|
|---|
| 327 | end;
|
|---|
| 328 |
|
|---|
| 329 | procedure TfrmReportsAdhocSubItem1.ORComboBox2KeyUp(Sender: TObject;
|
|---|
| 330 | var Key: Word; Shift: TShiftState);
|
|---|
| 331 | begin
|
|---|
| 332 | If Key = 13 then
|
|---|
| 333 | with ORComboBox2 do
|
|---|
| 334 | if (Text <> '') and (Items.IndexOf (Text) >= 0) then
|
|---|
| 335 | begin
|
|---|
| 336 | ItemIndex := Items.IndexOf(Text);
|
|---|
| 337 | btnAddSelClick(nil);
|
|---|
| 338 | Key := 0;
|
|---|
| 339 | end;
|
|---|
| 340 | end;
|
|---|
| 341 |
|
|---|
| 342 | procedure TfrmReportsAdhocSubItem1.ORComboBox2NeedData(Sender: TObject;
|
|---|
| 343 | const StartFrom: String; Direction, InsertAt: Integer);
|
|---|
| 344 | begin
|
|---|
| 345 | ORComboBox2.ForDataUse(HSFileLookup(uFile,StartFrom,Direction));
|
|---|
| 346 | end;
|
|---|
| 347 |
|
|---|
| 348 | procedure TfrmReportsAdhocSubItem1.pnl7ButtonEnter(Sender: TObject);
|
|---|
| 349 | begin
|
|---|
| 350 | inherited;
|
|---|
| 351 | (sender as TPanel).BevelOuter := bvRaised;
|
|---|
| 352 | end;
|
|---|
| 353 |
|
|---|
| 354 | procedure TfrmReportsAdhocSubItem1.pnl7ButtonExit(Sender: TObject);
|
|---|
| 355 | begin
|
|---|
| 356 | inherited;
|
|---|
| 357 | (sender as TPanel).BevelOuter := bvNone;
|
|---|
| 358 | end;
|
|---|
| 359 |
|
|---|
| 360 | end.
|
|---|
