Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- case Item of
- 0: Begin
- spbTutela.Glyph.Assign(nil);
- ImageList1.GetBitmap(2, spbTutela.Glyph);
- BUSCA_TUTELA := 'N';
- End;
- 1: Begin
- spbCuratela.Glyph.Assign(nil);
- ImageList1.GetBitmap(2, spbCuratela.Glyph);
- BUSCA_CURATELA := 'N';
- End;
- 2: Begin
- spbInsolvencia.Glyph.Assign(nil);
- ImageList1.GetBitmap(2, spbInsolvencia.Glyph);
- BUSCA_INSOLVENCIA := 'N';
- End;
- 3: Begin
- spbAusencia.Glyph.Assign(nil);
- ImageList1.GetBitmap(2, spbAusencia.Glyph);
- BUSCA_AUSENCIA := 'N';
- End;
- 4: Begin
- spbEmancipacao.Glyph.Assign(nil);
- ImageList1.GetBitmap(2, spbEmancipacao.Glyph);
- BUSCA_EMACIPACAO := 'N';
- End;
- 5: Begin
- spbFalencia.Glyph.Assign(nil);
- ImageList1.GetBitmap(2, spbFalencia.Glyph);
- BUSCA_FALENCIA := 'N';
- End;
- 6: Begin
- spbCriminal.Glyph.Assign(nil);
- ImageList1.GetBitmap(2, spbCriminal.Glyph);
- BUSCA_CRIMINAL := 'N';
- End;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement