paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-25 06:50:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: minor formatting

Browse Source 
git-svn-id: trunk@26767 -
This commit is contained in:
paul 2010-07-22 02:07:50 +00:00
parent e908d5dfe6
commit b17733e749
2 changed files with 53 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
lcl/include/intfbaselcl.inc
View File

@ -335,13 +335,13 @@ begin
Result:=false;
end;
function TWidgetSet.Frame(DC: HDC; const ARect: TRect) : integer;
function TWidgetSet.Frame(DC: HDC; const ARect: TRect): integer;
begin
Result:= 0;
end;
function TWidgetSet.Frame3d(DC: HDC; var ARect: TRect;
const FrameWidth: integer; const Style: TGraphicsBevelCut) : boolean;
const FrameWidth: integer; const Style: TGraphicsBevelCut): boolean;
begin
Result:= false;
end;
@ -414,7 +414,7 @@ function TWidgetSet.GetAcceleratorString(const AVKey: Byte;
VK_SUBTRACT :AddPart('-');
VK_DECIMAL :AddPart('.');
VK_DIVIDE :AddPart('/');
VK_F1..VK_F24 : AddPart('F'+IntToStr(AVKey-VK_F1+1));
VK_F1..VK_F24: AddPart('F'+IntToStr(AVKey-VK_F1+1));
VK_NUMLOCK :AddPart(ifsVK_NUMLOCK);
VK_SCROLL :AddPart(ifsVK_SCROLL);
// VK_EQUAL :AddPart('=');
@ -442,7 +442,7 @@ begin
Result := False;
end;
function TWidgetSet.GetClientBounds(Handle : HWND; var ARect: TRect) : Boolean;
function TWidgetSet.GetClientBounds(Handle: HWND; var ARect: TRect): Boolean;
begin
Result := false;
end;
@ -497,7 +497,7 @@ begin
Result := false;
end;
function TWidgetSet.GetWindowRelativePosition(Handle : hwnd;
function TWidgetSet.GetWindowRelativePosition(Handle: hwnd;
var Left, Top: integer): boolean;
{ returns the position of the left, top coordinate relative to the clientorigin
of its parent. This is normally the Left, Top of a TWinControl. But not
@ -522,7 +522,7 @@ begin
Result := true;
end;
function TWidgetSet.GetWindowSize(Handle : hwnd;
function TWidgetSet.GetWindowSize(Handle: hwnd;
var Width, Height: integer): boolean;
// Returns the current Width and Height
begin
@ -534,8 +534,8 @@ begin
Result:=false;
end;
function TWidgetSet.InvalidateFrame(aHandle : HWND; ARect : pRect;
bErase : Boolean; BorderWidth: integer) : Boolean;
function TWidgetSet.InvalidateFrame(aHandle: HWND; ARect: pRect;
bErase: Boolean; BorderWidth: integer): Boolean;
function Min(i1, i2: integer): integer;
begin
@ -575,7 +575,7 @@ begin
Result := False;
end;
function TWidgetSet.MoveWindowOrgEx(dc : hdc; dX,dY : Integer): boolean;
function TWidgetSet.MoveWindowOrgEx(dc: hdc; dX,dY: Integer): boolean;
var
P: TPoint;
lResult: Integer;
@ -593,9 +593,9 @@ Begin
{$endif}
end;
function TWidgetSet.PromptUser(const DialogCaption, DialogMessage : String;
DialogType : longint; Buttons : PLongint;
ButtonCount, DefaultIndex, EscapeResult : Longint) : Longint;
function TWidgetSet.PromptUser(const DialogCaption, DialogMessage: String;
DialogType: longint; Buttons: PLongint;
ButtonCount, DefaultIndex, EscapeResult: Longint): Longint;
begin
if PromptDialogFunction <> nil then
Result := PromptDialogFunction(DialogCaption, DialogMessage, DialogType,
@ -605,10 +605,10 @@ begin
end;
function TWidgetSet.PromptUserAtXY(const DialogCaption,
DialogMessage : String;
DialogType : longint; Buttons : PLongint;
ButtonCount, DefaultIndex, EscapeResult : Longint;
X, Y : Longint) : Longint;
DialogMessage: String;
DialogType: longint; Buttons: PLongint;
ButtonCount, DefaultIndex, EscapeResult: Longint;
X, Y: Longint): Longint;
begin
if PromptDialogFunction<>nil then
Result:=PromptDialogFunction(DialogCaption, DialogMessage, DialogType,
@ -620,7 +620,7 @@ end;
function TWidgetSet.RadialArc(DC: HDC;
left, top, right, bottom, sx, sy, ex, ey: Integer): Boolean;
var
A1, A2 : Extended;
A1, A2: Extended;
begin
Coords2Angles(left, top, right-left, bottom-top, sx, sy, ex, ey, A1, A2);
Result := Arc(DC, left, top, right, bottom, RoundToInt(A1), RoundToInt(A2));
@ -629,7 +629,7 @@ end;
function TWidgetSet.RadialChord(DC: HDC;
x1, y1, x2, y2, sx, sy, ex, ey: Integer): Boolean;
var
A1, A2 : Extended;
A1, A2: Extended;
Begin
Coords2Angles(x1, y1, x2-x1, y2-y1, sx, sy, ex, ey, A1, A2);
Result := AngleChord(DC, x1, y1, x2, y2, RoundToInt(A1), RoundToInt(A2));
@ -638,8 +638,8 @@ End;
function TWidgetSet.RadialPie(DC: HDC; x1, y1, x2, y2,
Angle1, Angle2: Integer): Boolean;
var
Points : PPoint;
Count : Longint;
Points: PPoint;
Count: Longint;
begin
Result := False;
Points := nil;
@ -654,7 +654,7 @@ begin
Result := True;
end;
function TWidgetSet.RegroupMenuItem(hndMenu: HMENU; GroupIndex: Integer) : Boolean;
function TWidgetSet.RegroupMenuItem(hndMenu: HMENU; GroupIndex: Integer): Boolean;
begin
Result := false;
end;
@ -676,8 +676,8 @@ begin
Result := ReleaseDC(hWnd, DC);
end;
function TWidgetSet.RequestInput(const InputCaption, InputPrompt : String;
MaskInput : Boolean; var Value : String) : Boolean;
function TWidgetSet.RequestInput(const InputCaption, InputPrompt: String;
MaskInput: Boolean; var Value: String): Boolean;
begin
if InputDialogFunction<>nil then
Result := InputDialogFunction(InputCaption, InputPrompt, MaskInput, Value)

60
lcl/include/lclintf.inc
View File

@ -200,8 +200,8 @@ begin
Result := WidgetSet.Frame(DC, ARect);
end;
function Frame3d(DC : HDC; var ARect : TRect; const FrameWidth : integer;
const Style: TGraphicsBevelCut) : boolean;
function Frame3d(DC: HDC; var ARect: TRect; const FrameWidth: integer;
const Style: TGraphicsBevelCut): boolean;
begin
Result := WidgetSet.Frame3d(DC, ARect, FrameWidth, Style);
end;
@ -298,7 +298,7 @@ end;
Returns the Left, Top, relative to the client origin of its parent.
------------------------------------------------------------------------------}
function GetWindowRelativePosition(Handle : hwnd;
function GetWindowRelativePosition(Handle: hwnd;
var Left, Top: integer): boolean;
begin
Result := WidgetSet.GetWindowRelativePosition(Handle,Left,Top);
@ -315,12 +315,12 @@ begin
end;
{------------------------------------------------------------------------------
function InvalidateFrame(aHandle : HWND; ARect : pRect; bErase : Boolean;
BorderWidth: integer) : Boolean;
function InvalidateFrame(aHandle: HWND; ARect: pRect; bErase: Boolean;
BorderWidth: integer): Boolean;
Calls InvalidateRect for the borderframe.
------------------------------------------------------------------------------}
function InvalidateFrame(aHandle : HWND; ARect : pRect; bErase : Boolean; BorderWidth: integer) : Boolean;
function InvalidateFrame(aHandle: HWND; ARect: pRect; bErase: Boolean; BorderWidth: integer): Boolean;
begin
Result := WidgetSet.InvalidateFrame(aHandle,ARect,bErase,BorderWidth);
end;
@ -330,31 +330,31 @@ begin
Result := WidgetSet.IsDesignerDC(WindowHandle, DC);
end;
function MoveWindowOrgEx(dc : hdc; dX,dY : Integer): boolean;
function MoveWindowOrgEx(dc: hdc; dX,dY: Integer): boolean;
begin
Result := WidgetSet.MoveWindowOrgEx(DC, dX, dY);
end;
function PromptUser(const DialogMessage : String; DialogType : longint; Buttons : PLongint;
ButtonCount, DefaultIndex, EscapeResult : Longint) : Longint;
function PromptUser(const DialogMessage: String; DialogType: longint; Buttons: PLongint;
ButtonCount, DefaultIndex, EscapeResult: Longint): Longint;
begin
Result := WidgetSet.PromptUser('', DialogMessage, DialogType, Buttons, ButtonCount, DefaultIndex, EscapeResult);
end;
function PromptUser(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : PLongint;
ButtonCount, DefaultIndex, EscapeResult : Longint) : Longint;
function PromptUser(const DialogCaption, DialogMessage: String; DialogType: longint; Buttons: PLongint;
ButtonCount, DefaultIndex, EscapeResult: Longint): Longint;
begin
Result := WidgetSet.PromptUser(DialogCaption, DialogMessage, DialogType, Buttons, ButtonCount, DefaultIndex, EscapeResult);
end;
function PromptUserAtXY(const DialogMessage : String; DialogType : longint; Buttons : PLongint;
ButtonCount, DefaultIndex, EscapeResult : Longint; X, Y : Longint) : Longint;
function PromptUserAtXY(const DialogMessage: String; DialogType: longint; Buttons: PLongint;
ButtonCount, DefaultIndex, EscapeResult: Longint; X, Y: Longint): Longint;
begin
Result := WidgetSet.PromptUserAtXY('', DialogMessage, DialogType, Buttons, ButtonCount, DefaultIndex, EscapeResult, X, Y);
end;
function PromptUserAtXY(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : PLongint;
ButtonCount, DefaultIndex, EscapeResult : Longint; X, Y : Longint) : Longint;
function PromptUserAtXY(const DialogCaption, DialogMessage: String; DialogType: longint; Buttons: PLongint;
ButtonCount, DefaultIndex, EscapeResult: Longint; X, Y: Longint): Longint;
begin
Result := WidgetSet.PromptUserAtXY(DialogCaption, DialogMessage, DialogType, Buttons, ButtonCount, DefaultIndex, EscapeResult, X, Y);
end;
@ -375,7 +375,7 @@ begin
Result := WidgetSet.RadialPie(DC, x1, y1, x2, y2, Angle1, Angle2);
end;
function RegroupMenuItem(hndMenu: HMENU; GroupIndex: integer) : Boolean;
function RegroupMenuItem(hndMenu: HMENU; GroupIndex: integer): Boolean;
begin
Result := WidgetSet.RegroupMenuItem(hndMenu,GroupIndex);
end;
@ -400,7 +400,7 @@ begin
WidgetSet.RemovePipeEventHandler(AHandler);
end;
function RequestInput(const InputCaption, InputPrompt : String; MaskInput : Boolean; var Value : String) : Boolean;
function RequestInput(const InputCaption, InputPrompt: String; MaskInput: Boolean; var Value: String): Boolean;
begin
Result := WidgetSet.RequestInput(InputCaption, InputPrompt, MaskInput, Value);
end;
@ -463,54 +463,54 @@ end;
ComplexRegion
------------------------------------------------------------------------------}
function ExcludeClipRgn(dc: hdc; rgn : hrgn) : Integer;
function ExcludeClipRgn(dc: hdc; rgn: hrgn): Integer;
begin
Result := ExtSelectClipRGN(DC, RGN, RGN_DIFF);
end;
procedure NotifyUser(const DialogMessage : String; DialogType : longint);
procedure NotifyUser(const DialogMessage: String; DialogType: longint);
begin
PromptUser(DialogMessage, DialogType, [idButtonOK], 0, -1);
end;
procedure NotifyUser(const DialogCaption, DialogMessage : String; DialogType : longint);
procedure NotifyUser(const DialogCaption, DialogMessage: String; DialogType: longint);
begin
PromptUser(DialogCaption, DialogMessage, DialogType, [idButtonOK], 0, -1);
end;
procedure NotifyUserAtXY(const DialogMessage : String; DialogType : longint; X, Y : Longint);
procedure NotifyUserAtXY(const DialogMessage: String; DialogType: longint; X, Y: Longint);
begin
PromptUserAtXY(DialogMessage, DialogType, [idButtonOK], 0, -1, X, Y);
end;
procedure NotifyUserAtXY(const DialogCaption, DialogMessage : String; DialogType : longint; X, Y : Longint);
procedure NotifyUserAtXY(const DialogCaption, DialogMessage: String; DialogType: longint; X, Y: Longint);
begin
PromptUserAtXY(DialogCaption, DialogMessage, DialogType, [idButtonOK], 0, -1, X, Y);
end;
function PromptUser(const DialogMessage : String; DialogType : longint; Buttons : Array of Longint;
DefaultIndex, EscapeResult : Longint) : Longint;
function PromptUser(const DialogMessage: String; DialogType: longint; Buttons: Array of Longint;
DefaultIndex, EscapeResult: Longint): Longint;
begin
Result := PromptUser(DialogMessage, DialogType, @Buttons[Low(Buttons)],
High(Buttons) - Low(Buttons) + 1, DefaultIndex, EscapeResult);
end;
function PromptUser(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : Array of Longint;
DefaultIndex, EscapeResult : Longint) : Longint;
function PromptUser(const DialogCaption, DialogMessage: String; DialogType: longint; Buttons: Array of Longint;
DefaultIndex, EscapeResult: Longint): Longint;
begin
Result := PromptUser(DialogCaption, DialogMessage, DialogType, @Buttons[Low(Buttons)],
High(Buttons) - Low(Buttons) + 1, DefaultIndex, EscapeResult);
end;
function PromptUserAtXY(const DialogMessage : String; DialogType : longint; Buttons : Array of Longint;
DefaultIndex, EscapeResult : Longint; X, Y : Longint) : Longint;
function PromptUserAtXY(const DialogMessage: String; DialogType: longint; Buttons: Array of Longint;
DefaultIndex, EscapeResult: Longint; X, Y: Longint): Longint;
begin
Result := PromptUserAtXY(DialogMessage, DialogType, @Buttons[Low(Buttons)],
High(Buttons) - Low(Buttons) + 1, DefaultIndex, EscapeResult, X, Y);
end;
function PromptUserAtXY(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : Array of Longint;
DefaultIndex, EscapeResult : Longint; X, Y : Longint) : Longint;
function PromptUserAtXY(const DialogCaption, DialogMessage: String; DialogType: longint; Buttons: Array of Longint;
DefaultIndex, EscapeResult: Longint; X, Y: Longint): Longint;
begin
Result := PromptUserAtXY(DialogCaption, DialogMessage, DialogType, @Buttons[Low(Buttons)],
High(Buttons) - Low(Buttons) + 1, DefaultIndex, EscapeResult, X, Y);