pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Less hints and warnings, some cleanup

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6476 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-06-09 09:22:33 +00:00
parent 820288c8ec
commit 64d3c247b1
10 changed files with 54 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
components/tvplanit/source/vpcontactgrid.pas
View File

@ -165,7 +165,7 @@ type
procedure SetContactIndex(Value: Integer);
procedure SetColumnWidth(Value: Integer);
procedure SetDrawingStyle(const Value: TVpDrawingStyle);
procedure SetColor(const Value: TColor);
procedure SetColor(Value: TColor); override;
procedure SetHScrollPos;
procedure SetPrintNumColumns (const v : Integer);
procedure SetSortBy (const v : TVpContactSort);
@ -814,7 +814,7 @@ begin
end;
{=====}
procedure TVpContactGrid.SetColor(const Value: TColor);
procedure TVpContactGrid.SetColor(Value: TColor);
begin
if FColor <> Value then begin
FColor := Value;
@ -1303,7 +1303,7 @@ begin
cgInPlaceEditor.Move(AddressRect, true);
Canvas.DrawFocusRect(Rect(AddressRect.Left + TextMargin - 1,
AddressRect.Top, AddressRect.Right + 3, AddressRect.Bottom + 3));
cgInPlaceEditor.Text := FActiveContact.Address;
cgInPlaceEditor.Text := FActiveContact.Address1;
end;
{ edit company }
if field = 'Company' then begin
@ -1319,8 +1319,8 @@ begin
cgInPlaceEditor.Move(CSZRect, true);
Canvas.DrawFocusRect(Rect(CSZRect.Left + TextMargin - 1,
CSZRect.Top, CSZRect.Right + 3, CSZRect.Bottom + 3));
cgInPlaceEditor.Text := FActiveContact.City + ', ' + FActiveContact.State
+ ' ' + FActiveContact.Zip;
cgInPlaceEditor.Text := FActiveContact.City1 + ', ' + FActiveContact.State1
+ ' ' + FActiveContact.Zip1;
end;
{ edit email }
if field = 'EMail' then begin
@ -1328,7 +1328,7 @@ begin
cgInPlaceEditor.Move(EMailRect, true);
Canvas.DrawFocusRect(Rect(EMailRect.Left - TextMargin,
EMailRect.Top, EMailRect.Right + 3, EMailRect.Bottom + 3));
cgInPlaceEditor.Text := FActiveContact.EMail;
cgInPlaceEditor.Text := FActiveContact.EMail1;
end;
{ edit Phone1 }
if field = 'Phone1' then begin
@ -1387,8 +1387,8 @@ begin
if cgInPlaceEditor <> nil then begin
{Address}
if cgInPlaceEditor.field = 'Address' then begin
if cgInPlaceEditor.Text <> FActiveContact.Address then begin
FActiveContact.Address := cgInPlaceEditor.Text;
if cgInPlaceEditor.Text <> FActiveContact.Address1 then begin
FActiveContact.Address1 := cgInPlaceEditor.Text;
FActiveContact.Changed := true;
end;
end
@ -1401,20 +1401,20 @@ begin
end
{EMail}
else if cgInPlaceEditor.field = 'EMail' then begin
if cgInPlaceEditor.Text <> FActiveContact.EMail then begin
FActiveContact.EMail := cgInPlaceEditor.Text;
if cgInPlaceEditor.Text <> FActiveContact.EMail1 then begin
FActiveContact.EMail1 := cgInPlaceEditor.Text;
FActiveContact.Changed := true;
end;
end
{City, State, Zip}
else if cgInPlaceEditor.field = 'CSZ' then begin
ParseCSZ(cgInPlaceEditor.Text, City, State, Zip);
if (City <> FActiveContact.City)
or (State <> FActiveContact.State)
or (Zip <> FActiveContact.Zip) then begin
FActiveContact.City := City;
FActiveContact.State := State;
FActiveContact.Zip := Zip;
if (City <> FActiveContact.City1)
or (State <> FActiveContact.State1)
or (Zip <> FActiveContact.Zip1) then begin
FActiveContact.City1 := City;
FActiveContact.State1 := State;
FActiveContact.Zip1 := Zip;
FActiveContact.Changed := true;
end;
end

1
components/tvplanit/source/vpcontactgridpainter.pas
View File

@ -708,7 +708,6 @@ begin
end;
end;
procedure TVpContactGridPainter.DrawVerticalBars;
var
BarPos, BarCount, I: Integer;

3
components/tvplanit/source/vpdayviewpainter.pas
View File

@ -1575,8 +1575,7 @@ var
ShowCustom: Boolean;
Icons: TVpDVIcons;
cat: TVpCategoryInfo;
w, h: Integer;
R: TRect;
w: Integer;
isOverlayed: Boolean;
grp: TVpResourceGroup;
imgList: TCustomImageList;

5
components/tvplanit/source/vpevnteditdlg.pas
View File

@ -300,7 +300,7 @@ var
bmp: TBitmap;
ColorRect: TRect;
IconX, IconY: Integer;
hTxt, hGutter, hDist, vMargin, hMargin: Integer;
hTxt, hGutter, hDist, hMargin: Integer;
SavedStyle: TBrushStyle;
imgIndex: Integer;
h: Integer = 0;
@ -312,10 +312,9 @@ var
{$IFEND}
{$ENDIF}
begin
Unused( State);
Unused(Control, State);
hTxt := Category.Canvas.TextHeight('Tj');
vMargin := ScaleY(2, DesignTimeDPI);
hMargin := ScaleX(3, DesignTimeDPI);
hGutter := ScaleX(10, DesignTimeDPI);
hDist := ScaleX(5, DesignTimeDPI);

14
components/tvplanit/source/vpnavbar.pas
View File

@ -309,12 +309,6 @@ type
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double); override;
{$ENDIF}
{$IF VP_LCL_SCALING = 2}
procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double); override;
{$ELSEIF VP_LCL_SCALING = 1}
procedure ScaleFontsPPI(const AProportion: Double); override;
{$ENDIF}
{$ENDIF}
procedure CreateParams(var Params: TCreateParams); override;
procedure CreateWnd; override;
@ -403,6 +397,14 @@ type
procedure RemoveItem(AFolderIndex, AItemIndex: Integer);
procedure RenameItem(AFolderIndex, AItemIndex: Integer);
procedure PlaySound(const AWavFile: String; APlaySoundMode: TVpPlaySoundMode);
{$IF VP_LCL_SCALING = 2}
procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double); override;
{$ELSEIF VP_LCL_SCALING = 1}
procedure ScaleFontsPPI(const AProportion: Double); override;
{$ENDIF}
{$ENDIF}
property ActiveItem: Integer read FActiveItem;
property Containers[Index: Integer]: TVpFolderContainer read GetContainer;
property Folders[Index: Integer]: TVpNavFolder read GetFolder;

2
components/tvplanit/source/vpvcard.pas
View File

@ -165,7 +165,6 @@ end;
function VCardDate(AText: String): TDate;
var
fs: TFormatSettings;
value: String;
y, m, d: Integer;
begin
if AText <> '' then begin
@ -395,7 +394,6 @@ const
var
i: Integer;
item: TVpVCardItem;
s: String;
begin
for i := 0 to FItems.Count-1 do begin
item := TVpVCardItem(FItems[i]);