File: sSkinProvider.pas  
3160 3160             Message.Result := HTProcess(TWMNCHitTest(Message));
3161 3161             // Hide standard border icons
3162 3162             if (Message.Result in [HTMAXBUTTON, HTCLOSE, HTMINBUTTON]) and (Form.FormStyle = fsMDIChild)
3163 3163               then CheckSysMenu(True);
3164 3164  
3165 3165             if (Message.Result in [Windows.HTCAPTION, Windows.HTNOWHERE, HTMENU, HTCLIENT, HTLEFT..HTBOTTOMRIGHT]) then begin
3166                 if IsGripVisible(Self) then begin
3167                   i := FCommonData.SkinManager.ConstData.GripRightBottom;
3168                   if FCommonData.SkinManager.IsValidImgIndex(i) then begin
3169                     p := CursorToPoint(TWMNCHitTest(Message).XPos, TWMNCHitTest(Message).YPos);
3170                     if (BorderForm <> nil) then begin
3171                       if (p.y > RBGripPoint(i).y - DiffTitle(Self.BorderForm) - ShadowSize.Top) and (p.x > RBGripPoint(i).x - DiffBorder(Self.BorderForm) - ShadowSize.Left) then begin
3172                         Message.Result := HTBOTTOMRIGHT;
3173                         Exit;
3174                       end;
3175                     end
3176                     else begin
3177                       if (p.y > RBGripPoint(i).y) and (p.x > RBGripPoint(i).x) then begin
3178                         Message.Result := HTBOTTOMRIGHT;
3179                         Exit;
3180                       end;
3181                     end;
3182                   end;
3183                 end;
3184 3166               OldWndProc(Message);
3185 3167               Exit;
3186 3168             end;
3187 3169             if (ResizeMode = rmBorder) and (nDirection = 0) and Form.Enabled and (Message.Result in [HTCAPTION, HTLEFT..HTBOTTOMRIGHT])
3188 3170               then nDirection := Message.Result;
3189 3171           end;
 
3852 3834           FormState := FormState and not FS_ACTIVATE;
3853 3835           if (FormTimer = nil) or not FormTimer.Enabled {and DrawNonClientArea} then begin
3854 3836             RepaintNC;
3855 3837  
3856 3838             if (BorderForm <> nil) then begin
3857 3839               case Form.WindowState of
3858                   wsMaximized : begin
3859                     if ac_NoExtBordersIfMax then begin
  3840                 wsMaximized : if ac_NoExtBordersIfMax then begin
3860 3841                   FreeAndNil(BorderForm);
3861 3842                   UpdateRgn(Self, False);
3862                     end
3863                     else if Form.Menu <> nil then BorderForm.UpdateExBordersPos;
3864 3843                 end;
3865 3844                 wsNormal : BorderForm.UpdateExBordersPos;
3866 3845               end;
3867 3846             end;
3868 3847           end;
3869 3848  

   
File: sPageControl.pas  
767 767           case TabPosition of
768 768             tpLeft :   ChangedSkinSection := s_PageControl + 'LEFT';
769 769             tpRight :  ChangedSkinSection := s_PageControl + 'RIGHT';
770 770             tpBottom : ChangedSkinSection := s_PageControl + 'BOTTOM';
771 771           end;
772 772           FCommonData.SkinIndex := FCommonData.SkinManager.GetSkinIndex(ChangedSkinSection);
773             FCommonData.BorderIndex := FCommonData.SkinManager.GetMaskIndex(FCommonData.SkinIndex, ChangedSkinSection, s_BordersMask);
774 773         end
775 774         else ChangedSkinSection := FCommonData.SkinSection;
776 775         InitCacheBmp(SkinData);
777 776         CI := GetParentCache(FCommonData);
778 777  
779 778         R := PageRect;

   
File: sListBox.pas  
401 401   // Aligning of the bound label
402 402   case Message.Msg of
403 403     WM_SIZE, WM_WINDOWPOSCHANGED : if Assigned(BoundLabel) and Assigned(BoundLabel.FtheLabel) then BoundLabel.AlignLabel;
404 404     CM_VISIBLECHANGED : if Assigned(BoundLabel) and Assigned(BoundLabel.FtheLabel) then begin BoundLabel.FtheLabel.Visible := Visible; BoundLabel.AlignLabel end;
405 405     CM_ENABLEDCHANGED : if Assigned(BoundLabel) and Assigned(BoundLabel.FtheLabel) then begin BoundLabel.FtheLabel.Enabled := Enabled or not (dkBlended in DisabledKind); BoundLabel.AlignLabel end;
406 406     CM_BIDIMODECHANGED : if Assigned(BoundLabel) and Assigned(BoundLabel.FtheLabel) then begin BoundLabel.FtheLabel.BiDiMode := BiDiMode; BoundLabel.AlignLabel end;
407       CM_FONTCHANGED : if (Style = lbStandard) and not (csLoading in ComponentState) and not (csFreeNotification in ComponentState) and HandleAllocated and IsWindowVisible(Handle) then begin
  407     CM_FONTCHANGED : if (Style = lbStandard) and not (csLoading in ComponentState) and not (csFreeNotification in ComponentState) and HandleAllocated then begin
408 408       Canvas.Font.Assign(Font);
409 409       ItemHeight := Canvas.TextHeight('A');
410 410     end;
411 411     WM_VSCROLL : begin
412 412       if Assigned(FOnVScroll) then FOnVScroll(Self);
413 413     end;

   
File: acSBUtils.pas  
8995 8995       SkinData.Updating := False;
8996 8996       InvalidateRect(CtrlHandle, nil, True);
8997 8997       Exit;
8998 8998     end;
8999 8999     AC_GETBG : begin
9000 9000       GetBGInfo(PacBGInfo(Message.LParam), GetParent(CtrlHandle), PacBGInfo(Message.LParam)^.PleaseDraw);
9001         if Page <> nil then begin
9002           PacBGInfo(Message.LParam)^.Offset.X := PacBGInfo(Message.LParam)^.Offset.X + Page.Left;
9003           PacBGInfo(Message.LParam)^.Offset.Y := PacBGInfo(Message.LParam)^.Offset.Y + Page.Top;
9004         end
9005         else begin
9006 9001       PacBGInfo(Message.LParam)^.Offset.X := PacBGInfo(Message.LParam)^.Offset.X + WndPos.X;
9007 9002       PacBGInfo(Message.LParam)^.Offset.Y := PacBGInfo(Message.LParam)^.Offset.Y + WndPos.Y;
9008         end;
9009 9003       Exit;
9010 9004     end;
9011 9005   end
9012 9006   else if (SkinData <> nil) and SkinData.Skinned then case Message.Msg of
9013 9007     WM_PRINT : begin
9014 9008       AC_WMEraseBKGnd(TWMPaint(Message));

   
File: sSpinEdit.pas  
1209 1209 {$IFDEF TNTUNICODE}
1210 1210   c : PWideChar;
1211 1211 {$ENDIF}
1212 1212   s : string;
1213 1213 begin
1214 1214   Result := False;
1215     if not FEditorEnabled or ReadOnly or CharInSet(Key, [Chr(VK_ESCAPE), Chr(VK_RETURN), #0]) then begin
  1215   if not FEditorEnabled or CharInSet(Key, [Chr(VK_ESCAPE), Chr(VK_RETURN), #0]) then begin
1216 1216     Key := #0;
1217 1217     Exit;
1218 1218   end;
1219 1219   Result := CharInSet(Key, ['0'..'9']);
1220 1220   if Result then begin
1221 1221 {$IFDEF TNTUNICODE}

   
File: acLFPainter6.pas  
711 711 begin
712 712   if Skinned then Result := DefaultManager.GetGlobalColor else Result := inherited DefaultHeaderColor
713 713 end;
714 714  
715 715 class function TcxACLookAndFeelPainter.DefaultInactiveColor: TColor;
716 716 begin
717     if Skinned then Result := DefaultManager.GetHighLightColor(False) else Result := inherited DefaultInactiveColor
  717   if Skinned then Result := DefaultManager.GetGlobalColor else Result := inherited DefaultInactiveColor
718 718 end;
719 719  
720 720 class function TcxACLookAndFeelPainter.DefaultInactiveTextColor: TColor;
721 721 begin
722     if Skinned then Result := DefaultManager.GetHighLightFontColor(False) else Result := inherited DefaultInactiveTextColor
  722   if Skinned then Result := DefaultManager.GetGlobalFontColor else Result := inherited DefaultInactiveTextColor
723 723 end;
724 724  
725 725 class function TcxACLookAndFeelPainter.DefaultPreviewTextColor: TColor;
726 726 begin
727 727   if Skinned then Result := DefaultManager.GetGlobalFontColor else Result := inherited DefaultPreviewTextColor;
728 728 end;