Home
last modified time | relevance | path

Searched refs:AInfo (Results 1 – 25 of 362) sorted by relevance

12345678910>>...15

/dports/editors/lazarus/lazarus/lcl/interfaces/gtk/
H A Dgtkwsbuttons.pp375 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
383 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
385 gtk_table_attach(AInfo^.TableWidget, AInfo^.LabelWidget,
390 gtk_table_attach(AInfo^.TableWidget, AInfo^.LabelWidget,
393 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
396 gtk_table_attach(AInfo^.TableWidget, AInfo^.SpaceWidget,
402 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
404 gtk_table_attach(AInfo^.TableWidget, AInfo^.LabelWidget,
409 gtk_table_attach(AInfo^.TableWidget, AInfo^.LabelWidget,
412 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
[all …]
H A Dgtkprivatewidget.inc14 class procedure TGtkPrivateWidget.UpdateCursor(AInfo: PWidgetInfo);
19 Widget := AInfo^.CoreWidget;
26 SetWindowCursor(Window, AInfo^.ControlCursor, True)
28 SetCursorForWindowsWithInfo(Window, AInfo);
31 class procedure TGtkPrivateWidget.SetDefaultCursor(AInfo: PWidgetInfo);
33 AInfo^.DefaultCursor := Screen.Cursors[crDefault];
59 class procedure TGtkPrivatePaned.UpdateCursor(AInfo: PWidgetInfo);
64 Widget := AInfo^.CoreWidget;
67 SetWindowCursor(Window, AInfo^.ControlCursor, False);
73 class procedure TGtkPrivateEntry.SetDefaultCursor(AInfo: PWidgetInfo);
[all …]
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/lcl/interfaces/gtk/
H A Dgtkwsbuttons.pp378 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
386 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
388 gtk_table_attach(AInfo^.TableWidget, AInfo^.LabelWidget,
393 gtk_table_attach(AInfo^.TableWidget, AInfo^.LabelWidget,
396 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
399 gtk_table_attach(AInfo^.TableWidget, AInfo^.SpaceWidget,
405 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
407 gtk_table_attach(AInfo^.TableWidget, AInfo^.LabelWidget,
412 gtk_table_attach(AInfo^.TableWidget, AInfo^.LabelWidget,
415 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
[all …]
H A Dgtkprivatewidget.inc14 class procedure TGtkPrivateWidget.UpdateCursor(AInfo: PWidgetInfo);
19 Widget := AInfo^.CoreWidget;
26 SetWindowCursor(Window, AInfo^.ControlCursor, True)
28 SetCursorForWindowsWithInfo(Window, AInfo);
31 class procedure TGtkPrivateWidget.SetDefaultCursor(AInfo: PWidgetInfo);
33 AInfo^.DefaultCursor := Screen.Cursors[crDefault];
59 class procedure TGtkPrivatePaned.UpdateCursor(AInfo: PWidgetInfo);
64 Widget := AInfo^.CoreWidget;
67 SetWindowCursor(Window, AInfo^.ControlCursor, False);
73 class procedure TGtkPrivateEntry.SetDefaultCursor(AInfo: PWidgetInfo);
[all …]
/dports/editors/lazarus-qt5/lazarus/lcl/interfaces/gtk/
H A Dgtkwsbuttons.pp375 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
383 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
385 gtk_table_attach(AInfo^.TableWidget, AInfo^.LabelWidget,
390 gtk_table_attach(AInfo^.TableWidget, AInfo^.LabelWidget,
393 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
396 gtk_table_attach(AInfo^.TableWidget, AInfo^.SpaceWidget,
402 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
404 gtk_table_attach(AInfo^.TableWidget, AInfo^.LabelWidget,
409 gtk_table_attach(AInfo^.TableWidget, AInfo^.LabelWidget,
412 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
[all …]
H A Dgtkprivatewidget.inc14 class procedure TGtkPrivateWidget.UpdateCursor(AInfo: PWidgetInfo);
19 Widget := AInfo^.CoreWidget;
26 SetWindowCursor(Window, AInfo^.ControlCursor, True)
28 SetCursorForWindowsWithInfo(Window, AInfo);
31 class procedure TGtkPrivateWidget.SetDefaultCursor(AInfo: PWidgetInfo);
33 AInfo^.DefaultCursor := Screen.Cursors[crDefault];
59 class procedure TGtkPrivatePaned.UpdateCursor(AInfo: PWidgetInfo);
64 Widget := AInfo^.CoreWidget;
67 SetWindowCursor(Window, AInfo^.ControlCursor, False);
73 class procedure TGtkPrivateEntry.SetDefaultCursor(AInfo: PWidgetInfo);
[all …]
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/lcl/interfaces/gtk/
H A Dgtkwsbuttons.pp378 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
386 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
388 gtk_table_attach(AInfo^.TableWidget, AInfo^.LabelWidget,
393 gtk_table_attach(AInfo^.TableWidget, AInfo^.LabelWidget,
396 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
399 gtk_table_attach(AInfo^.TableWidget, AInfo^.SpaceWidget,
405 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
407 gtk_table_attach(AInfo^.TableWidget, AInfo^.LabelWidget,
412 gtk_table_attach(AInfo^.TableWidget, AInfo^.LabelWidget,
415 gtk_table_attach(AInfo^.TableWidget, AInfo^.ImageWidget,
[all …]
H A Dgtkprivatewidget.inc14 class procedure TGtkPrivateWidget.UpdateCursor(AInfo: PWidgetInfo);
19 Widget := AInfo^.CoreWidget;
26 SetWindowCursor(Window, AInfo^.ControlCursor, True)
28 SetCursorForWindowsWithInfo(Window, AInfo);
31 class procedure TGtkPrivateWidget.SetDefaultCursor(AInfo: PWidgetInfo);
33 AInfo^.DefaultCursor := Screen.Cursors[crDefault];
59 class procedure TGtkPrivatePaned.UpdateCursor(AInfo: PWidgetInfo);
64 Widget := AInfo^.CoreWidget;
67 SetWindowCursor(Window, AInfo^.ControlCursor, False);
73 class procedure TGtkPrivateEntry.SetDefaultCursor(AInfo: PWidgetInfo);
[all …]
/dports/editors/lazarus/lazarus/lcl/interfaces/gtk2/
H A Dgtk2privatewidget.inc19 Widget := AInfo^.CoreWidget;
28 SetCursorForWindowsWithInfo(Window, AInfo, True);
59 Widget := AInfo^.CoreWidget;
73 Widget := AInfo^.CoreWidget;
87 Widget := AInfo^.CoreWidget;
92 if TControl(AInfo^.LCLObject).Cursor = crDefault then
103 procedure UpdateCursorInternal(AInfo: PWidgetInfo);
108 Widget := AInfo^.CoreWidget;
121 if IsTTabControl(AInfo^.CoreWidget) then
123 UpdateCursorInternal(AInfo);
[all …]
/dports/editors/lazarus-qt5/lazarus/lcl/interfaces/gtk2/
H A Dgtk2privatewidget.inc19 Widget := AInfo^.CoreWidget;
28 SetCursorForWindowsWithInfo(Window, AInfo, True);
59 Widget := AInfo^.CoreWidget;
73 Widget := AInfo^.CoreWidget;
87 Widget := AInfo^.CoreWidget;
92 if TControl(AInfo^.LCLObject).Cursor = crDefault then
103 procedure UpdateCursorInternal(AInfo: PWidgetInfo);
108 Widget := AInfo^.CoreWidget;
121 if IsTTabControl(AInfo^.CoreWidget) then
123 UpdateCursorInternal(AInfo);
[all …]
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/lcl/interfaces/gtk2/
H A Dgtk2privatewidget.inc19 Widget := AInfo^.CoreWidget;
28 SetCursorForWindowsWithInfo(Window, AInfo, True);
59 Widget := AInfo^.CoreWidget;
73 Widget := AInfo^.CoreWidget;
87 Widget := AInfo^.CoreWidget;
92 if TControl(AInfo^.LCLObject).Cursor = crDefault then
103 procedure UpdateCursorInternal(AInfo: PWidgetInfo);
108 Widget := AInfo^.CoreWidget;
121 if IsTTabControl(AInfo^.CoreWidget) then
123 UpdateCursorInternal(AInfo);
[all …]
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/lcl/interfaces/gtk2/
H A Dgtk2privatewidget.inc19 Widget := AInfo^.CoreWidget;
28 SetCursorForWindowsWithInfo(Window, AInfo, True);
59 Widget := AInfo^.CoreWidget;
73 Widget := AInfo^.CoreWidget;
87 Widget := AInfo^.CoreWidget;
92 if TControl(AInfo^.LCLObject).Cursor = crDefault then
103 procedure UpdateCursorInternal(AInfo: PWidgetInfo);
108 Widget := AInfo^.CoreWidget;
121 if IsTTabControl(AInfo^.CoreWidget) then
123 UpdateCursorInternal(AInfo);
[all …]
/dports/editors/lazarus/lazarus/lcl/interfaces/carbon/
H A Dcarbondebug.pp68 R := CGRectMake(2, -15, AInfo^.Width, -AInfo^.Height);
69 case AInfo^.Kind of
71 if AInfo^.Image <> nil
104 case AInfo^.Kind of
108 Dispose(AInfo);
120 if AInfo^.Width < 50 then R.Right := 50 else R.Right := AInfo^.Width;
121 if AInfo^.Height < 25 then R.Bottom := 25 else R.Bottom := AInfo^.Height;
136 case AInfo^.Kind of
140 AInfo^.Text := ATitle;
146 AInfo^.Control := nil;
[all …]
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/lcl/interfaces/carbon/
H A Dcarbondebug.pp68 R := CGRectMake(2, -15, AInfo^.Width, -AInfo^.Height);
69 case AInfo^.Kind of
71 if AInfo^.Image <> nil
104 case AInfo^.Kind of
108 Dispose(AInfo);
120 if AInfo^.Width < 50 then R.Right := 50 else R.Right := AInfo^.Width;
121 if AInfo^.Height < 25 then R.Bottom := 25 else R.Bottom := AInfo^.Height;
136 case AInfo^.Kind of
140 AInfo^.Text := ATitle;
146 AInfo^.Control := nil;
[all …]
/dports/editors/lazarus-qt5/lazarus/lcl/interfaces/carbon/
H A Dcarbondebug.pp68 R := CGRectMake(2, -15, AInfo^.Width, -AInfo^.Height);
69 case AInfo^.Kind of
71 if AInfo^.Image <> nil
104 case AInfo^.Kind of
108 Dispose(AInfo);
120 if AInfo^.Width < 50 then R.Right := 50 else R.Right := AInfo^.Width;
121 if AInfo^.Height < 25 then R.Bottom := 25 else R.Bottom := AInfo^.Height;
136 case AInfo^.Kind of
140 AInfo^.Text := ATitle;
146 AInfo^.Control := nil;
[all …]
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/lcl/interfaces/carbon/
H A Dcarbondebug.pp68 R := CGRectMake(2, -15, AInfo^.Width, -AInfo^.Height);
69 case AInfo^.Kind of
71 if AInfo^.Image <> nil
104 case AInfo^.Kind of
108 Dispose(AInfo);
120 if AInfo^.Width < 50 then R.Right := 50 else R.Right := AInfo^.Width;
121 if AInfo^.Height < 25 then R.Bottom := 25 else R.Bottom := AInfo^.Height;
136 case AInfo^.Kind of
140 AInfo^.Text := ATitle;
146 AInfo^.Control := nil;
[all …]
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/freetype/
H A Dttkern.pas28 …function GetKerning(ALeftGlyph, ARightGlyph: UShort; var AInfo: TT_KerningInfo): boolean; virtual;… in GetKerning()
73 …function GetKerning(ALeftGlyph, ARightGlyph: UShort; var AInfo: TT_KerningInfo): boolean; override; in GetKerning()
154 function TBinarySearchKerningTable.GetKerning(ALeftGlyph, ARightGlyph: UShort; var AInfo: TT_Kernin… in GetKerning()
188 AInfo.minimum_y:= searchedPair.value
190 AInfo.minimum_y:= ClampShort(AInfo.minimum_y + searchedPair.value, -32768, 32767);
194 AInfo.kerning_y:= searchedPair.value
196 … AInfo.kerning_y:= ClampShort(AInfo.kerning_y + searchedPair.value, AInfo.minimum_y, 32767);
203 AInfo.minimum_x:= searchedPair.value
205 AInfo.minimum_x:= ClampShort(AInfo.minimum_x + searchedPair.value, -32768, 32767);
209 AInfo.kerning_x:= searchedPair.value
[all …]
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/freetype/
H A Dttkern.pas28 …function GetKerning(ALeftGlyph, ARightGlyph: UShort; var AInfo: TT_KerningInfo): boolean; virtual;… in GetKerning()
73 …function GetKerning(ALeftGlyph, ARightGlyph: UShort; var AInfo: TT_KerningInfo): boolean; override; in GetKerning()
154 function TBinarySearchKerningTable.GetKerning(ALeftGlyph, ARightGlyph: UShort; var AInfo: TT_Kernin… in GetKerning()
188 AInfo.minimum_y:= searchedPair.value
190 AInfo.minimum_y:= ClampShort(AInfo.minimum_y + searchedPair.value, -32768, 32767);
194 AInfo.kerning_y:= searchedPair.value
196 … AInfo.kerning_y:= ClampShort(AInfo.kerning_y + searchedPair.value, AInfo.minimum_y, 32767);
203 AInfo.minimum_x:= searchedPair.value
205 AInfo.minimum_x:= ClampShort(AInfo.minimum_x + searchedPair.value, -32768, 32767);
209 AInfo.kerning_x:= searchedPair.value
[all …]
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/fpvectorial/
H A Dodgvectorialreader.pas818 if AInfo = nil then AInfo := TCustomShapeInfo.Create;
819 AInfo.ViewBox_Left := 0;
820 AInfo.ViewBox_Top := 0;
821 AInfo.ViewBox_Width := 10000;
822 AInfo.ViewBox_Height := 10000;
839 AInfo.ViewBox_Width := StringWithUnitToFloat(l10Strings[2]) - AInfo.ViewBox_Left;
840 AInfo.ViewBox_Height := StringWithUnitToFloat(l10Strings[3]) - AInfo.ViewBox_Top;
2128 ADestX := (ASrcX - AInfo.ViewBox_Left) * (AInfo.Width / AInfo.ViewBox_Width) + AInfo.Left;
2129 ADestY := (ASrcY - AInfo.ViewBox_Top) * (AInfo.Height / AInfo.ViewBox_Height) + AInfo.Top;
2137 ADestX := (ASrcX - AInfo.ViewBox_Left) * (AInfo.Width / AInfo.ViewBox_Width);
[all …]
/dports/editors/lazarus/lazarus/components/fpvectorial/
H A Dodgvectorialreader.pas818 if AInfo = nil then AInfo := TCustomShapeInfo.Create;
819 AInfo.ViewBox_Left := 0;
820 AInfo.ViewBox_Top := 0;
821 AInfo.ViewBox_Width := 10000;
822 AInfo.ViewBox_Height := 10000;
839 AInfo.ViewBox_Width := StringWithUnitToFloat(l10Strings[2]) - AInfo.ViewBox_Left;
840 AInfo.ViewBox_Height := StringWithUnitToFloat(l10Strings[3]) - AInfo.ViewBox_Top;
2128 ADestX := (ASrcX - AInfo.ViewBox_Left) * (AInfo.Width / AInfo.ViewBox_Width) + AInfo.Left;
2129 ADestY := (ASrcY - AInfo.ViewBox_Top) * (AInfo.Height / AInfo.ViewBox_Height) + AInfo.Top;
2137 ADestX := (ASrcX - AInfo.ViewBox_Left) * (AInfo.Width / AInfo.ViewBox_Width);
[all …]
/dports/editors/lazarus-qt5/lazarus/components/fpvectorial/
H A Dodgvectorialreader.pas818 if AInfo = nil then AInfo := TCustomShapeInfo.Create;
819 AInfo.ViewBox_Left := 0;
820 AInfo.ViewBox_Top := 0;
821 AInfo.ViewBox_Width := 10000;
822 AInfo.ViewBox_Height := 10000;
839 AInfo.ViewBox_Width := StringWithUnitToFloat(l10Strings[2]) - AInfo.ViewBox_Left;
840 AInfo.ViewBox_Height := StringWithUnitToFloat(l10Strings[3]) - AInfo.ViewBox_Top;
2128 ADestX := (ASrcX - AInfo.ViewBox_Left) * (AInfo.Width / AInfo.ViewBox_Width) + AInfo.Left;
2129 ADestY := (ASrcY - AInfo.ViewBox_Top) * (AInfo.Height / AInfo.ViewBox_Height) + AInfo.Top;
2137 ADestX := (ASrcX - AInfo.ViewBox_Left) * (AInfo.Width / AInfo.ViewBox_Width);
[all …]
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/fpvectorial/
H A Dodgvectorialreader.pas818 if AInfo = nil then AInfo := TCustomShapeInfo.Create;
819 AInfo.ViewBox_Left := 0;
820 AInfo.ViewBox_Top := 0;
821 AInfo.ViewBox_Width := 10000;
822 AInfo.ViewBox_Height := 10000;
839 AInfo.ViewBox_Width := StringWithUnitToFloat(l10Strings[2]) - AInfo.ViewBox_Left;
840 AInfo.ViewBox_Height := StringWithUnitToFloat(l10Strings[3]) - AInfo.ViewBox_Top;
2128 ADestX := (ASrcX - AInfo.ViewBox_Left) * (AInfo.Width / AInfo.ViewBox_Width) + AInfo.Left;
2129 ADestY := (ASrcY - AInfo.ViewBox_Top) * (AInfo.Height / AInfo.ViewBox_Height) + AInfo.Top;
2137 ADestX := (ASrcX - AInfo.ViewBox_Left) * (AInfo.Width / AInfo.ViewBox_Width);
[all …]
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/debugger/
H A Dfeedbackdlg.pp25 function Execute(const AText, AInfo: String;
33 function ExecuteFeedbackDialog(const AText, AInfo: String;
39 function ExecuteFeedbackDialog(const AText, AInfo: String; AType: TDBGFeedbackType;
46 Result := ADialog.Execute(AText, AInfo, AType, AButtons);
65 function TDbgFeedbackDlg.Execute(const AText, AInfo: String; AType: TDBGFeedbackType;
80 memo1.Text := AInfo;
82 if AInfo <> '' then begin
/dports/editors/lazarus/lazarus/debugger/
H A Dfeedbackdlg.pp25 function Execute(const AText, AInfo: String;
33 function ExecuteFeedbackDialog(const AText, AInfo: String;
39 function ExecuteFeedbackDialog(const AText, AInfo: String; AType: TDBGFeedbackType;
46 Result := ADialog.Execute(AText, AInfo, AType, AButtons);
65 function TDbgFeedbackDlg.Execute(const AText, AInfo: String; AType: TDBGFeedbackType;
80 memo1.Text := AInfo;
82 if AInfo <> '' then begin
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/debugger/
H A Dfeedbackdlg.pp25 function Execute(const AText, AInfo: String;
33 function ExecuteFeedbackDialog(const AText, AInfo: String;
39 function ExecuteFeedbackDialog(const AText, AInfo: String; AType: TDBGFeedbackType;
46 Result := ADialog.Execute(AText, AInfo, AType, AButtons);
65 function TDbgFeedbackDlg.Execute(const AText, AInfo: String; AType: TDBGFeedbackType;
80 memo1.Text := AInfo;
82 if AInfo <> '' then begin

12345678910>>...15