"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "app/form_menu_py.pas" between
CudaText-1.92.0.tar.gz and CudaText-1.93.0.tar.gz

About: CudaText is a cross-platform text editor (written in Lazarus).

form_menu_py.pas  (CudaText-1.92.0):form_menu_py.pas  (CudaText-1.93.0)
skipping to change at line 47 skipping to change at line 47
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure listClick(Sender: TObject); procedure listClick(Sender: TObject);
procedure listDrawItem(Sender: TObject; C: TCanvas; AIndex: integer; procedure listDrawItem(Sender: TObject; C: TCanvas; AIndex: integer;
const ARect: TRect); const ARect: TRect);
private private
{ private declarations } { private declarations }
FMultiline: boolean; FMultiline: boolean;
listFiltered: TList; listFiltered: TFPList;
FColorBg: TColor; FColorBg: TColor;
FColorBgSel: TColor; FColorBgSel: TColor;
FColorFont: TColor; FColorFont: TColor;
FColorFontSel: TColor; FColorFontSel: TColor;
FColorFontAlt: TColor; FColorFontAlt: TColor;
FColorFontHilite: TColor; FColorFontHilite: TColor;
procedure DoFilter; procedure DoFilter;
function GetResultCmd: integer; function GetResultCmd: integer;
function IsFiltered(AOrigIndex: integer): boolean; function IsFiltered(AOrigIndex: integer): boolean;
procedure SetListCaption(const AValue: string); procedure SetListCaption(const AValue: string);
skipping to change at line 140 skipping to change at line 140
PanelCaption.Font.Name:= UiOps.VarFontName; PanelCaption.Font.Name:= UiOps.VarFontName;
PanelCaption.Font.Size:= AppScaleFont(UiOps.VarFontSize); PanelCaption.Font.Size:= AppScaleFont(UiOps.VarFontSize);
PanelCaption.Font.Color:= FColorFont; PanelCaption.Font.Color:= FColorFont;
self.Color:= FColorBg; self.Color:= FColorBg;
self.Width:= AppScale(UiOps.ListboxSizeX); self.Width:= AppScale(UiOps.ListboxSizeX);
self.Height:= AppScale(UiOps.ListboxSizeY); self.Height:= AppScale(UiOps.ListboxSizeY);
ResultCode:= -1; ResultCode:= -1;
listItems:= TStringlist.Create; listItems:= TStringlist.Create;
listFiltered:= TList.Create; listFiltered:= TFPList.Create;
end; end;
procedure TfmMenuApi.editChange(Sender: TObject); procedure TfmMenuApi.editChange(Sender: TObject);
begin begin
DoFilter; DoFilter;
end; end;
procedure TfmMenuApi.FormDestroy(Sender: TObject); procedure TfmMenuApi.FormDestroy(Sender: TObject);
begin begin
FreeAndNil(listFiltered); FreeAndNil(listFiltered);
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)