paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 23:56:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented setting working directory for debugger

Browse Source 
git-svn-id: trunk@2558 -
This commit is contained in:
mattias 2002-08-17 23:41:28 +00:00
parent f8cdc9c704
commit 6afc5ded48
1 changed files with 4 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lcl/interfaces/gtk/gtkobject.inc
View File

@ -4402,26 +4402,9 @@ begin
SetComboBoxText(Widget, PChar(ComboBox.Text)); SetComboBoxText(Widget, PChar(ComboBox.Text));
end; end;
Procedure TgtkObject.FinishComponentCreate(Sender : TObject; Procedure TgtkObject.FinishComponentCreate(Sender : TObject;
Handle : Pointer; SetupProps : Boolean); Handle : Pointer; SetupProps : Boolean);
{$IFDEF CustomFonts}
procedure ModifyWidgetStyle(AWinControl: TWinControl; AWidget: PGtkWidget);
{$IFDEF Win32}
begin
// not supported under win32
end;
{$ELSE not win32}
var
RCStyle: TGtkRcStyle;
begin
writeln('ModifyWidgetStyle A ',AWinControl.Name,':',AWinControl.ClassName,' AWidget=',HexStr(Cardinal(AWidget),8));
FillChar(RCStyle,SizeOf(TGtkRcStyle),0);
//gtk_widget_modify_style(AWidget,@RCStyle);
end;
{$ENDIF not win32}
{$ENDIF CustomFonts}
begin begin
// MWE: next will be obsoleted by WinWidgetInfo // MWE: next will be obsoleted by WinWidgetInfo
//Set these for functions like GetWindowLong Added 01/07/2000 //Set these for functions like GetWindowLong Added 01/07/2000
@ -4451,7 +4434,6 @@ begin
if (Sender is TCommonDialog) then if (Sender is TCommonDialog) then
TCommonDialog(Sender).Handle:= THandle(Handle); TCommonDialog(Sender).Handle:= THandle(Handle);
Set_RC_Name(Sender, Handle); Set_RC_Name(Sender, Handle);
if SetupProps then SetProperties(Sender); if SetupProps then SetProperties(Sender);
@ -4461,10 +4443,6 @@ begin
if Sender is TCustomForm then if Sender is TCustomForm then
gtk_widget_set_app_paintable(Handle,true); gtk_widget_set_app_paintable(Handle,true);
{$EndIf} {$EndIf}
{$IFDEF CustomFonts}
if Sender is TWinControl then
ModifyWidgetStyle(TWinControl(Sender),PGtkWidget(Handle));
{$ENDIF}
HookSignals(Sender); HookSignals(Sender);
end; end;
end; end;
@ -7347,6 +7325,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.372 2003/06/09 14:39:52 mattias
implemented setting working directory for debugger
Revision 1.371 2003/06/09 10:07:34 mattias Revision 1.371 2003/06/09 10:07:34 mattias
updated russian localization from Vasily updated russian localization from Vasily