paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-23 16:39:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

AJ: Partial HintWindow Fix; Added Screen.Font & Font.Name PropEditor; Started to fix ComboBox DropDown size/pos

Browse Source 
git-svn-id: trunk@1017 -
This commit is contained in:
lazarus 2002-02-09 01:47:39 +00:00
parent 58eefd9d55
commit 3cda4862b4
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -805,6 +805,9 @@ begin
// call init and pass cmd line args // call init and pass cmd line args
gtk_init (@argc, @argv); gtk_init (@argc, @argv);
If Assigned(Screen) then
FillScreenFonts(Screen.Fonts);
// read gtk rc file // read gtk rc file
FRCFileParsed:=true; FRCFileParsed:=true;
ParseRCFile; ParseRCFile;
@ -4041,7 +4044,7 @@ begin
csHintWindow : csHintWindow :
Begin Begin
p := gtk_window_new(gtk_window_Popup); p := gtk_window_new(gtk_window_popup);
gtk_window_set_policy (GTK_WINDOW (p), 0, 0, 0); gtk_window_set_policy (GTK_WINDOW (p), 0, 0, 0);
// Create the form client area // Create the form client area
@ -4050,12 +4053,15 @@ begin
gtk_widget_show(TempWidget); gtk_widget_show(TempWidget);
SetFixedWidget(p, TempWidget); SetFixedWidget(p, TempWidget);
SetMainWidget(p, TempWidget); SetMainWidget(p, TempWidget);
//Try to make all hint forms transient to the main form
If (Application<>nil) and (Application.MainForm <> nil) TCustomForm(Sender).FormStyle := fsStayOnTop;
and (Application.MainForm.HandleAllocated) then TCustomForm(Sender).BorderStyle := bsNone;
gtk_window_set_transient_for(PGTKWindow(P), gtk_widget_realize(p);
PGTKWindow(Application.MainForm.Handle)); gdk_window_set_decorations(GetControlWindow(P),
gtk_widget_show(p); GetWindowDecorations(TCustomForm(Sender)));
gdk_window_set_functions(GetControlWindow(P),
GetWindowFunction(TCustomForm(Sender)));
gtk_widget_show_all(p);
end; end;
csImage : csImage :
@ -4063,6 +4069,7 @@ begin
p := gtk_image_new(nil,nil); p := gtk_image_new(nil,nil);
end; end;
csLabel : csLabel :
begin begin
P := gtk_label_new(StrTemp); P := gtk_label_new(StrTemp);
@ -6528,6 +6535,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.254 2002/10/18 16:08:10 lazarus
AJ: Partial HintWindow Fix; Added Screen.Font & Font.Name PropEditor; Started to fix ComboBox DropDown size/pos
Revision 1.253 2002/10/17 21:00:17 lazarus Revision 1.253 2002/10/17 21:00:17 lazarus
MG: fixed uncapturing of mouse MG: fixed uncapturing of mouse