ksskinstdcontrol.pas

来自「小区水费管理系统源代码水费收费管理系统 水费收费管理系统」· PAS 代码 · 共 892 行 · 第 1/2 页

begin

end;

procedure TSeSkinScrollBox.SetSkinObject(const Value: string);
begin
  FSkinObject := Value;
end;


{ TSeSkinMemo ===============================================================}


constructor TSeSkinMemo.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  SkinObject := 'Edit';
end;

destructor TSeSkinMemo.Destroy;
begin
  if FSkinEdit <> nil then FSkinEdit.Free;
  inherited Destroy;
end;

function TSeSkinMemo.UseSkin: boolean;
begin
  if (csDestroying in ComponentState) or (csLoading in ComponentState) then
    Result := false
  else
    if (FSkinEngine <> nil) and (FSkinEngine.SkinSource <> nil) and
       (not FSkinEngine.SkinSource.IsChanging) and
       (FSkinEngine.SkinSource.Count > 0) and
       (FSkinEngine.SkinSource.GetObjectByName(FSkinObject) <> nil) and
       (FSkinEdit <> nil)
    then
      Result := true
    else
      Result := false;
end;

procedure TSeSkinMemo.CreateScrollBar(var AScrollBar: TSeCustomScrollBar; AOwner: TComponent);
begin
  AScrollBar := TSeSkinScrollBar.Create(AOwner);
end;

procedure TSeSkinMemo.PaintBorder(Canvas: TCanvas; ARect: TRect);
var
  SkinObject: TSeSkinObject;
  DrawState: TSeState;
begin
  if UseSkin then
  begin
    if not Enabled then
      DrawState := ssDisabled
    else
      DrawState := ssNormal;

    SkinObject := FSkinEdit.FindObjectByName('Frame');
    if SkinObject = nil then
      SkinObject := FSkinEdit;

    if SkinObject <> nil then
    begin
      SkinObject.State := DrawState;
      SkinObject.BoundsRect := ARect;
      SkinObject.Draw(Canvas);
    end;
  end
  else
    inherited ;
end;

procedure TSeSkinMemo.PaintBuffer(Canvas: TCanvas; ARect: TRect);
begin
  inherited ;
end;

procedure TSeSkinMemo.WMBeforeChange(var Msg: TMessage);
begin
  if Pointer(Msg.LParam) = nil then Exit;
  if TSeSkinEngine(Msg.LParam) <> FSkinEngine then Exit;

  if FSkinEdit <> nil then FSkinEdit.Free;
  FSkinEdit := nil;
end;

procedure TSeSkinMemo.WMInvalidateSkinObject(var Msg: TMessage);
begin
  Invalidate;
end;

procedure TSeSkinMemo.WMSkinChange(var Msg: TMessage);
begin
  if Pointer(Msg.LParam) = nil then Exit;
  if TSeSkinEngine(Msg.LParam) <> FSkinEngine then Exit;

  SkinEngine := FSkinEngine;
end;

{ Properties }

function TSeSkinMemo.GetVersion: TSeSkinVersion;
begin
  Result := sSeSkinVersion;
end;

procedure TSeSkinMemo.SetSkinEngine(const Value: TSeSkinEngine);
begin
  FSkinEngine := Value;

  if (FSkinEngine <> nil) and (FSkinEngine.SkinSource <> nil) and
     (not FSkinEngine.SkinSource.IsChanging) and
     (FSkinEngine.SkinSource.Count > 0) then
  begin
    if FSkinEdit <> nil then FSkinEdit.Free;
    FSkinEdit := nil;

    if FSkinEngine.SkinSource.GetObjectByName(FSkinObject) <> nil then
      FSkinEdit := FSkinEngine.SkinSource.GetObjectByName(FSkinObject).CreateCopy(nil);

    if FSkinEdit <> nil then
    begin
      FSkinEdit.ParentControl := Self;
      Color := FSkinEdit.Color;
    end;
  end
  else
  begin
    if FSkinEdit <> nil then FSkinEdit.Free;
    FSkinEdit := nil;
  end;

  if SubScrollBars <> nil then
  begin
    TSeSkinScrollBar(SubScrollBars.HScrollBar.ScrollBar).SkinEngine := Value;
    TSeSkinScrollBar(SubScrollBars.VScrollBar.ScrollBar).SkinEngine := Value;
  end;

  Invalidate;
end;

procedure TSeSkinMemo.SetVersion(const Value: TSeSkinVersion);
begin

end;

procedure TSeSkinMaskEdit.SetSkinObject(const Value: string);
begin
  FSkinObject := Value;
end;

procedure TSeSkinMemo.SetSkinObject(const Value: string);
begin
  FSkinObject := Value;
end;


{ TSeSkinSTreeView ===============================================================}


constructor TSeSkinSTreeView.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  SkinObject := 'ListBox';
end;

destructor TSeSkinSTreeView.Destroy;
begin
  if FSkinBox <> nil then FSkinBox.Free;
  inherited Destroy;
end;

function TSeSkinSTreeView.UseSkin: boolean;
begin
  if (csDestroying in ComponentState) or (csLoading in ComponentState) then
    Result := false
  else
    if (FSkinEngine <> nil) and (FSkinEngine.SkinSource <> nil) and
       (not FSkinEngine.SkinSource.IsChanging) and
       (FSkinEngine.SkinSource.Count > 0) and
       (FSkinEngine.SkinSource.GetObjectByName(FSkinObject) <> nil) and
       (FSkinBox <> nil)
    then
      Result := true
    else
      Result := false;
end;

procedure TSeSkinSTreeView.CreateScrollBar(var AScrollBar: TSeCustomScrollBar; AOwner: TComponent);
begin
  AScrollBar := TSeSkinScrollBar.Create(AOwner);
end;

procedure TSeSkinSTreeView.PaintBorder(Canvas: TCanvas; ARect: TRect);
var
  SkinObject: TSeSkinObject;
  DrawState: TSeState;
begin
  if UseSkin then
  begin
    if not Enabled then
      DrawState := ssDisabled
    else
      DrawState := ssNormal;

    SkinObject := FSkinBox.FindObjectByName('Frame');
    if SkinObject = nil then
      SkinObject := FSkinBox;

    if SkinObject <> nil then
    begin
      SkinObject.State := DrawState;
      SkinObject.BoundsRect := ARect;
      SkinObject.Draw(Canvas);
    end;
  end
  else
    inherited ;
end;

procedure TSeSkinSTreeView.PaintBuffer(Canvas: TCanvas; ARect: TRect);
begin
  inherited ;
end;

procedure TSeSkinSTreeView.WMBeforeChange(var Msg: TMessage);
begin
  if Pointer(Msg.LParam) = nil then Exit;
  if TSeSkinEngine(Msg.LParam) <> FSkinEngine then Exit;

  if FSkinBox <> nil then FSkinBox.Free;
  FSkinBox := nil;
end;

procedure TSeSkinSTreeView.WMInvalidateSkinObject(var Msg: TMessage);
begin
  Invalidate;
end;

procedure TSeSkinSTreeView.WMSkinChange(var Msg: TMessage);
begin
  if Pointer(Msg.LParam) = nil then Exit;
  if TSeSkinEngine(Msg.LParam) <> FSkinEngine then Exit;

  SkinEngine := FSkinEngine;
end;

{ Properties }

function TSeSkinSTreeView.GetVersion: TSeSkinVersion;
begin
  Result := sSeSkinVersion;
end;

procedure TSeSkinSTreeView.SetSkinEngine(const Value: TSeSkinEngine);
begin
  FSkinEngine := Value;

  if (FSkinEngine <> nil) and (FSkinEngine.SkinSource <> nil) and
     (not FSkinEngine.SkinSource.IsChanging) and
     (FSkinEngine.SkinSource.Count > 0) then
  begin
    if FSkinBox <> nil then FSkinBox.Free;
    FSkinBox := nil;

    if FSkinEngine.SkinSource.GetObjectByName(FSkinObject) <> nil then
      FSkinBox := FSkinEngine.SkinSource.GetObjectByName(FSkinObject).CreateCopy(nil);

    if FSkinBox <> nil then
    begin
      FSkinBox.ParentControl := Self;
      Color := FSkinBox.Color;
    end;
  end
  else
  begin
    if FSkinBox <> nil then FSkinBox.Free;
    FSkinBox := nil;
  end;

  if SubScrollBars <> nil then
  begin
    TSeSkinScrollBar(SubScrollBars.HScrollBar.ScrollBar).SkinEngine := Value;
    TSeSkinScrollBar(SubScrollBars.VScrollBar.ScrollBar).SkinEngine := Value;
  end;

  Invalidate;
end;

procedure TSeSkinSTreeView.SetVersion(const Value: TSeSkinVersion);
begin

end;

procedure TSeSkinSTreeView.SetSkinObject(const Value: string);
begin
  FSkinObject := Value;
end;


{ TSeSkinSListView ===============================================================}


constructor TSeSkinSListView.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  SkinObject := 'ListBox';
end;

destructor TSeSkinSListView.Destroy;
begin
  if FSkinBox <> nil then FSkinBox.Free;
  inherited Destroy;
end;

function TSeSkinSListView.UseSkin: boolean;
begin
  if (csDestroying in ComponentState) {or (csLoading in ComponentState)} then
    Result := false
  else
    if (FSkinEngine <> nil) and (FSkinEngine.SkinSource <> nil) and
       (not FSkinEngine.SkinSource.IsChanging) and
       (FSkinEngine.SkinSource.Count > 0) and
       (FSkinEngine.SkinSource.GetObjectByName(FSkinObject) <> nil) and
       (FSkinBox <> nil)
    then
      Result := true
    else
      Result := false;
end;

procedure TSeSkinSListView.CreateScrollBar(var AScrollBar: TSeCustomScrollBar; AOwner: TComponent);
begin
  AScrollBar := TSeSkinScrollBar.Create(AOwner);
end;

procedure TSeSkinSListView.PaintBorder(Canvas: TCanvas; ARect: TRect);
var
  SkinObject: TSeSkinObject;
  DrawState: TSeState;
begin
  if UseSkin then
  begin
    if not Enabled then
      DrawState := ssDisabled
    else
      DrawState := ssNormal;

    SkinObject := FSkinBox.FindObjectByName('Frame');
    if SkinObject = nil then
      SkinObject := FSkinBox;

    if SkinObject <> nil then
    begin
      SkinObject.State := DrawState;
      SkinObject.BoundsRect := ARect;
      SkinObject.Draw(Canvas);
    end;
  end
  else
    inherited ;  
end;

procedure TSeSkinSListView.PaintBuffer(Canvas: TCanvas; ARect: TRect);
begin
  inherited ;
end;

procedure TSeSkinSListView.WMBeforeChange(var Msg: TMessage);
begin
  if Pointer(Msg.LParam) = nil then Exit;
  if TSeSkinEngine(Msg.LParam) <> FSkinEngine then Exit;

  if FSkinBox <> nil then FSkinBox.Free;
  FSkinBox := nil;
end;

procedure TSeSkinSListView.WMInvalidateSkinObject(var Msg: TMessage);
begin
  Invalidate;
end;

procedure TSeSkinSListView.WMSkinChange(var Msg: TMessage);
begin
  if Pointer(Msg.LParam) = nil then Exit;
  if TSeSkinEngine(Msg.LParam) <> FSkinEngine then Exit;

  SkinEngine := FSkinEngine;
end;

{ Properties }

function TSeSkinSListView.GetVersion: TSeSkinVersion;
begin
  Result := sSeSkinVersion;
end;

procedure TSeSkinSListView.SetSkinEngine(const Value: TSeSkinEngine);
begin
  FSkinEngine := Value;

  if (FSkinEngine <> nil) and (FSkinEngine.SkinSource <> nil) and
     (not FSkinEngine.SkinSource.IsChanging) and
     (FSkinEngine.SkinSource.Count > 0) then
  begin
    if FSkinBox <> nil then FSkinBox.Free;
    FSkinBox := nil;

    if FSkinEngine.SkinSource.GetObjectByName(FSkinObject) <> nil then
      FSkinBox := FSkinEngine.SkinSource.GetObjectByName(FSkinObject).CreateCopy(nil);

    if FSkinBox <> nil then
    begin
      FSkinBox.ParentControl := Self;
      Color := FSkinBox.Color;
    end;
  end
  else
  begin
    if FSkinBox <> nil then FSkinBox.Free;
    FSkinBox := nil;
  end;

  if SubScrollBars <> nil then
  begin
    TSeSkinScrollBar(SubScrollBars.HScrollBar.ScrollBar).SkinEngine := Value;
    TSeSkinScrollBar(SubScrollBars.VScrollBar.ScrollBar).SkinEngine := Value;
  end;

  Invalidate;
end;

procedure TSeSkinSListView.SetVersion(const Value: TSeSkinVersion);
begin

end;

procedure TSeSkinSListView.SetSkinObject(const Value: string);
begin
  FSkinObject := Value;
end;


end.