paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-17 19:59:47 +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
gtk_init (@argc, @argv);
If Assigned(Screen) then
FillScreenFonts(Screen.Fonts);
// read gtk rc file
FRCFileParsed:=true;
ParseRCFile;
@ -4041,7 +4044,7 @@ begin
csHintWindow :
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);
// Create the form client area
@ -4050,12 +4053,15 @@ begin
gtk_widget_show(TempWidget);
SetFixedWidget(p, TempWidget);
SetMainWidget(p, TempWidget);
//Try to make all hint forms transient to the main form
If (Application<>nil) and (Application.MainForm <> nil)
and (Application.MainForm.HandleAllocated) then
gtk_window_set_transient_for(PGTKWindow(P),
PGTKWindow(Application.MainForm.Handle));
gtk_widget_show(p);
TCustomForm(Sender).FormStyle := fsStayOnTop;
TCustomForm(Sender).BorderStyle := bsNone;
gtk_widget_realize(p);
gdk_window_set_decorations(GetControlWindow(P),
GetWindowDecorations(TCustomForm(Sender)));
gdk_window_set_functions(GetControlWindow(P),
GetWindowFunction(TCustomForm(Sender)));
gtk_widget_show_all(p);
end;
csImage :
@ -4063,6 +4069,7 @@ begin
p := gtk_image_new(nil,nil);
end;
csLabel :
begin
P := gtk_label_new(StrTemp);
@ -6528,6 +6535,9 @@ end;
{ =============================================================================
$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
MG: fixed uncapturing of mouse