paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 13:57:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

removed some hints

Browse Source 
git-svn-id: trunk@4744 -
This commit is contained in:
mattias 2003-10-30 21:26:23 +00:00
parent 83528f4e25
commit 3564a2e914
6 changed files with 22 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/codetoolsdefines.pas
View File

@ -237,9 +237,6 @@ function ShowCodeToolsDefinesEditor(ACodeToolBoss: TCodeToolManager;
implementation
uses
Math;
type
TWinControlClass = class of TWinControl;

4
lcl/forms.pp
View File

@ -1083,14 +1083,14 @@ begin
FocusCount := Integer(FocusState);
end;
function SendFocusMessage(Window: HWnd; Msg: Word): Boolean;
{function SendFocusMessage(Window: HWnd; Msg: Word): Boolean;
var
Count: Integer;
begin
Count := FocusCount;
SendMessage(Window, Msg, 0, 0);
Result := (FocusCount = Count);
end;
end;}
//------------------------------------------------------------------------------
function KeysToShiftState(Keys:Word): TShiftState;

9
lcl/graphics.pp
View File

@ -1014,7 +1014,7 @@ procedure GetColorValues(Proc: TGetColorStringProc);
Function Blue(rgb: TColor) : BYTE;
Function Green(rgb: TColor) : BYTE;
Function Red(rgb: TColor) : BYTE;
procedure RedGreenBlue(rgb: TColor; Red, Green, Blue: Byte);
procedure RedGreenBlue(rgb: TColor; var Red, Green, Blue: Byte);
// fonts
procedure GetCharsetValues(Proc: TGetStrProc);
@ -1085,7 +1085,7 @@ const
implementation
uses
TypInfo, LCLIntf;
LCLIntf;
function SendIntfMessage(LM_Message : integer; Sender : TObject;
Data : pointer) : integer;
@ -1214,7 +1214,7 @@ begin
Result := rgb and $000000ff;
end;
procedure RedGreenBlue(rgb: TColor; Red, Green, Blue: Byte);
procedure RedGreenBlue(rgb: TColor; var Red, Green, Blue: Byte);
begin
Red := rgb and $000000ff;
Green := (rgb shr 8) and $000000ff;
@ -1259,6 +1259,9 @@ end.
{ =============================================================================
$Log$
Revision 1.95 2003/10/30 21:26:23 mattias
removed some hints
Revision 1.94 2003/10/26 17:34:41 micha
new interface method to attach a menu to window

4
lcl/include/customimage.inc
View File

@ -116,10 +116,10 @@ begin
and ((PicWidth > ImgWidth) or (PicHeight > ImgHeight))) then begin
if Proportional and (PicWidth > 0) and (PicHeight > 0) then begin
w:=ImgWidth;
h:=round(PicHeight*(w/PicWidth));
h:=(PicHeight*w) div PicWidth;
if h>ImgHeight then begin
h:=ImgHeight;
w:=round(PicWidth*(h/PicHeight));
w:=(PicWidth*h) div PicHeight;
end;
PicWidth:=w;
PicHeight:=h;

11
lcl/interfaces/gtk/gtkproc.inc
View File

@ -82,7 +82,7 @@ begin
{$EndIF}
end;
{$Ifdef GTK1}
{$IfNdef GTK2}
function gtk_class_get_type(aclass : Pointer) : TGtkType;
begin
If (aclass <> nil) then
@ -170,9 +170,9 @@ var
begin
GetMem(SelectionColor,4*SizeOf(GDouble));
try
SelectionColor[0]:=Color^.Red/65535;
SelectionColor[1]:=Color^.Green/65535;
SelectionColor[2]:=Color^.Blue/65535;
SelectionColor[0]:=gdouble(Color^.Red)/65535;
SelectionColor[1]:=gdouble(Color^.Green)/65535;
SelectionColor[2]:=gdouble(Color^.Blue)/65535;
SelectionColor[3]:=0.0;
gtk_color_selection_set_color(colorSel,SelectionColor);
finally
@ -5518,6 +5518,9 @@ end;
{ =============================================================================
$Log$
Revision 1.223 2003/10/30 21:26:23 mattias
removed some hints
Revision 1.222 2003/10/24 21:28:16 marc
Added cleanup code for keyboard tables

7
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -8136,8 +8136,8 @@ end;
------------------------------------------------------------------------------}
function TgtkObject.StretchBlt(DestDC: HDC; X, Y, Width, Height: Integer;
SrcDC: HDC; XSrc, YSrc, SrcWidth, SrcHeight: Integer; Rop: Cardinal): Boolean;
type
TBltFunction = function: Boolean;
//type
// TBltFunction = function: Boolean;
var
fGC : PGDKGC;
SrcDevContext, DestDevContext: TDeviceContext;
@ -9004,6 +9004,9 @@ end;
{ =============================================================================
$Log$
Revision 1.294 2003/10/30 21:26:23 mattias
removed some hints
Revision 1.293 2003/10/22 17:50:16 mattias
updated rpm scripts