paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-08 16:19:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

added package link for simpleideintf

Browse Source 
git-svn-id: trunk@10375 -
This commit is contained in:
mattias 2007-01-05 12:11:54 +00:00
parent 44f00697d3
commit 4560417c25
8 changed files with 235 additions and 118 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.gitattributes vendored
View File

@ -1042,6 +1042,11 @@ examples/grid_semaphor/semaphorgridlpk.pas svneol=native#text/pascal
examples/grid_semaphor/semaphorgrids.pas svneol=native#text/pascal
examples/grid_semaphor/semaphorgridsicon.lrs svneol=native#text/pascal
examples/grid_semaphor/tsemaphorgrid.xpm -text svneol=native#image/x-xpixmap
examples/gridcelleditor/gridcelleditor.lpi svneol=native#text/plain
examples/gridcelleditor/gridcelleditor.lpr svneol=native#text/plain
examples/gridcelleditor/unit1.lfm svneol=native#text/plain
examples/gridcelleditor/unit1.lrs svneol=native#text/plain
examples/gridcelleditor/unit1.pas svneol=native#text/plain
examples/groupbox.lpi svneol=native#text/plain
examples/groupbox.pp svneol=native#text/pascal
examples/groupboxnested.lpi svneol=native#text/plain
@ -2695,6 +2700,7 @@ packager/globallinks/popupnotifierlaz-0.lpl svneol=native#text/plain
packager/globallinks/prettyformat-0.lpl svneol=native#text/plain
packager/globallinks/printers4lazide-0.lpl svneol=native#text/plain
packager/globallinks/projtemplates-0.lpl svneol=native#text/plain
packager/globallinks/simpleideintf-0.lpl svneol=native#text/plain
packager/globallinks/trayiconlaz-0.lpl svneol=native#text/plain
packager/installpkgsetdlg.lfm svneol=native#text/plain
packager/installpkgsetdlg.lrs svneol=native#text/pascal

138
components/simpleideintf/examples/testh2pastool.lpi
View File

@ -7,7 +7,7 @@
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="1"/>
<ActiveEditorIndexAtStart Value="2"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
@ -28,24 +28,24 @@
</RunParams>
<RequiredPackages Count="3">
<Item1>
<PackageName Value="CodeTools"/>
<PackageName Value="SimpleIDEIntf"/>
<MinVersion Valid="True"/>
</Item1>
<Item2>
<PackageName Value="SimpleIDEIntf"/>
<PackageName Value="H2PasWizard"/>
<MinVersion Valid="True"/>
</Item2>
<Item3>
<PackageName Value="H2PasWizard"/>
<MinVersion Valid="True"/>
<PackageName Value="CodeTools"/>
</Item3>
</RequiredPackages>
<Units Count="16">
<Units Count="17">
<Unit0>
<Filename Value="testh2pastool.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="TestH2pasTool"/>
<CursorPos X="23" Y="36"/>
<TopLine Value="28"/>
<TopLine Value="21"/>
<EditorIndex Value="0"/>
<UsageCount Value="27"/>
<Loaded Value="True"/>
@ -117,27 +117,25 @@
<Unit10>
<Filename Value="../../h2pas/h2pasconvert.pas"/>
<UnitName Value="H2PasConvert"/>
<CursorPos X="11" Y="2241"/>
<CursorPos X="32" Y="2240"/>
<TopLine Value="2213"/>
<EditorIndex Value="1"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit10>
<Unit11>
<Filename Value="/home/gaertner/pascal/amat/ide/copycomponent/componentcopier.pas"/>
<Filename Value="../../../../../../../gaertner/pascal/amat/ide/copycomponent/componentcopier.pas"/>
<UnitName Value="ComponentCopier"/>
<CursorPos X="1" Y="19"/>
<TopLine Value="19"/>
<EditorIndex Value="3"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit11>
<Unit12>
<Filename Value="../../codetools/basiccodetools.pas"/>
<UnitName Value="BasicCodeTools"/>
<CursorPos X="1" Y="2050"/>
<TopLine Value="2026"/>
<EditorIndex Value="2"/>
<EditorIndex Value="3"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit12>
@ -162,113 +160,17 @@
<TopLine Value="1413"/>
<UsageCount Value="10"/>
</Unit15>
<Unit16>
<Filename Value="../../../packager/globallinks/simpleideintf-0.lpl"/>
<CursorPos X="53" Y="1"/>
<TopLine Value="1"/>
<EditorIndex Value="2"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<SyntaxHighlighter Value="None"/>
</Unit16>
</Units>
<JumpHistory Count="26" HistoryIndex="25">
<Position1>
<Filename Value="../../codetools/basiccodetools.pas"/>
<Caret Line="2041" Column="10" TopLine="2022"/>
</Position1>
<Position2>
<Filename Value="../../h2pas/h2pasconvert.pas"/>
<Caret Line="1946" Column="39" TopLine="1933"/>
</Position2>
<Position3>
<Filename Value="../../h2pas/h2pasconvert.pas"/>
<Caret Line="2211" Column="20" TopLine="2203"/>
</Position3>
<Position4>
<Filename Value="../../codetools/basiccodetools.pas"/>
<Caret Line="104" Column="10" TopLine="82"/>
</Position4>
<Position5>
<Filename Value="../../codetools/basiccodetools.pas"/>
<Caret Line="411" Column="24" TopLine="384"/>
</Position5>
<Position6>
<Filename Value="../../codetools/basiccodetools.pas"/>
<Caret Line="749" Column="26" TopLine="721"/>
</Position6>
<Position7>
<Filename Value="../../codetools/basiccodetools.pas"/>
<Caret Line="783" Column="27" TopLine="751"/>
</Position7>
<Position8>
<Filename Value="../../codetools/basiccodetools.pas"/>
<Caret Line="1610" Column="8" TopLine="1586"/>
</Position8>
<Position9>
<Filename Value="../../codetools/basiccodetools.pas"/>
<Caret Line="1440" Column="29" TopLine="1417"/>
</Position9>
<Position10>
<Filename Value="../../codetools/basiccodetools.pas"/>
<Caret Line="1439" Column="11" TopLine="1417"/>
</Position10>
<Position11>
<Filename Value="../../codetools/basiccodetools.pas"/>
<Caret Line="275" Column="30" TopLine="274"/>
</Position11>
<Position12>
<Filename Value="../../codetools/basiccodetools.pas"/>
<Caret Line="2032" Column="15" TopLine="2010"/>
</Position12>
<Position13>
<Filename Value="../../h2pas/h2pasconvert.pas"/>
<Caret Line="1948" Column="7" TopLine="1926"/>
</Position13>
<Position14>
<Filename Value="../../h2pas/h2pasconvert.pas"/>
<Caret Line="1772" Column="26" TopLine="1749"/>
</Position14>
<Position15>
<Filename Value="../../codetools/basiccodetools.pas"/>
<Caret Line="84" Column="10" TopLine="62"/>
</Position15>
<Position16>
<Filename Value="../../codetools/basiccodetools.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position16>
<Position17>
<Filename Value="../../h2pas/h2pasconvert.pas"/>
<Caret Line="2158" Column="27" TopLine="2156"/>
</Position17>
<Position18>
<Filename Value="../../h2pas/h2pasconvert.pas"/>
<Caret Line="2181" Column="26" TopLine="2156"/>
</Position18>
<Position19>
<Filename Value="../../h2pas/h2pasconvert.pas"/>
<Caret Line="2010" Column="33" TopLine="2001"/>
</Position19>
<Position20>
<Filename Value="../../h2pas/h2pasconvert.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position20>
<Position21>
<Filename Value="../../h2pas/h2pasconvert.pas"/>
<Caret Line="1963" Column="55" TopLine="1941"/>
</Position21>
<Position22>
<Filename Value="../../h2pas/h2pasconvert.pas"/>
<Caret Line="2124" Column="55" TopLine="2102"/>
</Position22>
<Position23>
<Filename Value="../../h2pas/h2pasconvert.pas"/>
<Caret Line="2212" Column="69" TopLine="2190"/>
</Position23>
<Position24>
<Filename Value="../../h2pas/h2pasconvert.pas"/>
<Caret Line="2224" Column="62" TopLine="2202"/>
</Position24>
<Position25>
<Filename Value="../../h2pas/h2pasconvert.pas"/>
<Caret Line="2252" Column="19" TopLine="2242"/>
</Position25>
<Position26>
<Filename Value="../../h2pas/h2pasconvert.pas"/>
<Caret Line="2253" Column="17" TopLine="2228"/>
</Position26>
</JumpHistory>
<JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>

65
examples/gridcelleditor/gridcelleditor.lpi Normal file
View File

@ -0,0 +1,65 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="gridcelleditor.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="GridCellEditor"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/>
<ResourceFilename Value="unit1.lrs"/>
<UnitName Value="Unit1"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

18
examples/gridcelleditor/gridcelleditor.lpr Normal file
View File

@ -0,0 +1,18 @@
program GridCellEditor;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms
{ add your units here }, Unit1;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

43
examples/gridcelleditor/unit1.lfm Normal file
View File

@ -0,0 +1,43 @@
object Form1: TForm1
Left = 290
Height = 300
Top = 189
Width = 400
HorzScrollBar.Page = 399
VertScrollBar.Page = 299
Caption = 'Form1'
OnCreate = FormCreate
object StringGrid1: TStringGrid
Left = 25
Height = 227
Top = 45
Width = 360
ColCount = 5
FixedColor = clBtnFace
GridLineWidth = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor, goSmoothScroll]
RowCount = 5
ScrollBars = ssAutoBoth
TabOrder = 0
TabStop = True
OnSelectEditor = StringGrid1SelectEditor
end
object ComboBox1: TComboBox
Left = 140
Height = 25
Top = 170
Width = 100
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemIndex = 0
Items.Strings = (
'A'
'B'
'C'
)
MaxLength = 0
OnEditingDone = ComboBox1EditingDone
TabOrder = 1
Text = 'A'
Visible = False
end
end

18
examples/gridcelleditor/unit1.lrs Normal file
View File

@ -0,0 +1,18 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'"'#1#6'Height'#3','#1#3'Top'#3#189#0#5'Wi'
+'dth'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBar.Page'#3'+'#1#7
+'Caption'#6#5'Form1'#8'OnCreate'#7#10'FormCreate'#0#11'TStringGrid'#11'Strin'
+'gGrid1'#4'Left'#2#25#6'Height'#3#227#0#3'Top'#2'-'#5'Width'#3'h'#1#8'ColCou'
+'nt'#2#5#10'FixedColor'#7#9'clBtnFace'#13'GridLineWidth'#2#0#7'Options'#11#15
+'goFixedVertLine'#15'goFixedHorzLine'#10'goVertLine'#10'goHorzLine'#13'goRan'
+'geSelect'#9'goEditing'#18'goAlwaysShowEditor'#14'goSmoothScroll'#0#8'RowCou'
+'nt'#2#5#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#7'TabStop'#9#14'OnS'
+'electEditor'#7#23'StringGrid1SelectEditor'#0#0#9'TComboBox'#9'ComboBox1'#4
+'Left'#3#140#0#6'Height'#2#25#3'Top'#3#170#0#5'Width'#2'd'#16'AutoCompleteTe'
+'xt'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#9'ItemIndex'#2
+#0#13'Items.Strings'#1#6#1'A'#6#1'B'#6#1'C'#0#9'MaxLength'#2#0#13'OnEditingD'
+'one'#7#20'ComboBox1EditingDone'#8'TabOrder'#2#1#4'Text'#6#1'A'#7'Visible'#8
+#0#0#0
]);

64
examples/gridcelleditor/unit1.pas Normal file
View File

@ -0,0 +1,64 @@
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Grids,
StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
ComboBox1: TComboBox;
StringGrid1: TStringGrid;
procedure ComboBox1EditingDone(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure StringGrid1SelectEditor(Sender: TObject; aCol, aRow: Integer;
var Editor: TWinControl);
public
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
var
y: Integer;
x: Integer;
begin
// fill the grid
for y:=0 to StringGrid1.ColCount-1 do begin
for x:=0 to StringGrid1.RowCount-1 do begin
StringGrid1.Cells[x,y]:=IntToStr(x)+','+IntToStr(y);
end;
end;
end;
procedure TForm1.ComboBox1EditingDone(Sender: TObject);
begin
StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row]:=ComboBox1.Text;
end;
procedure TForm1.StringGrid1SelectEditor(Sender: TObject; aCol, aRow: Integer;
var Editor: TWinControl);
begin
if (aCol=3) and (aRow>0) then begin
ComboBox1.BoundsRect:=StringGrid1.CellRect(aCol,aRow);
ComboBox1.Text:=StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row];
Editor:=ComboBox1;
end;
end;
initialization
{$I unit1.lrs}
end.

1
packager/globallinks/simpleideintf-0.lpl Normal file
View File

@ -0,0 +1 @@
$(LazarusDir)/components/simpleideintf/simpleideintf.lpk