mORMot and Open Source friends
Check-in [dd525a9d49]
Check-in [dd525a9d49]
Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
| Comment: | small UI changes |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
dd525a9d499db24f4475b8cf312b57ee |
| User & Date: | G018869 2011-10-31 10:31:52 |
|
2011-10-31
| ||
| 11:07 | small enhancements to the Preview mode buttons layout check-in: c9e6ce3c85 user: G018869 tags: trunk | |
| 10:31 | small UI changes check-in: dd525a9d49 user: G018869 tags: trunk | |
|
2011-10-29
| ||
| 10:50 | fix compilation issue in several Delphi versions check-in: 50466e4b9e user: ab tags: trunk | |
Changes to SynTaskDialog.pas.
714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 |
Form.ClientWidth := aWidth;
Form.Height := 200;
Form.Caption := Title;
// create a white panel for the main dialog part
Panel := TPanel.Create(Form);
Panel.Parent := Form;
Panel.Align := alTop;
{$ifdef WITHUXTHEME}
Panel.ParentBackground := false; // clWhite not used otherwise
{$endif}
Panel.Color := clWhite;
Panel.BorderStyle := bsNone;
if aEmulateClassicStyle then
Panel.BevelOuter := bvNone else
Panel.Color := clWhite;
{$ifdef HASINLINE}
Panel.BevelKind := bkFlat;
Panel.BevelEdges := [beBottom];
{$endif}
Par := Panel;
// handle main dialog icon
if aEmulateClassicStyle then
IconBorder := 10 else
IconBorder := 24;
if WIN_ICONS[aDialogIcon]<>nil then begin
Image := TImage.Create(Form);
|
< < < < < | < > | < | > | > > > > > |
714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 |
Form.ClientWidth := aWidth;
Form.Height := 200;
Form.Caption := Title;
// create a white panel for the main dialog part
Panel := TPanel.Create(Form);
Panel.Parent := Form;
Panel.Align := alTop;
Panel.BorderStyle := bsNone;
Panel.BevelOuter := bvNone;
if not aEmulateClassicStyle then begin
{$ifdef HASINLINE}
Panel.BevelEdges := [beBottom];
Panel.BevelKind := bkFlat;
{$endif}
Panel.Color := clWhite;
{$ifdef WITHUXTHEME}
Panel.ParentBackground := false; // clWhite not used otherwise
{$endif}
end;
Par := Panel;
// handle main dialog icon
if aEmulateClassicStyle then
IconBorder := 10 else
IconBorder := 24;
if WIN_ICONS[aDialogIcon]<>nil then begin
Image := TImage.Create(Form);
|