i found an error by accident File: SourceSynEditorFunction: TIDESynGutterLOvProviderPascal.HighlightChangedLine: 1826
procedure TForm1.FormCreate(Sender: TObject);var reg: TRegistry; l: TStringList; n:integer;begin sport := TblockSerial.create; connected := FALSE; l:=TStringList.Create; reg := TRegistry.Create; try reg.Access := KEY_READ; reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey('\HARDWARE\DEVICEMAP\SERIALCOMM', false); reg.GetValueNames(l); for n := 0 to l.Count - 1 do begin ComboBox2.Items.Add(reg.ReadString(l[n])); memo1.Text:=memo1.Text+l[n]; memo1.Text:=memo1.Text+' -- '+ reg.ReadString(l[n])+#13+#10; end; if (ComboBox2.Items.Count>0) then ComboBox2.Text:=ComboBox2.Items[0]; finally reg.Free; l.Free; end;end;
\Device\Serial0 -- COM1\Device\BthModem2 -- COM\Device\BthModem0 -- COM\Device\BthModem1 -- COM
\Device\Serial0 -- COM1\Device\BthModem2 -- COM3\Device\BthModem0 -- COM6\Device\BthModem1 -- COM7
note. "1.4 Test" ide from getlazarus.org works/compiles ok, while 1.4RC1/2/3 don't work..
Does your project has any changes to any path setting (on the Project > Compiler Options > Path)?
This is my code:Code: [Select]procedure TForm1.FormCreate(Sender: TObject);var reg: TRegistry; l: TStringList; n:integer;begin sport := TblockSerial.create; connected := FALSE; l:=TStringList.Create; reg := TRegistry.Create; try reg.Access := KEY_READ; reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey('\HARDWARE\DEVICEMAP\SERIALCOMM', false); reg.GetValueNames(l); for n := 0 to l.Count - 1 do begin ComboBox2.Items.Add(reg.ReadString(l[n])); memo1.Text:=memo1.Text+l[n]; memo1.Text:=memo1.Text+' -- '+ reg.ReadString(l[n])+#13+#10; end; if (ComboBox2.Items.Count>0) then ComboBox2.Text:=ComboBox2.Items[0]; finally reg.Free; l.Free; end;end; This is what I find in Memo1:Code: [Select]\Device\Serial0 -- COM1\Device\BthModem2 -- COM\Device\BthModem0 -- COM\Device\BthModem1 -- COMBut the real content is of the key is :Code: [Select]\Device\Serial0 -- COM1\Device\BthModem2 -- COM3\Device\BthModem0 -- COM6\Device\BthModem1 -- COM7I noticed that if I create a new value it is correctly read.If I go on one of the not working values, I select Edit, and I just click OK, it becomes working.
I just found something in the IDE, which I think is wrong:When I open Project Inspector and then I press ESC, the window of the project inspector gets empy. I suppose it should simply get closed when ESC is pressed.Same problem exists in the official Lazarus, too.If it matters- I use anchored IDE.
HiI use fixes_1_4 branch, and updatedfound a designer problem: when a control is selected, and drag it to new position, the control will jump a random offset in horizontal and vertical. but if the control is NOT selected, then click and drag, the action is okin 1.2 release, is okif someone else meet the same, please submit a bug report
I use fixes_1_4 branch, and updatedfound a designer problem: when a control is selected, and drag it to new position, the control will jump a random offset in horizontal and vertical. but if the control is NOT selected, then click and drag, the action is ok
Quote from: baldzhang on April 14, 2015, 05:06:50 pmI use fixes_1_4 branch, and updatedfound a designer problem: when a control is selected, and drag it to new position, the control will jump a random offset in horizontal and vertical. but if the control is NOT selected, then click and drag, the action is okI cannot reproduce. I tested on Windows and on Linux with GTK2 and QT widgetsets.Does it happen only with a certain project or form? Can you please copy it here.