Advertisement
Guest User

Untitled

a guest
Dec 13th, 2018
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.13 KB | None | 0 0
  1.   case Item of
  2.     0: Begin
  3.           spbTutela.Glyph.Assign(nil);
  4.           ImageList1.GetBitmap(2, spbTutela.Glyph);
  5.           BUSCA_TUTELA := 'N';
  6.         End;
  7.     1: Begin
  8.           spbCuratela.Glyph.Assign(nil);
  9.           ImageList1.GetBitmap(2, spbCuratela.Glyph);
  10.           BUSCA_CURATELA  := 'N';
  11.         End;
  12.     2: Begin
  13.           spbInsolvencia.Glyph.Assign(nil);
  14.           ImageList1.GetBitmap(2, spbInsolvencia.Glyph);
  15.           BUSCA_INSOLVENCIA  := 'N';
  16.         End;
  17.     3: Begin
  18.           spbAusencia.Glyph.Assign(nil);
  19.           ImageList1.GetBitmap(2, spbAusencia.Glyph);
  20.           BUSCA_AUSENCIA  := 'N';
  21.  
  22.         End;
  23.     4: Begin
  24.           spbEmancipacao.Glyph.Assign(nil);
  25.           ImageList1.GetBitmap(2, spbEmancipacao.Glyph);
  26.           BUSCA_EMACIPACAO := 'N';
  27.         End;
  28.     5: Begin
  29.           spbFalencia.Glyph.Assign(nil);
  30.           ImageList1.GetBitmap(2, spbFalencia.Glyph);
  31.           BUSCA_FALENCIA := 'N';
  32.  
  33.         End;
  34.     6: Begin
  35.           spbCriminal.Glyph.Assign(nil);
  36.           ImageList1.GetBitmap(2, spbCriminal.Glyph);
  37.           BUSCA_CRIMINAL  := 'N';
  38.         End;
  39.   end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement