Преглед изворни кода

texture alpha increment by 15

johann пре 5 година
родитељ
комит
a324539388
1 измењених фајлова са 1 додато и 0 уклоњено
  1. 1 0
      lazpaintcontrols/lcvectorialfillinterface.pas

+ 1 - 0
lazpaintcontrols/lcvectorialfillinterface.pas

@@ -548,6 +548,7 @@ begin
   FUpDownTexAlpha.Height := FToolbar.ButtonHeight;
   FUpDownTexAlpha.MinValue := 0;
   FUpDownTexAlpha.MaxValue := 255;
+  FUpDownTexAlpha.Increment:= 15;
   FUpDownTexAlpha.OnChange:=@UpDownTexAlphaChange;
   AddToolbarControl(FToolbar, FUpDownTexAlpha);
   FButtonLoadTexture := AddToolbarButton(FToolbar, 'Load texture...', 22, @ButtonLoadTextureClick);