- Timestamp:
- Apr 11, 2018, 11:32:10 AM (7 years ago)
- Location:
- Common
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
Common/UApplicationInfo.pas
r510 r511 6 6 7 7 uses 8 SysUtils, Classes, Forms, URegistry ;8 SysUtils, Classes, Forms, URegistry, Controls; 9 9 10 10 type … … 14 14 TApplicationInfo = class(TComponent) 15 15 private 16 FDescription: string;16 FDescription: TCaption; 17 17 FIdentification: Byte; 18 18 FLicense: string; … … 57 57 58 58 implementation 59 59 60 60 procedure Register; 61 61 begin -
Common/UListViewSort.pas
r510 r511 142 142 var 143 143 I: Integer; 144 R: TRect; 144 145 begin 145 146 with FStringGrid1 do begin 146 Options := Options - [goEditing, goAlwaysShowEditor];147 //Columns.Clear;148 147 while Columns.Count > ListView.Columns.Count do Columns.Delete(Columns.Count - 1); 149 148 while Columns.Count < ListView.Columns.Count do Columns.Add; 150 149 for I := 0 to ListView.Columns.Count - 1 do begin 151 150 Columns[I].Width := ListView.Columns[I].Width; 151 if Selection.Left = I then begin 152 R := CellRect(I, 0); 153 Editor.Left := R.Left + 2; 154 Editor.Width := R.Width - 4; 155 end; 152 156 end; 153 Options := Options + [goEditing, goAlwaysShowEditor];154 157 end; 155 158 end; … … 381 384 ItemLeft := Item.Left; 382 385 ItemLeft := 23; // Windows 7 workaround 383 386 384 387 Rect1.Left := ItemLeft - CheckWidth - BiasLeft + 1 + XBias; 385 388 //ShowMessage(IntToStr(Tp1.Y) + ', ' + IntToStr(BiasTop) + ', ' + IntToStr(XBias)); -
Common/UScaleDPI.pas
r510 r511 215 215 I: Integer; 216 216 begin 217 ImgList.BeginUpdate; 217 218 NewWidth := ScaleX(ImgList.Width, FromDPI.X); 218 219 NewHeight := ScaleY(ImgList.Height, FromDPI.Y); … … 248 249 Temp[i].Free; 249 250 end; 251 ImgList.EndUpdate; 250 252 end; 251 253 … … 316 318 MinWidth := ScaleX(MinWidth, FromDPI.X); 317 319 MinHeight := ScaleY(MinHeight, FromDPI.Y); 318 Width := ScaleX(Width, FromDPI.X); 320 // Workaround to bad band width auto sizing 321 //Width := ScaleX(Width, FromDPI.X); 322 Width := ScaleX(Control.Width + 28, FromDPI.X); 319 323 //Control.Invalidate; 320 324 end; 325 // Workaround for bad autosizing of coolbar 326 if AutoSize then begin 327 AutoSize := False; 328 Height := ScaleY(Height, FromDPI.Y); 329 AutoSize := True; 330 end; 321 331 EndUpdate; 322 332 end;
Note:
See TracChangeset
for help on using the changeset viewer.