sstylesimply.pas

Alpha Controls.v5.46b Source

unit sStyleSimply;
{$I sDefs.inc}

interface

uses
  Windows, Graphics, Classes, Controls, acntUtils, SysUtils, StdCtrls,  Dialogs, Forms,
  Messages, sConst, extctrls, IniFiles;

type
  TsSkinData = class (TObject)
    SkinPath : string;
    Active : boolean;

    Version : real;
    Author : string;
    Description : string;

    Shadow1Color : TColor;
    Shadow1Offset : integer;
    Shadow1Blur : integer;
    Shadow1Transparency : integer;

    FXColor : TColor;
    BorderColor : TColor;

    BISpacing : integer;
  public
    destructor Destroy; override;
  end;

  TConstantSkinData = record
    // Index GLobalInfo
    IndexGLobalInfo : smallint;

    // Tabs indexes
    IndexTabTop : smallint;
    IndexTabBottom : smallint;
    IndexTabLeft : smallint;
    IndexTabRight : smallint;
    // Masks
    MaskTabTop : smallint;
    MaskTabBottom : smallint;
    MaskTabLeft : smallint;
    MaskTabRight : smallint;

    // ScrollButtons
    IndexScrollTop : smallint;
    IndexScrollBottom : smallint;
    IndexScrollLeft : smallint;
    IndexScrollRight : smallint;
    MaskScrollTop : smallint;
    MaskScrollBottom : smallint;
    MaskScrollLeft : smallint;
    MaskScrollRight : smallint;
    IndexBGScrollTop : smallint;
    IndexBGScrollBottom : smallint;
    IndexBGScrollLeft : smallint;
    IndexBGScrollRight : smallint;
    IndexBGHotScrollTop : smallint;
    IndexBGHotScrollBottom : smallint;
    IndexBGHotScrollLeft : smallint;
    IndexBGHotScrollRight : smallint;
    // Arrows masks
    MaskArrowTop : smallint;
    MaskArrowBottom : smallint;
    MaskArrowLeft : smallint;
    MaskArrowRight : smallint;

    // ScrollSliders
    IndexSliderVert : smallint;
    IndexSliderHorz : smallint;
    MaskSliderVert : smallint;
    MaskSliderHorz : smallint;
    MaskSliderGlyphVert : smallint;
    MaskSliderGlyphHorz : smallint;
    // Sliders patterns
    ScrollSliderBGHorz : smallint;
    ScrollSliderBGHotHorz : smallint;
    ScrollSliderBGVert : smallint;
    ScrollSliderBGHotVert : smallint;

    //ScrollBars
    IndexScrollBar1H : smallint;
    IndexScrollBar1V : smallint;
    IndexScrollBar2H : smallint;
    IndexScrollBar2V : smallint;
    MaskScrollBar1H : smallint;
    MaskScrollBar1V : smallint;
    MaskScrollBar2H : smallint;
    MaskScrollBar2V : smallint;
    BGScrollBar1H : smallint;
    BGScrollBar1V : smallint;
    BGScrollBar2H : smallint;
    BGScrollBar2V : smallint;
    BGHotScrollBar1H : smallint;
    BGHotScrollBar1V : smallint;
    BGHotScrollBar2H : smallint;
    BGHotScrollBar2V : smallint;

    // CheckBoxes and RadioButtons
    // Normal
    CheckBoxChecked : smallint;
    CheckBoxUnChecked : smallint;
    CheckBoxGrayed : smallint;
    RadioButtonChecked : smallint;
    RadioButtonUnChecked : smallint;
    RadioButtonGrayed : smallint;
    // Small
    SmallCheckBoxChecked : smallint;
    SmallCheckBoxUnChecked : smallint;
    SmallCheckBoxGrayed : smallint;
    // ComboBoxes
    ComboBtnIndex : integer;
    ComboBtnBorder : integer;
    ComboBtnBG : integer;
    ComboBtnBGHot : integer;
    ComboGlyph : integer;
  end;

procedure LockForms(SkinManager : TComponent);
procedure UnLockForms(SkinManager : TComponent; Repaint : boolean = True);
procedure AppBroadCastS(var Message);
procedure SendToHooked(var Message);
procedure SkinForm(Form : TCustomForm);
procedure UnSkinForm(Form : TCustomForm);
procedure IntSkinForm(Form : TCustomForm);
procedure IntUnSkinForm(Form : TCustomForm);

var
//  RestrictDrawing : boolean = False;
  _TempBitmap : TBitmap;
  _TempPoint : TPoint;
  GlobalCacheInfo : TCacheInfo;
  GlobalSectionName : string;
  AppIcon, AppIconLarge : TIcon;
  aSkinChanging : boolean = False;
  aSkinRemoving : boolean = False;

  HookedComponents : array of TComponent;

implementation

uses
  sStoreUtils, sVclUtils, sMessages, sMaskData, sSkinProvider, comctrls, sSkinProps, ShellAPI, sSkinManager;

procedure LockForms;
var
  i: integer;
  sp : longint;
begin
  i := 0;
  while i <= Length(HookedComponents) - 1 do begin
    if (HookedComponents[i] <> nil) and (HookedComponents[i] is TCustomForm) and
         (TForm(HookedComponents[i]).FormStyle <> fsMDIChild) and
         (TForm(HookedComponents[i]).Parent = nil) and
         TControl(HookedComponents[i]).Visible then begin
      sp := SendAMessage(TWinControl(HookedComponents[i]), AC_GETPROVIDER);
      if (sp <> 0) and (TsSkinProvider(sp).SkinData.SkinManager = SkinManager) then begin
        SendMessage(TWinControl(HookedComponents[i]).Handle, WM_SETREDRAW, 0, 0);
      end;
    end;
    inc(i);
  end;
end;

procedure UnlockForms;
var
  i: integer;
  sp : longint;
begin
  i := 0;
  while i <= Length(HookedComponents) - 1 do begin
    if (HookedComponents[i] <> nil) and (HookedComponents[i] is TCustomForm) and
         (TForm(HookedComponents[i]).FormStyle <> fsMDIChild) and
         (TForm(HookedComponents[i]).Parent = nil) and
         TControl(HookedComponents[i]).Visible then begin
      sp := SendAMessage(TWinControl(HookedComponents[i]), AC_GETPROVIDER);
      if (sp <> 0) and (TsSkinProvider(sp).SkinData.SkinManager = SkinManager) then begin
        if Repaint then begin
          if TsSkinProvider(sp).SkinData.SkinManager.AnimEffects.SkinChanging.Active then begin
            if (Win32MajorVersion >= 6)
              then AnimShowControl(TWinControl(HookedComponents[i]), 0)
              else AnimShowControl(TWinControl(HookedComponents[i]), TsSkinProvider(sp).SkinData.SkinManager.AnimEffects.SkinChanging.Time);
          end;

          SendMessage(TWinControl(HookedComponents[i]).Handle, WM_SETREDRAW, 1, 0);
          if Win32MajorVersion < 6 then SetWindowRgn(TWinControl(HookedComponents[i]).Handle, 0, False); // Fixing of Aero bug
          UpdateRgn(TsSkinProvider(sp), True);
          RedrawWindow(TWinControl(HookedComponents[i]).Handle, nil, 0, RDW_NOERASE or RDW_UPDATENOW or RDW_INVALIDATE or RDW_ALLCHILDREN);
        end
        else begin
          SendMessage(TWinControl(HookedComponents[i]).Handle, WM_SETREDRAW, 1, 0);
          if Repaint then RedrawWindow(TWinControl(HookedComponents[i]).Handle, nil, 0, RDW_NOERASE or RDW_UPDATENOW or RDW_INVALIDATE or RDW_ALLCHILDREN or RDW_FRAME);
        end;
      end;
    end;
    inc(i);
  end;
end;

procedure AppBroadCastS(var Message);
var
  i: integer;
begin
(*Research for optimizing*)
  i := Application.ComponentCount - 1;
  while i >= 0 do begin // Order has been changed (Z-order is valuable now in skins changing or activating 4.65)
    if i >= Application.ComponentCount then Exit; // JACOB
    // Sending a message to all forms (non-MDIChild first)
    if (Application.Components[i] is TForm) and (TForm(Application.Components[i]).FormStyle <> fsMDIChild){v4.24} then begin
      if not (csDestroying in Application.Components[i].ComponentState) and not (csLoading in Application.Components[i].ComponentState) and not GetBoolMsg(TForm(Application.Components[i]).Handle, AC_CTRLHANDLED) then begin
        // Form must be handled first
        SendMessage(TWinControl(Application.Components[i]).Handle, TMessage(Message).Msg, TMessage(Message).WParam, TMessage(Message).LParam);
        AlphaBroadCast(TWinControl(Application.Components[i]), Message);
        // Message sending to client if form is a MDIForm
        if (Application.Components[i] is TForm) and (TForm(Application.Components[i]).FormStyle = fsMDIForm) then begin
          SendMessage(TForm(Application.Components[i]).ClientHandle, TMessage(Message).Msg, TMessage(Message).WParam, TMessage(Message).LParam);
        end;
      end
    end;
    dec(i);
  end;//!!!*)
  SendToHooked(Message);
end;

procedure SendToHooked(var Message);
var
  i: integer;
  Cmp : TComponent;
begin
  i := 0;
  while i <= Length(HookedComponents) - 1 do begin
    Cmp := HookedComponents[i];
    if (Cmp <> nil) and not (csDestroying in Cmp.ComponentState) and (Cmp is TCustomForm) then begin
      SendMessage(TWinControl(Cmp).Handle, TMessage(Message).Msg, TMessage(Message).WParam, TMessage(Message).LParam);
      AlphaBroadCast(TWinControl(Cmp), Message);
      if (Cmp is TForm) then begin
        if (TForm(Cmp).FormStyle = fsMDIForm) then begin
          SendMessage(TForm(Cmp).ClientHandle, TMessage(Message).Msg, TMessage(Message).WParam, TMessage(Message).LParam);
        end;
      end;
    end;
    inc(i);
  end;
end;

procedure SkinForm(Form : TCustomForm);
begin
end;

procedure UnSkinForm(Form : TCustomForm);
begin
end;

procedure IntSkinForm(Form : TCustomForm);
begin
  SetLength(HookedComponents, Length(HookedComponents) + 1);
  HookedComponents[Length(HookedComponents) - 1] := Form;
end;

procedure IntUnSkinForm(Form : TCustomForm);
var
  i, l : integer;
begin
  l := Length(HookedComponents) - 1;
  for i := 0 to l do if HookedComponents[i] = Form then begin
    HookedComponents[i] := HookedComponents[l];
    HookedComponents[l] := nil;
  end;
  if (l >= 0) then begin
    if HookedComponents[l] = nil then SetLength(HookedComponents, l)
  end; // else raise exception.create('No SkinForm called ?');
end;

{ TsSkinData }

destructor TsSkinData.Destroy;
begin
  if Assigned(SkinFile) then FreeAndNil(SkinFile);
  inherited;
end;

initialization
  AppIcon := GetIconForFile(Application.ExeName, SHGFI_SMALLICON);
  AppIconLarge := GetIconForFile(Application.ExeName, SHGFI_LARGEICON);

finalization
  if Assigned(AppIcon) then AppIcon.Free;
  if Assigned(AppIconLarge) then AppIconLarge.Free;
  SetLength(HookedComponents, 0);

end.