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

published TStringGrid.OnResize/OnChangeBounds and fixed gtk1 intf check in focussing

Browse Source 
git-svn-id: trunk@6968 -
This commit is contained in:
mattias 2005-03-16 17:45:28 +00:00
parent bd0040e16f
commit 5019fad7e9
4 changed files with 20 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/printers/linux/cupsprinters.inc
View File

@ -151,8 +151,8 @@ end;
procedure TCUPSPrinter.SetJobState(aJobId : LongInt; aOp : ipp_op_t); procedure TCUPSPrinter.SetJobState(aJobId : LongInt; aOp : ipp_op_t);
var Request,R : Pipp_t; //IPP Request var Request,R : Pipp_t; //IPP Request
Language : Pcups_lang_t; //Default Language Language : Pcups_lang_t; //Default Language
aState : ipp_pstate_t; //Printer state //aState : ipp_pstate_t; //Printer state
URI : Array[0..HTTP_MAX_URI] of Char; //Printer URI URI : Array[0..HTTP_MAX_URI] of Char; //Printer URI
begin begin
if not CUPSLibInstalled then Exit; if not CUPSLibInstalled then Exit;
if (Printers.Count>0) then if (Printers.Count>0) then
@ -191,10 +191,10 @@ end;
function TCUPSPrinter.GetCupsRequest : Pipp_t; function TCUPSPrinter.GetCupsRequest : Pipp_t;
var Request : Pipp_t; //IPP Request var Request : Pipp_t; //IPP Request
Attribute : Pipp_attribute_t; //Current attribute //Attribute : Pipp_attribute_t; //Current attribute
Language : Pcups_lang_t; //Default Language Language : Pcups_lang_t; //Default Language
aState : ipp_pstate_t; //Printer state //aState : ipp_pstate_t; //Printer state
URI : Array[0..HTTP_MAX_URI] of Char; //Printer URI URI : Array[0..HTTP_MAX_URI] of Char; //Printer URI
begin begin
Result:=Nil; Result:=Nil;
if not CUPSLibInstalled then Exit; if not CUPSLibInstalled then Exit;
@ -265,7 +265,7 @@ function TCUPSPrinter.EnumPPDChoice(Lst : TStrings; aKeyWord : string) : Integer
var i : integer; var i : integer;
Option : Pppd_option_t; Option : Pppd_option_t;
Choice : Pppd_choice_t; Choice : Pppd_choice_t;
Choices : PPppd_choice_t; //Choices : PPppd_choice_t;
begin begin
Result:=-1; Result:=-1;
if not CUPSLibInstalled then Exit; if not CUPSLibInstalled then Exit;
@ -642,12 +642,12 @@ end;
function TCUPSPrinter.DoGetPrinterState: TPrinterState; function TCUPSPrinter.DoGetPrinterState: TPrinterState;
var Request : Pipp_t; //IPP Request var //Request : Pipp_t; //IPP Request
Reponse : Pipp_t; //IPP Reponse //Reponse : Pipp_t; //IPP Reponse
Attribute : Pipp_attribute_t; //Current attribute //Attribute : Pipp_attribute_t; //Current attribute
Language : Pcups_lang_t; //Default Language //Language : Pcups_lang_t; //Default Language
aState : ipp_pstate_t; //Printer state aState : ipp_pstate_t; //Printer state
URI : Array[0..HTTP_MAX_URI] of Char; //Printer URI //URI : Array[0..HTTP_MAX_URI] of Char; //Printer URI
begin begin
Result:=inherited DoGetPrinterState; Result:=inherited DoGetPrinterState;

6
components/printers/printer4lazarus.pas
View File

@ -1,6 +1,6 @@
{ Ce fichier est automatiquement créé par Lazarus. Ne pas le modifier! { This file was automatically created by Lazarus. Do not edit!
Ce code source est utilisé seulement pour compiler et installer This source is only used to compile and install
le paquet Printer4Lazarus 0.0.0.1. the package Printer4Lazarus 0.0.0.1.
} }
unit Printer4Lazarus; unit Printer4Lazarus;

2
lcl/grids.pas
View File

@ -1135,6 +1135,7 @@ type
property OnBeforeSelection; property OnBeforeSelection;
property OnChangeBounds;
property OnClick; property OnClick;
property OnColRowDeleted; property OnColRowDeleted;
property OnColRowExchanged; property OnColRowExchanged;
@ -1158,6 +1159,7 @@ type
property OnMouseWheelDown; property OnMouseWheelDown;
property OnMouseWheelUp; property OnMouseWheelUp;
property OnPrepareCanvas; property OnPrepareCanvas;
property OnResize;
property OnSelectEditor; property OnSelectEditor;
property OnSelection; property OnSelection;
property OnSelectCell; property OnSelectCell;

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

@ -190,7 +190,7 @@ begin
if not AForm.HandleAllocated then exit; if not AForm.HandleAllocated then exit;
FormWidget:=PGtkWidget(AForm.Handle); FormWidget:=PGtkWidget(AForm.Handle);
FormWindow:=PGdkWindowPrivate(FormWidget^.window); FormWindow:=PGdkWindowPrivate(FormWidget^.window);
if FormWindow<>nil then exit; if FormWindow=nil then exit;
XWindow := GDK_WINDOW_XWINDOW (FormWindow); XWindow := GDK_WINDOW_XWINDOW (FormWindow);
XDisplay := GDK_WINDOW_XDISPLAY (FormWindow); XDisplay := GDK_WINDOW_XDISPLAY (FormWindow);
if (XDisplay<>nil) and (XWindow>0) then if (XDisplay<>nil) and (XWindow>0) then
@ -9002,6 +9002,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.411 2005/03/16 17:45:28 mattias
published TStringGrid.OnResize/OnChangeBounds and fixed gtk1 intf check in focussing
Revision 1.410 2005/03/16 12:30:15 mattias Revision 1.410 2005/03/16 12:30:15 mattias
added some checks to avoid crashes added some checks to avoid crashes