Просмотр исходного кода

* Add TEditCharCase

(cherry picked from commit e48d53a2f57f69af61ce74df2a44f1d77c89d04e)
Michaël Van Canneyt 1 год назад
Родитель
Сommit
7ca339f1eb
1 измененных файлов с 3 добавлено и 0 удалено
  1. 3 0
      packages/rtl-objpas/src/inc/system.uitypes.pp

+ 3 - 0
packages/rtl-objpas/src/inc/system.uitypes.pp

@@ -622,7 +622,10 @@ const
   igiLongTap       = igiFirst + 8;
   igiDoubleTap     = igiFirst + 9;
 
+// Edit controls
 
+Type
+  TEditCharCase = (ecNormal, ecUpperCase, ecLowerCase);
 
 implementation