paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 20:00:47 +02: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);
var Request,R : Pipp_t; //IPP Request
Language : Pcups_lang_t; //Default Language
aState : ipp_pstate_t; //Printer state
URI : Array[0..HTTP_MAX_URI] of Char; //Printer URI
//aState : ipp_pstate_t; //Printer state
URI : Array[0..HTTP_MAX_URI] of Char; //Printer URI
begin
if not CUPSLibInstalled then Exit;
if (Printers.Count>0) then
@ -191,10 +191,10 @@ end;
function TCUPSPrinter.GetCupsRequest : Pipp_t;
var Request : Pipp_t; //IPP Request
Attribute : Pipp_attribute_t; //Current attribute
//Attribute : Pipp_attribute_t; //Current attribute
Language : Pcups_lang_t; //Default Language
aState : ipp_pstate_t; //Printer state
URI : Array[0..HTTP_MAX_URI] of Char; //Printer URI
//aState : ipp_pstate_t; //Printer state
URI : Array[0..HTTP_MAX_URI] of Char; //Printer URI
begin
Result:=Nil;
if not CUPSLibInstalled then Exit;
@ -265,7 +265,7 @@ function TCUPSPrinter.EnumPPDChoice(Lst : TStrings; aKeyWord : string) : Integer
var i : integer;
Option : Pppd_option_t;
Choice : Pppd_choice_t;
Choices : PPppd_choice_t;
//Choices : PPppd_choice_t;
begin
Result:=-1;
if not CUPSLibInstalled then Exit;
@ -642,12 +642,12 @@ end;
function TCUPSPrinter.DoGetPrinterState: TPrinterState;
var Request : Pipp_t; //IPP Request
Reponse : Pipp_t; //IPP Reponse
Attribute : Pipp_attribute_t; //Current attribute
Language : Pcups_lang_t; //Default Language
var //Request : Pipp_t; //IPP Request
//Reponse : Pipp_t; //IPP Reponse
//Attribute : Pipp_attribute_t; //Current attribute
//Language : Pcups_lang_t; //Default Language
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
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!
Ce code source est utilisé seulement pour compiler et installer
le paquet Printer4Lazarus 0.0.0.1.
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install
the package Printer4Lazarus 0.0.0.1.
}
unit Printer4Lazarus;

2
lcl/grids.pas
View File

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

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

@ -190,7 +190,7 @@ begin
if not AForm.HandleAllocated then exit;
FormWidget:=PGtkWidget(AForm.Handle);
FormWindow:=PGdkWindowPrivate(FormWidget^.window);
if FormWindow<>nil then exit;
if FormWindow=nil then exit;
XWindow := GDK_WINDOW_XWINDOW (FormWindow);
XDisplay := GDK_WINDOW_XDISPLAY (FormWindow);
if (XDisplay<>nil) and (XWindow>0) then
@ -9002,6 +9002,9 @@ end;
{ =============================================================================
$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
added some checks to avoid crashes