Skip to content

Commit

Permalink
minior bug fix
Browse files Browse the repository at this point in the history
  • Loading branch information
KngStr committed May 24, 2020
1 parent 5892689 commit dbed04d
Show file tree
Hide file tree
Showing 3 changed files with 4 additions and 5 deletions.
4 changes: 2 additions & 2 deletions README.zh-CN.md
Original file line number Diff line number Diff line change
Expand Up @@ -11,7 +11,7 @@ FMXUI
- **友好** 整合FMX设计特点和安卓设计优点
- **强大** 支持大量常见UI用法
- **易用** 简单易用,快速上手
- **免费** 遵守MID开源许可协议,可任意使用
- **免费** 遵守MIT开源许可协议,可任意使用

## 依赖
Delphi 10 +
Expand Down Expand Up @@ -80,6 +80,6 @@ FMXUI
QDAC 官方群: 250530692

## 版权声明
本源码库遵守MID开源许可协议
本源码库遵守MIT开源许可协议

版权所有 (C) 2016 YangYxd
2 changes: 0 additions & 2 deletions source/UI.Calendar.pas
Original file line number Diff line number Diff line change
Expand Up @@ -551,7 +551,6 @@ TCalendarViewBase = class(TView)
/// </summary>
property Language: ICalendarLanguage read GetLanguage write SetLanguage;


/// <summary>
/// 禁止选择的日期于星期几
/// </summary>
Expand All @@ -561,7 +560,6 @@ TCalendarViewBase = class(TView)
/// </summary>
property DaysOfWeekHighlighted: TCalendarWeeks read FDaysOfWeekHighlighted write SetDaysOfWeekHighlighted default [];


/// <summary>
/// 行间距
/// </summary>
Expand Down
3 changes: 2 additions & 1 deletion source/UI.Design.SVGImage.pas
Original file line number Diff line number Diff line change
Expand Up @@ -229,9 +229,10 @@ procedure TFrmDesignSVGImage.View1Resize(Sender: TObject);
edtHeight.Text := IntToStr(Round(View1.Height));
FChangeing := False;
end;

procedure TFrmDesignSVGImage.ViewImage;
begin
if not (Bmp = nil) and not (Bmp.Empty) then
if Assigned(Bmp) and not Bmp.Empty then
begin
View1.Width := Bmp.Width;
View1.Height := Bmp.Height;
Expand Down

0 comments on commit dbed04d

Please sign in to comment.